用Linux下Perl脚本连接SQLServer

准备工作:

　　用到的perl 扩展组件(modules)在上篇贴出.( win32::odbc 模块
)下载组件后按照Readme文件安装倒响应目录.配置好相应的odbc数据源.

　　

　　程序实现:

　　使用

　　use
Win32::ODBC;

　　

　　语句包含应使用的模块是win32::odbc,写出数据库
连接字符串

　　

　　$DSN = "DSN =
My DSN;UID = sa; PWD = password"

　　

　　然后就可以建立相应的连接

　　

　　$data = new
Win32::ODBC($DSN)　# new 一个连接对象

　　

　　这样就建立了和数据源指向的SQL Server
的连接,当然还有更多更复杂的数据库操作.大家可以参考上篇的对象说明文档.

　　

　　简单举例:

　　$data->TableList;
# 得到数据库的所有基本表的列表

　　$data->Sql("SELECT * FROM [tablename]") #
执行一条查询语句

　　$data->FieldNames();　# 得到列(属性)的列表