perl:
$DSN = "driver={SQL Server};Server=192.168.3.247;Database=GenesisBuilder;UID=sa;PWD=sogo09test";
my $dbh=DBI->connect("DBI:ODBC:$DSN") or &onError("couldn't open database:".DBI->errstr);
原来一直运行成功的,突然有一天连不上了;
解决办法:手动建立一个odbc,DBI->connect("手动建立的ODBC名字")
可能与sql提供的1433端口或者动态端口有关