QTP连接sqlserver

2321ewq

Dim conn,strSql '定义变量
set conn = CreateObject("ADODB.Connection")   '创建连接
conn.ConnectionString="Provider=SQLOLEDB.1;Password=rcdb@2009;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数据源--->设置相关服务器等