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

　2007-11-11 16:54:25　来源：WEB开发网　闂備線娼уΛ鎾箯閿燂拷

濠电姭鎷冮崨顓濈捕闂侀潧娲ゅú銊╁焵椤掍胶鈯曢柕鍥╁仧缁辩偤鏁撻敓锟�闂備線娼уΛ鎾箯閿燂拷　　闂備胶枪缁绘鈻嶉弴銏犳瀬闁绘劕鐏氱€氼剟姊洪崹顕呭剰闁逞屽墮缁夊綊寮婚妸褉鍋撻棃娑欏暈闁伙綀浜埀顒傛暬閸嬪﹪宕伴弽褏鏆﹂柨鐕傛嫹

核心提示： '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

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