51Testing软件测试论坛

标题: QTP链接数据库，是不是一定要先建立ODBC连接？ [打印本页]
作者: FLY000    时间: 2011-5-30 16:41
标题: QTP链接数据库，是不是一定要先建立ODBC连接？
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=extmailWD=123456ORT=3306;SERVER=192.168.2.52;UID=root"
'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


如果没有进行第3个步骤，没有添加默认数据源，可以用普通方式连接Dim Conn
Set Conn=CreateObject("ADODB.Connection")
'Const ConnectionString="DSN=mysql_Mail;DATABASE=extmailWD=123456ORT=3306;SERVER=192.168.2.52;UID=root"
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


5.qtp脚本实现查询数据库Dim Conn,str,sql,i,sum
Set Conn=CreateObject("ADODB.Connection")'创建数据库实例
Const ConnectionString="DSN=mysql_Mail;DATABASE=extmailWD=123456ORT=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


============================================================
如果没有进行第3个步骤，没有添加默认数据源，可以用普通方式连接
ConnectionString="Driver={Mysql ODBC 5.1 Driver};
1. Mysql ODBC 5.1 Driver是odbc数据驱动的名称吗？
2. 如果mysql是安装在ubuntu系统下，且ubuntu系统中已安装了odbc驱动，那么这个Driver该怎么写？
作者: lyscser    时间: 2011-5-31 17:03
不需要吧，这里有发过几个函数的http://bbs.51testing.com/thread-374191-1-1.html
不过这种用法参数较多，比较繁琐，最好把tns做在配置文件中去读

  1. '******************************************************************************************
  2. '设计说明： 从数据库中抓取指定表和列的数据，依赖ORAOLEDB组件的正常使用，不用创建数据源，不用配置连接串
  3. '程序输入：
  4. '                1. DBUserName -- 数据库用户名
  5. '                2. DBHostAddress -- 数据库主机的域名或IP
  6. '                3. DBServerPort -- 数据库主机的端口
  7. '                4. DBSid -- 数据库实例SID
  8. '                5. DBPassWord -- 数据库用户的密码
  9. '                6. sqlText -- 要执行的sql语句
  10. '                7. tableColumn -- 要抓取的字段
  11. '程序输出： 要抓取的字段
  12. '设计人员:  刘毅（LIUYI）
  13. '设计时间： 2009-09-26
  14. '调用举例： MsgBox FetchDBDataOle("select * from plan","plan_code","A","10.31.10.105","1555","B","C")
  15. '******************************************************************************************

  17. Public Function FetchDBData(DBUserName,DBHostAddress,DBServerPort,DBSid,DBPassWord,sqlText,tableColumn)
  18.         On Error Resume Next
  19.         Set DBRec=createobject("adodb.recordset")
  20.         Set DBCon=createobject("adodb.Connection")
  21.        
  22.         DBCon.ConnectionString="Provider=""OraOLEDB.Oracle"";User ID="&_                       
  23.         DBUserName &";Data Source=""(description =(address = (protocol = tcp)(host = "&_
  24.         DBHostAddress &")(port = "&_
  25.         DBServerPort&"))(connect_data =(sid = "&_
  26.         DBSid&")))"";Password="&_
  27.         DBPassWord&""
  28.        
  29.         DBCon.Open
  30.         DBRec.Open sqlText,DBCon
  31.         FetchDBData = DBRec.Fields(tableColumn)
  32.         DBCon.Close
  33.         Set DBRec = Nothing
  34.         Set DBCon = Nothing       
  35.         ErrorHandle "FetchDBData"
  36. End Function

  38. '******************************************************************************************
  39. '设计说明： 从数据库中抓取指定表和列的数据，基于MSDAORA对象的使用，不用创建数据源，不用配置连接串
  40. '程序输入：
  41. '                1. DBUserName -- 数据库用户名
  42. '                2. DBHostAddress -- 数据库主机的域名或IP
  43. '                3. DBServerPort -- 数据库主机的端口
  44. '                4. DBSid -- 数据库实例SID
  45. '                5. DBPassWord -- 数据库用户的密码
  46. '                6. sqlText -- 要执行的sql语句
  47. '                7. tableColumn -- 要抓取的字段
  48. '程序输出： 要抓取的字段
  49. '设计人员:  刘毅（LIUYI）
  50. '设计时间： 2009-09-26
  51. '调用举例： MsgBox FetchDBData("select * from plan","plan_code","A","10.31.10.105","1555","B","C")
  52. '******************************************************************************************

  54. Public Function FetchDBDataMSDAORA(DBUserName,DBHostAddress,DBServerPort,DBSid,DBPassWord,sqlText,tableColumn)
  55.         On Error Resume Next
  56.         Set DBCon = CreateObject("ADODB.Connection")
  57.         Set DBRec = CreateObject("ADODB.RecordSet")
  58.        
  59.         DBCon.Open = "Provider=""MSDAORA.Oracle"";User ID="&_
  60.         DBUserName&";Data Source=""(description =(address = (protocol = tcp)(host = "&_
  61.         DBHostAddress &")(port = "&_
  62.         DBServerPort&"))(connect_data =(sid = "&_
  63.         DBSid&")))"";Password="&_
  64.         DBPassWord&""
  65.        
  66.         DBRec.OPEN sqlText,DBCon
  67.         FetchDBDataMSDAORA = DBRec.fields(tableColumn)       
  68.         DBCon.close
  69.         Set DBCon =Nothing
  70.         Set DBRec = Nothing       
  71.         ErrorHandle "FetchDBDataMSDAORA"
  72. End Function

  74. '******************************************************************************************
  75. '设计说明： 按照传入SQL修改数据库的值，依赖ORAOLEDB组件的正常使用，不用创建数据源，不用配置连接串
  76. '程序输入：
  77. '                1. DBUserName -- 数据库用户名
  78. '                2. DBHostAddress -- 数据库主机的域名或IP
  79. '                3. DBServerPort -- 数据库主机的端口
  80. '                4. DBSid -- 数据库实例SID
  81. '                5. DBPassWord -- 数据库用户的密码
  82. '                6. sqlText -- 要执行的sql语句
  83. '程序输出： 无
  84. '设计人员:  刘毅（LIUYI）
  85. '设计时间： 2009-09-26
  86. '调用举例： Call ModifyDBDataOle("A","10.31.10.105","1555","B","C"，"update Test set colNum = 'A' where colNum = 'B'")
  87. '******************************************************************************************

  89. Public Function ModifyDBData(DBUserName,DBHostAddress,DBServerPort,DBSid,DBPassWord,sqlText)
  90.         On Error Resume Next
  91.         Set DBRec=createobject("adodb.recordset")
  92.         Set DBCom=createobject("adodb.command")       
  93.        
  94.         DBCom.activeconnection="Provider=""OraOLEDB.Oracle"";User ID="&_
  95.         DBUserName&";Data Source=""(description =(address = (protocol = tcp)(host = "&_
  96.         DBHostAddress&")(port = "&_
  97.         DBServerPort&"))(connect_data =(sid = "&_
  98.         DBSid&")))"";Password="&_
  99.         DBPassWord&""
  100.        
  101.         DBCom.CommandType = 1       
  102.         DBCom.CommandText = sqlText
  103.         Set DBRec = DBCom.Execute()       
  104.         DBCom.CommandText = "commit"
  105.         Set DBRec = DBCom.Execute()       
  106.         Set DBRec = Nothing
  107.         Set DBCom = Nothing       
  108.         ModifyDBData = ErrorHandle("ModifyDBData")
  109. End Function       

  111. '******************************************************************************************
  112. '设计说明： 按照传入SQL修改数据库的值，基于MSDAORA对象的使用，不用创建数据源，不用配置连接串
  113. '程序输入：
  114. '                1. DBUserName -- 数据库用户名
  115. '                2. DBHostAddress -- 数据库主机的域名或IP
  116. '                3. DBServerPort -- 数据库主机的端口
  117. '                4. DBSid -- 数据库实例SID
  118. '                5. DBPassWord -- 数据库用户的密码
  119. '                6. sqlText -- 要执行的sql语句
  120. '程序输出： 无
  121. '设计人员:  刘毅（LIUYI）
  122. '设计时间： 2009-09-26
  123. '调用举例： Call ModifyDBData("A","10.31.10.105","1555","B","C"，"update Test set colNum = 'A' where colNum = 'B'")
  124. '******************************************************************************************

  126. Public Function ModifyDBDataMSDAORA(DBUserName,DBHostAddress,DBServerPort,DBSid,DBPassWord,sqlText)
  127.         On Error Resume Next
  128.         Set DBCon = CreateObject("ADODB.Connection")
  129.         Set DBRec = CreateObject("ADODB.RecordSet")       
  130.        
  131.         DBCon.Open = "Provider=""MSDAORA.Oracle"";User ID="&_
  132.         DBUserName&";Data Source=""(description =(address = (protocol = tcp)(host = "&_
  133.         DBHostAddress &")(port = "&_
  134.         DBServerPort&"))(connect_data =(sid = "&_
  135.         DBSid&")))"";Password="&_
  136.         DBPassWord&""
  137.        
  138.         DBRec.OPEN sqlText,DBCon
  139.         DBRec.OPEN "commit",DBCon       
  140.         DBCon.Close
  141.         Set DBCon =Nothing
  142.         Set DBRec = Nothing       
  143.         ModifyDBDataMSDAORA = ErrorHandle("ModifyDBDataMSDAORA")
  144. End Function
复制代码
作者: yang591561950    时间: 2011-6-11 15:20
不需要吧，我记得我就没安装过，附加数据库就行了
作者: joanchongzi    时间: 2011-6-13 10:47
关注学习ing……
作者: FLY000    时间: 2011-6-13 17:05
是的，安装一个Mysql的jdbc驱动，然后再在连接字符串里直接使用这个jdbc驱动名

   strConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=192.168.0.28;DATABASE=regcode_protect;User Id=rootassWord=123456"
作者: w520hua    时间: 2011-7-23 11:26
回复 1# FLY000


    版主我有一个问题：

我现在用的是wamp安装包，里面包含了php+mysql+apache.那么我现在配置这个数据源驱动还要单独下载mysql驱动吗？

还有一个就是 飞机订票系统操作的数据库就是ODBC中设置的.mdb文件    这句话我要怎么去设置才能运用啊？  我是在 《QTP从实践到精通》一书中低37页 设置及录制一节中看到这个设置订票系统的ODBC。不知道怎么设置的。。。。

好头疼啊...
作者: 小燕呢喃萌妹纸    时间: 2015-4-20 09:58
如果有bug，数据库没有查询到内容，“str.MoveFirst”操作会弹出异常框，整个自动化停止，这个楼主怎么办呢？晚上跑全量自动化，早上来发现一直卡在这里。



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2