xp professional  sp2  +    vb6.0 + mysql5.0  +    mysql odbc 3.51

使用ado 将access数据库中的表导入到mysql数据库中

  dim adorst as new adodb.recordset     mysql 数据库的st表
  dim adoact as new adodb.recordset      access 数据库的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

文本方式查看只有几个字符：

16进制方式查看：