ire独立的ODBC驱动程序。我在命令行和CGI上运行相同的Perl。这个问题已经解决了，我更新了原来的帖子。谢谢你的帮助！当您说“而且它会很好地测试”时，您是否在这两个ODBC命令中都进行了测试？因为64位windows有两个Odbcad32.exe，一

---

ire独立的ODBC驱动程序。我在命令行和CGI上运行相同的Perl。这个问题已经解决了，我更新了原来的帖子。谢谢你的帮助！当您说“而且它会很好地测试”时，您是否在这两个ODBC命令中都进行了测试？因为64位windows有两个Odbcad32.exe，一个在\windows\SysWoW64下，另一个在\windows\System32下。这两个EXE显示了一些共享配置。请参阅Microsoft链接。当您说“而且它会测试得很好”时，您是否在两个ODBC命令中都进行了测试？因为64位windows有两个Odbcad32.exe，一个在\windows\SysWoW64下，另一个在\windows\System32下。这两个EXE显示了一些共享配置。请参阅Microsoft链接。

#!c:/perl/bin/perl.exe
use CGI qw(:standard);
use strict;
use warnings;
use DBI;

my ($sqlstr, $sql_UNITED, $dbh206);

# 206
# select * from getProvFINON('270762789')#TIN
my @colUNITED = qw/ADR_LN_1_TXT  PROV_SYS_ID  ZIP_CD  FULL_NM  SOURCE  PROV_TIN  BILL_TEL/;

sub Init(){
    $dbh206 = DBI->connect ("dbi:ODBC:SQLSVR206",'USER','PASSWORD',{RaiseError=>1})
        or die $DBI::errstr;
    $sqlstr = qq/ select * from getProvFINON(?) /; #parameters TIN
    $sql_UNITED = $dbh206->prepare($sqlstr)
        or die "prepare failed: " . $dbh206->errstr(); 
}

sub test1{
    my $tin = shift();
    $sql_UNITED->execute($tin) or die $sql_UNITED->errstr;
    my $row = $sql_UNITED->fetchrow_hashref;
    while(defined ($row)){
    foreach(@colUNITED){
        print $row->{$_}."~~~";
    }
    print "<p>";
    $row = $sql_UNITED->fetchrow_hashref;
    }
}

print header;
print "test text<p>";
Init();
test1('270762789');
print "999999999999<p>";

use DBI;
use SQL::Abstract;
my $CONNECT = "FILEDSN=thefile.dsn";
my $dbh = DBI->connect("dbi:ODBC:$CONNECT", "myidsid", "passwordThatsNotUsed");

[ODBC]
DRIVER=SQL Server Native Client 10.0
UID=myidsid
Address=servername,3180
Network=DBMSSOCN
APP=Microsoft® Windows® Operating System
Trusted_Connection=Yes
SERVER=servername
PWD=someTextInPlaceOfPasswordAsItsNotUsed