vb如何与mysql建立连接，最好能给个例子

Question

建立一个DATA控件，一个条件输入框，一个MSFLEXGRID控件和一个COMMAND按扭。
将MSFLEXGRID与DATA控件建立连接，再使用如下程序即可。
Private Sub Command1_Click()
Dim sql1 As String
sql1 = CStr(Text1.Text)
DoSql (sql1)
Data1.Refresh
End SubSub DoSql(sql1)
    Dim mysql$
    mysql$ = "SELECT "
    mysql = mysql & " * from 系别 where id="
    mysql = mysql & sql1
    Data1.RecordSource = mysql
    
End Sub

Answer 1

信我的,没错的!
Dim adoConnection as New ADODB.Connection
Dim adoRecordset as New ADODB.Recordset
adoConnection.Open "Data Provider=MSDASQL.1;User ID=;Password =;driver=MySQL;host=localhost;database=test"
adoRecordset.Open "SELECT * FROM TableName",adoConnection

Answer 2

ado的好处在这里就可以体现出来

Answer 3

估计还要先安装一个mysql odbc driver 吧！？