图解MySQL数据库的安装和操作 （1）

核心提示： 'XP Professional SP2 + VB6.0 + MySQL(和PHP搭配之最佳组合)5.0 + MySQL(和PHP搭配之最佳组合) ODBC 3.51' 使用ADO 将ACCESS数据库中的表导入到MySQL(和PHP搭配之最佳组合)数据库中 Dim AdoRst As N

'XP Professional  SP2  + 　 VB6.0 + MySQL(和PHP搭配之最佳组合)5.0  +　  MySQL(和PHP搭配之最佳组合) ODBC 3.51

' 使用ADO 将ACCESS数据库中的表导入到MySQL(和PHP搭配之最佳组合)数据库中

  Dim AdoRst As New ADODB.Recordset　　 'MySQL(和PHP搭配之最佳组合) 数据库的ST表
  Dim Adoact As New ADODB.Recordset　　  'ACCESS 数据库的ST表
  Dim i As Integer
  AdoRst.Open "ST", "DRIVER={MySQL(和PHP搭配之最佳组合) 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

文本方式查看只有几个字符：
(和PHP搭配之最佳组合)数据库中二进制数据问题（图一）" width="433" height="231" />

16进制方式查看：

(和PHP搭配之最佳组合)数据库中二进制数据问题（图二）" width="575" height="342" />