VB6 串連MySql資料庫

標籤：

目測 VB6 的資料比較少了，花了好久時間寫了個查詢語句

首先下載驅動程式，我是win7 x64 不知道剛開始下載了一個5.1 x64的驅動為什麼串連不上，總提示找不到驅動，下載5.3 32位後正常

http://dev.mysql.com/downloads/connector/odbc/

Dim cn As New ADODB.ConnectionDim rs As New ADODB.Recordset‘ 定義資料庫連接字串變數Dim strCn As String‘ 定義資料庫連接參數變數Dim db_host As StringDim db_user As StringDim db_pass As StringDim db_data As StringDim cmd As New ADODB.Command‘ 定義 SQL 陳述式變數Dim sql As String‘ 初始化資料庫連接變數db_host = "127.0.0.1"db_user = "root"db_pass = ""db_data = "family"strCn = "DRIVER={MySQL ODBC 5.3 Unicode Driver};" & _         "SERVER=" & db_host & ";" & _         "DATABASE=" & db_data & ";" & _         "UID=" & db_user & ";PWD=" & db_pass & ";" & _         "OPTION=3;stmt=SET NAMES UTF8"         ‘ 串連資料庫‘cn.Open strCn‘ 設定該屬性, 使 recordcount 和 absolutepage 屬性可用‘cn.CursorLocation = adUseClient‘rs.Open "tb_sys_emp", cn, adOpenKeyset, adLockOptimistic‘rs.MoveFirst‘Do While rs.EOF = False‘    Debug.Print rs.Fields("emp_name")‘    rs.MoveNext‘Loop‘rs.Closecn.Open strCnSet cmd.ActiveConnection = cncmd.CommandText = "select emp_name from tb_sys_emp"cmd.CommandType = adCmdTextcmd.CommandTimeout = 15Set rs = cmd.Executers.MoveFirstDo While rs.EOF = False    Debug.Print rs.Fields("emp_name")    rs.MoveNextLooprs.CloseDebug.Print list.Count

 

VB6 串連MySql資料庫