51Testing软件测试论坛

标题: qtp查询mysql遇到的一点小事情 [打印本页]

作者: 许丫头 时间: 2011-10-11 15:00
标题: qtp查询mysql遇到的一点小事情
本帖最后由许丫头于 2011-10-11 15:01 编辑

今天在学习qtp连接数据库的时候遇到一点小问题
**********************连接数据库**********************
Dim Conn
Set Conn=CreateObject("ADODB.Connection")
'先要配置数据源
Const ConnectionString="DSN=xuyantest;DATABASE=sysoperandmanidb

WD=123456

ORT=3306;SERVER=192.168.0.141;UID=root;charset=gb2312"
'未配置数据源
'Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=extmail

WD=123456

ORT=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="Select  F_PerLoginID,F_PerRealName,F_PerDegree  from 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
如何只显示图片中的最后一行啊

作者: 许丫头 时间: 2011-10-11 15:24
回复 1# 许丫头
自己给自己顶一下，已经解决了
sum= res.Fields("F_PerLoginID") &"," & res.Fields("F_PerRealName") &"," & res.Fields("F_PerDegree")'把整个记录显示出来
这样写就可以了

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)