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

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值