QTP串連sqlserver

標籤：os   io   資料   cti   log   管理   資料庫   sql   

Dim conn,strSql ‘定義變數
set conn = CreateObject("ADODB.Connection") ‘建立串連
conn.ConnectionString="Provider=SQLOLEDB.1;[email protected];Persist Security Info=True;User ID=rcdb;Initial Catalog=AMS;Data source=sql.rc.itour.com.cn,2433" ‘設定連接字串
conn.open ‘開啟串連

If conn.state=0 Then ‘如果串連狀態為0，表示串連失敗，寫入reporter對象中，否則表示串連成功
msgbox "資料庫連接失敗"
conn.close
Set conn = nothing
else
msgbox "資料庫連接成功"
‘conn.execute strSql ‘執行更新語句
conn.close
Set conn = nothing
End If

 

 

 

 

進入控制台 -->  管理工具---- >資料來源ODBC----> 添加--->選擇sqlserver資料來源--->設定相關伺服器等