qtp连接数据库实现参数化

'创建数据库连接
StrConn="Provider=SQLOLEDB.1; Persist Security Info=True; User ID=sa;Password=1;Initial Catalog=FVAP_MT_Voter_New; Data Source=192.168.1.100"
Set Conn=CreateObject("Adodb.connection")
Set Rst=CreateObject("Adodb.RecordSet")
Conn.Open StrConn

 

'设置查询语句
sql = "select top 10  firstname,lastname,birthdate,middlename from dbo.FVAP_AllElectorate"

'打开数据库连接

Rst.Open sql,conn

'循环读数据

Do while not Rst.EOF

'取字段值

firstname=trim(cstr(Rst.Fields("firstname")))

msgbox(firstname)

'读下一行

Rst.MoveNext
Loop

 

'关闭连接

Rst.Close
Conn.Close
Set Conn=nothing