QTP链接数据库，是不是一定要先建立ODBC连接？

FLY000

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该怎么写？

小燕呢喃萌妹纸

如果有bug，数据库没有查询到内容，“str.MoveFirst”操作会弹出异常框，整个自动化停止，这个楼主怎么办呢？晚上跑全量自动化，早上来发现一直卡在这里。

w520hua

回复 1# FLY000


    版主我有一个问题：

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

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

好头疼啊...

FLY000

是的，安装一个Mysql的jdbc驱动，然后再在连接字符串里直接使用这个jdbc驱动名

   strConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=192.168.0.28;DATABASE=regcode_protect;User Id=rootassWord=123456"

joanchongzi

关注学习ing……

yang591561950

不需要吧，我记得我就没安装过，附加数据库就行了

lyscser

不需要吧，这里有发过几个函数的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. '******************************************************************************************
    
16. 
    
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
    
37. 
    
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. '******************************************************************************************
    
53. 
    
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
    
73. 
    
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. '******************************************************************************************
    
88. 
    
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       
     
110. 
     
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. '******************************************************************************************
     
125. 
     
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

复制代码