qtp查询mysql遇到的一点小事情
本帖最后由 许丫头 于 2011-10-11 15:01 编辑今天在学习qtp连接数据库的时候遇到一点小问题
**********************连接数据库**********************
Dim Conn
Set Conn=CreateObject("ADODB.Connection")
'先要配置数据源
Const ConnectionString="DSN=xuyantest;DATABASE=sysoperandmanidb;PWD=123456;PORT=3306;SERVER=192.168.0.141;UID=root;charset=gb2312"
'未配置数据源
'Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"
Conn.Open ConnectionString
If Conn.State<>0 Then
Reporter.ReportEvent micPass,"testing","连接数据库成功"
else
Reporter.ReportEvent micFail,"testing","连接数据库失败"
End If
'**********************查询数据库**********************
Set res=CreateObject("ADODB.Recordset")'创建数据集实例'查询数据库
sql="SelectF_PerLoginID,F_PerRealName,F_PerDegreefrom t_om_personinfo "
res.Open sql,conn,1,1 '1,1表示只读;1,3表示插入数据;2,3表示修改数据
res.MoveFirst'使游标指向第一个记录
sum=""
'***************方法一**************************
'While Not res.EOF
'msgbox res.Fields("username")
'For i=0 to res.Fields.Count-1'str.Fields.Count表示字段个数
'sum=sum& res(i) & " " '把整个记录显示出来
' Next
'Print sum & vbCRLF'打印所有查询的记录
'res.MoveNext'使游标进入下一个
' Wend
'*************************************************
'***************方法二**************************
Do While Not res.EOF
'msgbox res.Fields("username")
' For i=0 to res.Fields.Count-1'str.Fields.Count表示字段个数
sum=sum& res.Fields("F_PerLoginID") &"," & res.Fields("F_PerRealName") &"," & res.Fields("F_PerDegree")& " " '把整个记录显示出来
' Next
Print sum & vbCRLF'打印所有查询的记录
res.MoveNext'使游标进入下一个
Loop
'*************************************************
res.Close '关闭数据集实例
Set res=Nothing
Conn.Close'关闭数据库实例
Set Conn=Nothing
====================
file:///e:/aa.png
如何只显示图片中的最后一行啊 回复 1# 许丫头
自己给自己顶一下，已经解决了
sum= res.Fields("F_PerLoginID") &"," & res.Fields("F_PerRealName") &"," & res.Fields("F_PerDegree")'把整个记录显示出来
这样写就可以了
页:
[1]
