我在用VB访问MySQL的时候, Set MySqlDB = New ADODB.Connection
Dim Sdb As String
Sdb = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=10.20.5.25;" & "DATABASE=fudanproject_new;" & "UID=root;PWD=123;OPTION=3;PORT=3306"
MySqlDB.Open Sdb
Dim strsql As String
strsql = "select * from users"
Dim rdSet As New ADODB.Recordset
Set rdSet = New Recordset
rdSet.Open strsql, MySqlDB, 1, 1
Dim i As Integer
If Not rdSet Then
cmbUser.Clear
With rdSet
For i = 0 To .RecordCount - 1
cmbUser.AddItem (Trim(.Fields!taskID))
.MoveNext
Next i
End With
End If这时,rdSet.RecordCount为-1,这是怎么回事呢?
Dim Sdb As String
Sdb = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=10.20.5.25;" & "DATABASE=fudanproject_new;" & "UID=root;PWD=123;OPTION=3;PORT=3306"
MySqlDB.Open Sdb
Dim strsql As String
strsql = "select * from users"
Dim rdSet As New ADODB.Recordset
Set rdSet = New Recordset
rdSet.Open strsql, MySqlDB, 1, 1
Dim i As Integer
If Not rdSet Then
cmbUser.Clear
With rdSet
For i = 0 To .RecordCount - 1
cmbUser.AddItem (Trim(.Fields!taskID))
.MoveNext
Next i
End With
End If这时,rdSet.RecordCount为-1,这是怎么回事呢?
rdSet.CursorLocation = adUseClient
楼主可以用ADO控件的connectiongstring属性生成连接字符串
有几种方式:DSN的,文件DSN的,还有就是直接连SQL的
怎么说呢,毕竟是ms的东西吧
但是配置麻烦
你要每个客户机都配置一次
是不是运行程序的每一台机器上,都要安装mysql-odbc-3.51呢?这也比较麻烦吧?