有没有办法在perl中没有ODBC驱动程序的情况下连接到SQL服务器？

Question

在perl中有没有办法连接到没有OBDC驱动程序的SQL服务器？

我需要在无法安装驱动程序的计算机上运行脚本。特定的机器没有OBDC驱动程序，所以我不能运行脚本

my $dbh = DBI->connect("dbi:ODBC:Driver={SQL Server}"....

我在网上搜索但我一无所获。任何人都可以帮助我PLZ？

Answer 1

如果您正在运行Windows，请查看此模块：

http://metacpan.org/pod/Win32::ODBC

（首先，您需要在odbc管理员中定义ODBC连接）

使用此示例即可连接：

my $Db="ODBC_CONN";
my $Db_Conex = new Win32::ODBC($Db); 

$Db_Conex->Sql("select bar from foo");
while ($Db_Conex->FetchRow()){
    my $FooValue =  $Db_Conex->Data();
}