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默认数据源，脚本可以写成：
|
1
2
3
4
5
6
7
8
9
10
|
Dim
Conn
Set
Conn=CreateObject(
"ADODB.Connection"
)
ConstConnectionString=
"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个步骤，没有添加默认数据源，可以用普通方式连接
|
1
2
3
4
5
6
7
8
9
10
|
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脚本实现查询数据库
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
Dim
Conn,str,sql,i,sum
Set
Conn=CreateObject(
"ADODB.Connection"
)
'创建数据库实例
ConstConnectionString=
"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
|
如果你對現在不滿意...否則你就好好學,因爲你還只是菜鳥...
技术改变世界！ --狂诗绝剑