获取sqlserver连接项的简便方法及QTP连接数据库

新建*.txt文件并保存成mydb.udl,双击mydb.udl,在弹出的对话框中，输入数据库连接信息，并测试连接，通过后，关闭对话框，用txt方式打开文件mydb.udl,provider之后的内容就是数据库的连接信息

'QTP连接SQL并读取数据库值

Dim conn, cmd,rst
Const strConn="provider=SQLOLEDB;User ID=sa;PWD=**;Initial Catalog=**;Da ta Source=localhost,1433"   '连接字符串
Set conn=createobject("adodb.connection")   '创建连接对象
Set rst=createobject("adodb.recordset")    '创建记录集对象
conn.Open strConn         '打开连接
 
sql="select * from ALARM_ALARMLEVEL where ID=1"   'SQL语句
rst.Open sql,conn                                 '执行SQL语句
num1=rst.Fields(0).Value                     '取SQL执行的结果的第一个字段
num2=rst.Fields("USR_Name").Value            '另一种方法              
rst.Close