发新话题
打印

使用VB处理MYSQL数据库中二进制数据问题

使用VB处理MYSQL数据库中二进制数据问题

'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进制方式查看:

TOP

发新话题