6.16(QTP与SQL连接并读取SQL里的字段)

'定义变量

Dim con 
dim conset
Dim rs
Dim sql
Dim names
Dim i
'创建连接对象
Set con=createobject("adodb.connection")

'连接设置。等号后面的值可以通过以下方法获得：
'1.选择菜单  Insert>Output Value>DataBaseOutPutValue，打开“Database Query Wizard”窗口
''2.Query definition选择“Specify SQL statement manually”，点击“下一步”到下一窗口。
'3.点击“Create”，选择文件数据源，回到前一窗口。（注：ODBC文件数据源必须预先设置好）
'4.复制Connection string框中的内容，该内容即为连接设置。
conset="DSN=qiau;Description=qiau;APP=QuickTest Professional;WSID=IT21;DATABASE=qiau;Trusted_Connection=Yes"
'建立连接
con.open conset
'查看连接是否已建立
If  con.state=0 Then
 msgbox"failed"
 else
 msgbox"pass"
End If
'建立空的记录集
Set rs=createobject("adodb.recordset")
'设置SQL语句
sql="select names from qiau"
'打开记录集

rs.open sql,con
rs.MoveFirst
'将记录集中"names"列的0-2行数据Copy到QTP当前DataTable的"names"列中
Do until rs.eof
datatable.SetCurrentRow("i+1")
datatable.value("names",global)=rs("names")
msgbox rs("names")
rs.MoveNext
i=i+1
Loop
'关闭连接
con.close
'释放Connection对象
Set con=nothing

 

总结：连数据库连了好几天了。总于连接成功了(小小的高兴一下)，目前只是实现了读取了SQL里的字符,但不知道如何把从SQL读取的字符保存到datatable中。对于这个保存的问题还在研究中~~~~如果那们博友知道的话，烦告诉小妹下下哦~~~~~