请教VB连接ACCESS问题 各位大侠:我用DATA控件连接ACCESS数据库时,发现95版的连的上,2000版的连不上,出现提示“不可识别的数据格式“某某文件路径””,我的VB是6.0的,请教我要怎样才能连上2000版的? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你应该使用Microsoft.Jet.OLEDB.4.0连接 DATA控件不能连接2000及以上的ACCESS数据库,改变链接方式吧方法:菜单"工程/引用/Microsoft ActiveX Data Object Library 2.0Option ExplicitDim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Form_Load() cn.ConnectionString = "DBQ=" & App.Path & "\ZhiZhao.mdb;DefaultDir=" & _ App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _ "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _ "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _ "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;" cn.Open rs.Open "select * from tablename", cn, adOpenDynamic, adLockPessimistic rs.AddNew '添加一条 rs!Name = "张三" rs.Update '保存End Sub 引用Microsoft DAO 3.6 object Library 把引擎改为Microsoft.Jet.OLEDB.4.0 用ADO和JET4.0 连接即可!!!!! VB菜单中 [工程]->[引用]加上 Microsoft Dao3.6 Object Library 即可 若还不行可以mailto : [email protected] 给你个例子 因为Access97 和 Access2000 格式不同, 97用 dao3.5 2000就要用 dao3.6 你用ACCESS-->>tools-->数据库实用工具-->到早期 就可以转为97的了,就是能用了 你只要上网用GOOGLE搜索立即就找到SP5了 Access97 和 Access2000 格式不同, 97用 dao3.5 2000就要用 dao3.6VB菜单中 [工程]->[引用]加上 Microsoft Dao3.6 Object Library也可改用ADO和JET4.0 连接 用DAO连接,只能连接ACCESS97,而用ADO连接就只能连接ACCESS2000。ACCESS97 是用 Microsoft.Jet.OLEDB.3.5ACCESS2000 是用 Microsoft.Jet.OLEDB.4.0 装sp5或jet4.0,可以从我的网站下载,http://ntff.y365.net vba 如何实现表格的转换 紧急呼叫VB高手高手,问个数据库的,急急!! 问:开始学习VB了,要做课程设计……(一) 谁能帮忙解释解释关于listview 高手请进,关于一个SQL语句查询多个结果的问题, 如何能生成一个类似于qq能在任务栏中的显示的文件 初学者的问题:请帮我解释一下这段代码,关于拖放 100分在线等待!急!!!!!怎样在vb中比较两个text框中字符串是否一致? 高分送解答人,关于数据库的问题,很容易的 我写了一个攻击白宫服务器的程序!需要很多人配合!!!请大家一起使用该程序给白宫的CGI接口发送请求!让白宫瘫痪! 超级大笨狼进。 实时播放错误,
Dim rs As New ADODB.RecordsetPrivate Sub Form_Load()
cn.ConnectionString = "DBQ=" & App.Path & "\ZhiZhao.mdb;DefaultDir=" & _
App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
"DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
"MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
"Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
cn.Open
rs.Open "select * from tablename", cn, adOpenDynamic, adLockPessimistic
rs.AddNew '添加一条
rs!Name = "张三"
rs.Update '保存
End Sub
mailto : [email protected] 给你个例子
VB菜单中 [工程]->[引用]加上 Microsoft Dao3.6 Object Library也可改用ADO和JET4.0 连接
ACCESS97 是用 Microsoft.Jet.OLEDB.3.5
ACCESS2000 是用 Microsoft.Jet.OLEDB.4.0