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

发布时间：2020-12-12 12:54:23 所属栏目：MsSql教程来源：网络整理

导读：新建*.txt文件并保存成mydb.udl,双击mydb.udl,在弹出的对话框中，输入数据库连接信息，并测试连接，通过后，关闭对话框，用txt方式打开文件mydb.udl,provider之后的内容就是数据库的连接信息 'QTP连接SQL并读取数据库值 Dim conn,cmd,rst Const strConn="pro

新建*.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 ? ? ??

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!