获取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