PERL如何连接并访问MYSQL2000?

zymh_zy

代码如下:
sub update_data {

  
    my $DSN ='driver=(SQLServer);Server= zymh;database=zymh;uid= zymh;pwd= 1234';
   my $dbh =DBI->;connect("dbi:ODBCDSN" or die "$DBI::errstr\n";
   
    $sth =$dbh->;prepare(" UPDATE bbf SET(type=&mtype,time=$mtime,home=$mhome,result=$mresult,away =$maway,ht=$mht, status='$mstatus";
  $sth->;execute();

    $dbh =DBI ->;disconnect or die "$DBI::errstr\n";
     exit;
}

错语提示如下:
DBI connect("driver=(SQLServer);server=zymh;database =zymh;uid=zymh;pwd=1234',""....)failed:{Microsoft [ODBC 驱动程序 管理器] 示发现数据源名称并且未指定默认驱动程序(SQL-IM002)(dbdB_login/SQLConnect err=-1) at :e:\win006\secore\bfe.pl line 428

小生只想PERL连接MSSQL2000并更新数据库某个表. 小生英文不好, perldoc DBD::ODBC看得头昏昏.OS为 WIN2000 /PERL5.8 , 已在ODBC增加SQL2000的DSN.如何解决? 谢谢.

zhongmg108

我觉得可能是参数问题；connect方法的格式是这样的：
$dbh = DBI->;connect($data_source, $username, $password);
$dbh = DBI->;connect($data_source, $username, $password, \%attr);
其中$data_source有如下几种形式：
dbiriverName:database_name
dbiriverName:database_name@hostname
dbiriverName:database_name~hostname!port  dbiriverName:database=database_name;host=hostname;port=port
一般ODBC用最后一种形式。而你仅用一个字符串作为参数与connect的参数列表相比似乎不妥。
建议这样作参数：
$data_source = 'dbi:ODBC:zymh';
$user_name = 'zymh';
$password = 'zymh';
然后再连接试试：
my $dbh = $DBI->;connect($data_source,$user_name,$password);

zymh_zy

那我试试.

zymh_zy

那我试试.

zymh_zy

原帖由 "zhongmg108" 发表：
我觉得可能是参数问题；connect方法的格式是这样的：
$dbh = DBI->;connect($data_source, $username, $password);
$dbh = DBI->;connect($data_source, $username, $password, \%attr);
其中$data_source有?.........

还是不行,小生照你意思将代码改成:

#######################################################
####zymh 为数据库服务器名. testdb为数据库名 ###############
####win006为在ODBC系统数据源名            ################
#####$mtype,$mtime,$mhome,$mresult,$maway,$ht,$mstaus ##
######为用正则表达式已匹配出来的字段变量     ##############
########################################################
sub update_data {

        my($dbh,$sth);
                my $data_source = 'DBI:ODBC:win006;Server=zymh;database=testdb';
        my $user_name = 'zymh';
        my $password = '1234';

    #$DSN ='DBI:ODBC:win006;Server= zymh;database=testdb';

    $dbh =DBI->;connect('$data_source','$user_name','$password') or die "$DBI::errstr\n";
      
    $sth =$dbh->;prepare(" UPDATE bbf SET(type=&mtype,time=$mtime,home=$mhome,result=$mresult,away =$maway,ht=$mht, status='$mstatus";
$sth->;execute();
    $sth->;finish;
    $dbh =DBI ->;disconnect or die "$DBI::errstr\n";

   exit;

提示出错:can't connetct($data_source $user_name $password),no database driver specified and DBI_DSN env var not set at e:\win006\score \bfe.pl line 433

zymh_zy

原帖由 "zymh_zy"]?绦?管理器 发表：
示发现数据源名称并且未指定默认驱动程序(SQL-IM002)(dbdB_login/SQLConnect err=-1) at :e:\win006\secore\bfe.pl line 428

小生只想PERL连接MSSQL2000并更新数据库某个表. 小生英文不好, perld..........

现在已能连上MSSQL，但无法更新数据表的纪录。程式运行到弹出：Connecting to database。。。。。ok!就停止不动。如何解决？谢谢。

代码如下#######################################################   
####zymh 为数据库服务器名. testdb为数据库名 ###########   
####win006为在ODBC系统数据源名         ################   
#####$mtype,$mtime,$mhome,$mresult,$maway,$ht,$mstaus #  
######为用正则表达式已匹配出来的字段变量 ##############   
#######################################################   

sub update_data {

#全局变量  
my ($conn,$Rs,$dataCmd);  
#连接数据库  
print "Connecting to database...   ";  
my $conn = Win32::OLE->;new('ADODB.Connection'); # creates a connection object  
$conn->;Open('testdb',"zymh","1234";   # opens the database connection  
my $RS = Win32::OLE->;new('ADODB.Recordset');    # creates a recordset object  
my $dataCmd = Win32::OLE->;new('ADODB.Command'); # creates a command object  
$dataCmd->;{ActiveConnection} = $conn;  
$dataCmd->;{CommandTimeout} = 0;  
print "OK!\n";  
#更新数据库信息  
#Updata the Comment of Database
$dataCmd->;{CommandText} ="UPDATE bbf SET(type=&mtype,time=$mtime,home=$mhome,result=$mresult,away =$maway,ht=$mht, status=$mstatus)";   
$dataCmd->;Execute;  
$dataCmd->;finish;
$dataCmd->;Close();

exit;