qtp 怎样连接mysql数据库操作

1.首先安装mysql数据驱动，qtp在windows系统下操作连接mysql，所以下载mysql-connector-odbc-   5.1.8-win32.msi

   下载地址：http://mysql.mirrors.pair.com/Downloads/Connector-ODBC/5.1/mysqlconnector-odbc-5.1.8-win32.msi

2.安装mysql驱动 ，默认安装即可。

3. 添加默认数据源

   控制面板->管理工具->数据源ODBC->系统DNS->添加->在“创建数据源”对话框中选择

  “Mysql   ODBC 5.1 Driver”->完成->进入连接对话框->填写完后点击“test”，看看是否成功，成功后配置完成。

 

4.qtp脚本实现连接mysql数据库

 如果操作了第3步骤，天机了mysql默认数据源，脚本可以写成：

  
  
  

   
   
   Dim
   
   
    Conn

   
   
   Set
   
   
    Conn
   
   
   =
   
   
   CreateObject
   
   
   (
   
   
   "
   
   
   ADODB.Connection
   
   
   "
   
   
   )

   
   
   Const
   
   
    ConnectionString
   
   
   =
   
   
   "
   
   
   DSN=mysql_Mail;DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root
   
   
   "
   
   
   

   
   
   '
   
   
   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
  
  
  

如果没有进行第3个步骤，没有添加默认数据源，可以用普通方式连接

  
  
  

   
   
   Dim
   
   
    Conn

   
   
   Set
   
   
    Conn
   
   
   =
   
   
   CreateObject
   
   
   (
   
   
   "
   
   
   ADODB.Connection
   
   
   "
   
   
   )

   
   
   '
   
   
   Const ConnectionString="DSN=mysql_Mail;DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"
   
   
   

   
   
   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
  
  
  

5.qtp脚本实现查询数据库

  
  
  

   
   
   Dim
   
   
    Conn,str,sql,i,sum

   
   
   Set
   
   
    Conn
   
   
   =
   
   
   CreateObject
   
   
   (
   
   
   "
   
   
   ADODB.Connection
   
   
   "
   
   
   )
   
   
   '
   
   
   创建数据库实例
   
   
   

   
   
   Const
   
   
    ConnectionString
   
   
   =
   
   
   "
   
   
   DSN=mysql_Mail;DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root
   
   
   "
   
   
   

   
   
   '
   
   
   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
   
   
    str
   
   
   =
   
   
   CreateObject
   
   
   (
   
   
   "
   
   
   ADODB.Recordset
   
   
   "
   
   
   )
   
   
   '
   
   
   创建数据集实例
   
   
   

   
   
   

   
   
   '
   
   
   查询数据库
   
   
   

   
   
    sql
   
   
   =
   
   
   "
   
   
   Select * from manager where type='postmaster'
   
   
   "
   
   
   
 str.Open sql,conn,
   
   
   1
   
   
   ,
   
   
   1
   
   
    
   
   
   '
   
   
   1,1表示只读;1,3表示插入数据;2,3表示修改数据
   
   
   

   
   
    str.MoveFirst
   
   
   '
   
   
   使游标指向第一个记录
   
   
   

   
   
   sum
   
   
   =
   
   
   ""
   
   
   

   
   
   While
   
   
    
   
   
   Not
   
   
    str.EOF

   
   
   '
   
   
   msgbox str.Fields("username")
   
   
   

   
   
    
   
   
   For
   
   
    i
   
   
   =
   
   
   0
   
   
    
   
   
   to
   
   
    str.Fields.Count
   
   
   -
   
   
   1
   
   
   '
   
   
   str.Fields.Count表示字段个数
   
   
   

   
   
    sum
   
   
   =
   
   
   sum 
   
   
   &
   
   
    str(i) 
   
   
   &
   
   
    
   
   
   "
   
   
    
   
   
   "
   
   
    
   
   
   '
   
   
   把整个记录显示出来
   
   
   

   
   
    
   
   
   Next
   
   
   
 Print sum 
   
   
   &
   
   
    vbCRLF
   
   
   '
   
   
   打印所有查询的记录
   
   
   

   
   
    str.MoveNext
   
   
   '
   
   
   使游标进入下一个
   
   
   

   
   
   Wend
   
   
   

str.Close 
   
   
   '
   
   
   关闭数据集实例
   
   
   

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

   
   
   Set
   
   
    Conn
   
   
   =
   
   
   Nothing