1、安裝 Connector/ODBC

2、查看數據源名稱

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

3、連接數據庫

Dim Conn,ConnString

'創建數據庫實例

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

Msgbox "連接數據庫成功"

Else

Msgbox"連接數據庫失敗"

End If

'關閉數據庫實例

Conn.Close

Set Conn = Nothing

4、數據庫查詢實例

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 "連接數據庫失敗"

End If

Function Query()

'創建數據集實例

Set strRecordset = CreateObject("ADODB.Recordset")

'查詢數據庫

strSQLString = "Select * from db"

'1,1表示只讀;1,3表示插入數據;2,3表示修改數據

strRecordset.Open strSQLString,conn,1,1

'使游標指向第一個記錄

strRecordset.MoveFirst

sum=""

While Not strRecordset.EOF

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

sum=sum & strRecordset(i) & " "

Next

Msgbox sum & vbCRLF

'使游標進入下一個

strRecordset.MoveNext

Wend

'關閉數據集實例

strRecordset.Close

Set strRecordset=Nothing

End Function

'關閉數據庫實例

Conn.Close

Set Conn=Nothing

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。