用 flying_ylh(一平) 的办法不错,不过,个人认为 建立一个数据源好一点,还有不少的选项控制呢。下面代码放到模块里Public rn As ADODB.Connection Public Function CreateDataSource() As Boolean On Error GoTo DbConErr: Set rn = New ADODB.Connection With rn .ConnectionString = "DSN=mysql;UID=root;PWD=root;;DATABASE=vbb;" .Open End With CreateDataSource = True Exit Function DbConErr: CreateDataSource = False End Function 用的时候 If CreateDataSource() Then Dim rs As New ADODB.Recordset rs.ActiveConnection = rn rs.Source = "SELECT * FROM yourtable" rs.Open endif用vb做出来一个vbb感觉真好啊。还有:最好要用早期的myodbc,好像是3.51.04那个,记不得了,好像有700k左右吧, 新的速度很慢,不知道为什么?
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=\\机器名 ;" & " DATABASE=test;" & "UID=root;PWD=123; OPTION=3"
conn.Open其他的和你连access啊sql server都没啥区别了,可能具体个别sql语法有些出入,你到时候调整一下就可以了另,MySQL ODBC 3.51 Driver需要安装的。:)
ODBC--------电网
数据库------发电厂
程序--------家用电器发电厂只要能把电送上电网,家用电器就能用到电。
数据<====>电力
用 flying_ylh(一平) 的办法不错,不过,个人认为 建立一个数据源好一点,还有不少的选项控制呢。下面代码放到模块里Public rn As ADODB.Connection
Public Function CreateDataSource() As Boolean
On Error GoTo DbConErr:
Set rn = New ADODB.Connection
With rn
.ConnectionString = "DSN=mysql;UID=root;PWD=root;;DATABASE=vbb;"
.Open
End With
CreateDataSource = True
Exit Function
DbConErr:
CreateDataSource = False
End Function
用的时候
If CreateDataSource() Then
Dim rs As New ADODB.Recordset
rs.ActiveConnection = rn
rs.Source = "SELECT * FROM yourtable"
rs.Open
endif用vb做出来一个vbb感觉真好啊。还有:最好要用早期的myodbc,好像是3.51.04那个,记不得了,好像有700k左右吧,
新的速度很慢,不知道为什么?