qtp连接mysql数据库

今天下午还学习了qtp连接mysql数据库并查询。这部分手工操作比较少了，大部分是要写代码的。

在网上找了相关的例子，结合自己的：（我是配置的数据源，网上这部分内容很多，可以自己找找）

'**********************连接数据库**********************
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="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= res.Fields("F_PerLoginID") &"," & res.Fields("F_PerRealName") &"," & res.Fields("F_PerDegree")'把整个记录显示出来   
   ' Next  
  Print sum'打印所有查询的记录   
  res.MoveNext'使游标进入下一个
Loop
'*************************************************

res.Close      '关闭数据集实例
Set res=Nothing
Conn.Close  '关闭数据库实例
Set Conn=Nothing

 

 

因为自己有过编程经验，所以这些对我来说还是很轻松的。

还是要继续努力的。