qtp查询mysql遇到的一点小事情

许丫头

今天在学习qtp连接数据库的时候遇到一点小问题
**********************连接数据库**********************
Dim Conn
Set Conn=CreateObject("ADODB.Connection")
'先要配置数据源
Const ConnectionString="DSN=xuyantest;DATABASE=sysoperandmanidbWD=123456ORT=3306;SERVER=192.168.0.141;UID=root;charset=gb2312"
'未配置数据源
'Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=extmailWD=123456ORT=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
如何只显示图片中的最后一行啊

许丫头

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