1、安裝 Connector/ODBC

2、查看數(shù)據(jù)源名稱

『控制面板』- 『管理工具』- 『數(shù)據(jù)源(ODBC)』-『添加』

3、連接數(shù)據(jù)庫(kù)

Dim Conn,ConnString

'創(chuàng)建數(shù)據(jù)庫(kù)實(shí)例

Set Conn=CreateObject("ADODB.Connection")

'連接字符串

ConnString="Driver={Mysql ODBC 5.2w Driver};DATABASE=mysql;UID=root;PWD=root;PORT=3306;SERVER=localhost;"

'打開數(shù)據(jù)庫(kù)連接

Conn.Open ConnString

If Conn.State<>0 Then

Msgbox "連接數(shù)據(jù)庫(kù)成功"

Else

Msgbox"連接數(shù)據(jù)庫(kù)失敗"

End If

'關(guān)閉數(shù)據(jù)庫(kù)實(shí)例

Conn.Close

Set Conn = Nothing

4、數(shù)據(jù)庫(kù)查詢實(shí)例

Dim Conn,ConnString,strSQLString,strRecordset,i,sum

Set Conn=CreateObject("ADODB.Connection")

ConnString="Driver={Mysql ODBC 5.2w Driver};DATABASE=mysql;UID=root;PWD=root;PORT=3306;SERVER=localhost;"

Conn.Open ConnString

If Conn.State<>0 Then

Call Query()

else

Msgbox "連接數(shù)據(jù)庫(kù)失敗"

End If

Function Query()

'創(chuàng)建數(shù)據(jù)集實(shí)例

Set strRecordset = CreateObject("ADODB.Recordset")

'查詢數(shù)據(jù)庫(kù)

strSQLString = "Select * from db"

'1,1表示只讀;1,3表示插入數(shù)據(jù);2,3表示修改數(shù)據(jù)

strRecordset.Open strSQLString,conn,1,1

'使游標(biāo)指向第一個(gè)記錄

strRecordset.MoveFirst

sum=""

While Not strRecordset.EOF

For i=0 to strRecordset.Fields.Count-1

sum=sum & strRecordset(i) & " "

Next

Msgbox sum & vbCRLF

'使游標(biāo)進(jìn)入下一個(gè)

strRecordset.MoveNext

Wend

'關(guān)閉數(shù)據(jù)集實(shí)例

strRecordset.Close

Set strRecordset=Nothing

End Function

'關(guān)閉數(shù)據(jù)庫(kù)實(shí)例

Conn.Close

Set Conn=Nothing

總結(jié)

以上是生活随笔為你收集整理的qtp连接mysql 无驱动_QTP连接MySQL的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。