2.安裝mysql驅(qū)動 ，默認安裝即可。
3. 添加默認數(shù)據(jù)源
控制面板->管理工具->數(shù)據(jù)源ODBC->系統(tǒng)DNS->添加->在“創(chuàng)建數(shù)據(jù)源”對話框中選擇
“Mysql ODBC 5.1 Driver”->完成->進入連接對話框->填寫完后點擊“test”，看看是否成功，成功后配置完成。
4.qtp腳本實現(xiàn)連接mysql數(shù)據(jù)庫
如果操作了第3步驟，天機了mysql默認數(shù)據(jù)源，腳本可以寫成：
SetConn=CreateObject("ADODB.Connection")
ConstConnectionString="DSN=mysql_Mail;DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"
IfConn.State<>0Then
Reporter.ReportEvent micPass,"testing","連接數(shù)據(jù)庫成功"
Reporter.ReportEvent micFail,"testing","連接數(shù)據(jù)庫失敗"
如果沒有進行第3個步驟，沒有添加默認數(shù)據(jù)源，可以用普通方式連接
'Const ConnectionString="DSN=mysql_Mail;DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"
ConstConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"
else
Reporter.ReportEvent micFail,"testing","連接數(shù)據(jù)庫失敗"
EndIf
5.qtp腳本實現(xiàn)查詢數(shù)據(jù)庫
SetConn=CreateObject("ADODB.Connection")'創(chuàng)建數(shù)據(jù)庫實例
Conn.Open ConnectionString
If Conn.State<>0 Then
Reporter.ReportEvent micPass,"testing","連接數(shù)據(jù)庫成功"
Reporter.ReportEvent micFail,"testing","連接數(shù)據(jù)庫失敗"
Set str=CreateObject("ADODB.Recordset")'創(chuàng)建數(shù)據(jù)集實例
'查詢數(shù)據(jù)庫
sql="Select * from manager where type='postmaster'"str.Open sql,conn,1,1'1,1表示只讀;1,3表示插入數(shù)據(jù);2,3表示修改數(shù)據(jù)
str.MoveFirst'使游標指向第一個記錄
sum=""
WhileNotstr.EOF
'msgbox str.Fields("username")
Fori=0tostr.Fields.Count-1'str.Fields.Count表示字段個數(shù)
sum=sum&str(i)&""'把整個記錄顯示出來
Next
Print sum&vbCRLF'打印所有查詢的記錄
str.MoveNext'使游標進入下一個
Wend
str.Close'關(guān)閉數(shù)據(jù)集實例
Set str=Nothing
Conn.Close'關(guān)閉數(shù)據(jù)庫實例
Set Conn=Nothing
