Perl连接SQLServer(ReShip)

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

准备工作:

    用到的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(); # 得到列(属性)的列表
        ....
    还有很多的操作在原模块作者给出的文档中有详细介绍.

作者Blog：http://blog.csdn.net/chanboy/