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

最新推荐文章于 2021-03-27 03:12:12 发布

原创最新推荐文章于 2021-03-27 03:12:12 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#mysql #数据库 #vb #access #integer #security

VB 专栏收录该内容

15 篇文章

订阅专栏

本文介绍了一种使用Visual Basic 6.0结合ADO技术将Microsoft Access数据库中的表导入到MySQL数据库的方法。通过示例代码展示了如何打开数据库连接、读取Access表数据并写入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

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