Perl 連線 SQL Server (轉)

Perl 連線 SQL Server (轉)[@more@]呵呵.搞了半天終於自己摸索出來.寫出來大家共享.
其實很簡單.走了N多彎路又回來了.
 
準備工作:
 
  用到的 擴充套件(modules)在上篇貼出.( ::oc 模組 )
  元件後按照Readme倒響應目錄.好相應的odbc資料來源.
 
實現:
 
  使用
  use Win32::ODBC;
 
  語句包含應使用的模組是win32::odbc
  寫出連線字串
 
  $DSN = "DSN = My DSN;UID = sa; PWD = pass"
 
  然後就可以建立相應的連線
 
  $data = new Win32::ODBC($DSN)  # new 一個連線
 
  這樣就建立了和資料來源指向的 SERVER的連線
  當然還有更多更復雜的資料庫操作.大家可以參考上篇的物件說明文件.
 
簡單舉例:
 
  $data->TableList; # 得到資料庫的所有基本表的列表
  $data->Sql(" * FROM [tablename]") # 一條查詢語句
  $data->FieldNames();  # 得到列(屬性)的列表
  ....
  還有很多的操作在原模組作者給出的文件中有詳細介紹.