vb、linux与mysql http://www.csdn.net/expert/topic/357/357718.shtm应该可以! 1.首先,确认 MySQL 装在 Linux 正确无误! (确切地说与 MySQL 的服务器端的操作系统无关,总之客户端既然是 VB,那就必然是 Windows 系列) 2.VB 中可以采用 ODBC + OLE DB 方式连接 MySQL,可在下面页面下载 MyODBC,并安装: http://210.77.60.218/mirror/mysql/downloads/api-myodbc.html MyODBC 2.50.39 for Windows95/98 (full setup) http://210.77.60.218/mirror/mysql/Downloads/MyODBC/myodbc-2.50.39-win95.zip
MyODBC 2.50.39 for NT/2000 (full setup) http://210.77.60.218/mirror/mysql/Downloads/MyODBC/myodbc-2.50.39-nt.zip MyODBC 2.50.39 Windows95/98 and NT/2000 (only myodbc.dll and myodbc2.dll) http://210.77.60.218/mirror/mysql/Downloads/MyODBC/myodbc-2.50.39-dll.zip
Source for MyODBC 2.50.39 for Windows95/98 or NT/2000 http://210.77.60.218/mirror/mysql/Downloads/MyODBC/myodbc-2.50.39-src.zip============================================================================== 也可以采用 OLE DB 方式连接 MySQL,可在下面页面下载 MyOLEDB ,并安装: (含大量 VB + ADO + OLE DB + MySQL 例程) http://210.77.60.218/mirror/mysql/downloads/os-win32.html MyOLEDB.chm (468K, modified: 2001/01/30) http://210.77.60.218/mirror/mysql/Downloads/Win32/MyOLEDB.chm MyOLEDB.exe (4.6M, modified: 2001/01/29) http://210.77.60.218/mirror/mysql/Downloads/Win32/MyOLEDB.exe Myoledb.zip (278K, modified: 2001/01/29) http://210.77.60.218/mirror/mysql/Downloads/Win32/Myoledb.zip MySamples.zip (604K, modified: 2001/01/29) http://210.77.60.218/mirror/mysql/Downloads/Win32/MySamples.zip '代码样例: Dim adoConnection As New adodb.Connection 'ODBC + OLE DB 方式 'adoConnection.Open "Provider=MSDASQL.1;Driver={MySQL};host=localhost;DataBase=test;User ID=monty" 'OLE DB 方式 (强烈建议) adoConnection.Open "Provider=MySqlProv.2.5;data source=test;User ID=monthy;server=yuer" Dim adoRecordset As New adodb.Recordset 'adoRecordset.CursorLocation = adUseClient 'ODBC + OLE DB 方式必须有此句,方能用 DataGrid 显示 adoRecordset.Open "SELECT * FROM sample2", adoConnection ', adOpenKeyset If Not adoRecordset.EOF Then Debug.Print adoRecordset.GetString End If Set DataGrid1.DataSource = adoRecordset
用流的形式添加我已经成功,但修改确实不行 Dim cn As New ADODB.Connection cn.Open "dsn=fingerdata;uid=root;pwd="
Dim RS As New ADODB.Recordset Dim stm As ADODB.Stream
Set stm = New ADODB.Stream
rs.Open "Select finger1 from ", Cn, adOpenKeyset, adLockOptimistic
http://www.csdn.net/expert/topic/357/357718.shtm应该可以!
1.首先,确认 MySQL 装在 Linux 正确无误!
(确切地说与 MySQL 的服务器端的操作系统无关,总之客户端既然是 VB,那就必然是 Windows 系列)
2.VB 中可以采用 ODBC + OLE DB 方式连接 MySQL,可在下面页面下载 MyODBC,并安装:
http://210.77.60.218/mirror/mysql/downloads/api-myodbc.html MyODBC 2.50.39 for Windows95/98 (full setup)
http://210.77.60.218/mirror/mysql/Downloads/MyODBC/myodbc-2.50.39-win95.zip
MyODBC 2.50.39 for NT/2000 (full setup)
http://210.77.60.218/mirror/mysql/Downloads/MyODBC/myodbc-2.50.39-nt.zip MyODBC 2.50.39 Windows95/98 and NT/2000 (only myodbc.dll and myodbc2.dll)
http://210.77.60.218/mirror/mysql/Downloads/MyODBC/myodbc-2.50.39-dll.zip
Source for MyODBC 2.50.39 for Windows95/98 or NT/2000
http://210.77.60.218/mirror/mysql/Downloads/MyODBC/myodbc-2.50.39-src.zip============================================================================== 也可以采用 OLE DB 方式连接 MySQL,可在下面页面下载 MyOLEDB ,并安装:
(含大量 VB + ADO + OLE DB + MySQL 例程) http://210.77.60.218/mirror/mysql/downloads/os-win32.html MyOLEDB.chm (468K, modified: 2001/01/30)
http://210.77.60.218/mirror/mysql/Downloads/Win32/MyOLEDB.chm MyOLEDB.exe (4.6M, modified: 2001/01/29)
http://210.77.60.218/mirror/mysql/Downloads/Win32/MyOLEDB.exe Myoledb.zip (278K, modified: 2001/01/29)
http://210.77.60.218/mirror/mysql/Downloads/Win32/Myoledb.zip MySamples.zip (604K, modified: 2001/01/29)
http://210.77.60.218/mirror/mysql/Downloads/Win32/MySamples.zip
'代码样例:
Dim adoConnection As New adodb.Connection
'ODBC + OLE DB 方式
'adoConnection.Open "Provider=MSDASQL.1;Driver={MySQL};host=localhost;DataBase=test;User ID=monty"
'OLE DB 方式 (强烈建议)
adoConnection.Open "Provider=MySqlProv.2.5;data source=test;User ID=monthy;server=yuer"
Dim adoRecordset As New adodb.Recordset
'adoRecordset.CursorLocation = adUseClient 'ODBC + OLE DB 方式必须有此句,方能用 DataGrid 显示
adoRecordset.Open "SELECT * FROM sample2", adoConnection ', adOpenKeyset
If Not adoRecordset.EOF Then
Debug.Print adoRecordset.GetString
End If
Set DataGrid1.DataSource = adoRecordset
cn.Open "dsn=fingerdata;uid=root;pwd="
Dim RS As New ADODB.Recordset
Dim stm As ADODB.Stream
Set stm = New ADODB.Stream
rs.Open "Select finger1 from ", Cn, adOpenKeyset, adLockOptimistic
stm.Type = adTypeBinary
stm.Open
stm.LoadFromFile "c:\aaa.dat"
RS.AddNew
RS!finger1 = stm.Read
RS.Update
RS.Close
stm.Close
Set RS = Nothing
Set stm = Nothing
但是如果我想修改记录如:将rs.Open "Select finger1 from ", Cn, adOpenKeyset, adLockOptimistic
改为rs.Open "Select finger1 from where id=6", Cn, adOpenKeyset, adLockOptimistic
将下面的rs.addnew 注释
总是报错
如果你的MY SQL SERVER安装时使用的是WINDOWS NT鉴别模式,则只能在局域网里可以连接客户端,如果使用的是混合模式则应该没有此问题.
你该不会在说Ms Sql Server吧?