使用ADO 將ACCESS數(shù)據(jù)庫中的表導(dǎo)入到MYSQL數(shù)據(jù)庫中
Dim AdoRst As New ADODB.Recordset 'MySql 數(shù)據(jù)庫的ST表
Dim Adoact As New ADODB.Recordset 'ACCESS 數(shù)據(jù)庫的ST表
Dim i As Integer
AdoRst.Open "ST", "DRIVER={MySQL ODBC 3.51 Driver};SERVER=127.0.0.1;DATABASE=mydb;;USER=root;PASSWORD=********;OPTION=3;", adOpenStatic, adLockOptimistic, -1
Adoact.Open "st", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ks.mdb;Persist Security Info=False"

Dim tt() As Byte
Dim ss() As Byte

tt = adoact.Fields(1).Value
ss = adoact.Fields(2).Value

AdoRst.AddNew
AdoRst.Fields(0).Value = i
AdoRst.Fields(1).Value = tt
AdoRst.Fields(2).Value = ss
AdoRst.Update