- 论坛徽章:
- 1
|
这几天一直忙于这程式,为实现这程式,翻阅许多文档,也用GOOGLE查过许久,也看过ACTIVEPERL的文档,发现许多文档都是点到即止,并没有一个详实的例程,现将这个例程写出来,没其它特别意思,只是想一些PERLER的后进者少走一些弯路而已。代码如下: 用WIN32::ODBC模块的。OS :WIN2K 服务器,PERL5。8。大家可以因应大家的实际要求相应改变,例如改SQL语句。
use win32: dbc;
sub update_data{
my($DSN,$data,$table,$sql);
print " connecting to the database..... ";
$DSN ="win008";
$data = new Win32::ODBC($DSN);
$table =bbf;
$sql ="INSERT INTO $table(type,time,home,result,away,ht,status) VALUES('$mtype','$mtime','$mhome','$mresult','$maway','$mht','$mstatus')";
$data->;Sql($sql);
$data->;Close();
print "ok!\n"; |
|