不能打开数据库 ''。应用程序可能无法识别该数据库,或文件可能损坏。

gdutqhl 2003-12-30 11:29:16
请教大家,这个是什么原因,同样的代码,有时候不出错,有时候出错。
环境:VB6+access97
...全文
3072 15 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
gdutqhl 2003-12-30
  • 打赏
  • 举报
回复
只是部分机子出这个问题,会不会是操作系统装的不好或者是机子的问题
gdutqhl 2003-12-30
  • 打赏
  • 举报
回复
装了sp5, MDAC是2.7
  • 打赏
  • 举报
回复
vb装sp5了吗?
mdac什么版本
gdutqhl 2003-12-30
  • 打赏
  • 举报
回复
Set dbs = OpenDatabase(working_folder, False, False, "Text;")
strConnect = ";DATABASE=" & working_folder & "are.mdb" & _
";PWD=" & password
Set dbs1 = OpenDatabase("", False, False, strConnect)

'create schema.ini 这段太长了省略

sql1 = " INSERT INTO tab1(f1,f2,f3) in ''" & _
" [;DATABASE=" & working_folder & "are.mdb" & ";PWD=" & password & "]"
" SELECT f1,f2,f3 FROM user_log#txt;"
dbs.Execute sql1
数据是肯定能读取的,写入库也没问题,但是写入以后如果读取该数据库就会出这个错误
不能打开数据库 ''。应用程序可能无法识别该数据库,或文件可能损坏。
gdutqhl 2003-12-30
  • 打赏
  • 举报
回复
同样是windows2000 adv server下,同样的代码写access97数据库,可是有的机子就会出现 不能打开数据库 ''。应用程序可能无法识别该数据库,或文件可能损坏。
有的机子就不会,MDAC2.7已经安装,Access97也已经安装。
yoki 2003-12-30
  • 打赏
  • 举报
回复
那你打开数据库的代码贴出。。

可能是97与2000的冲突
sunnychild 2003-12-30
  • 打赏
  • 举报
回复
操作系统,你使用的连接应该不是ado,如果时,应该没有问题
sunnychild 2003-12-30
  • 打赏
  • 举报
回复
那是因为系统不同吧?
pxpy 2003-12-30
  • 打赏
  • 举报
回复
不太明白你的问题,请讲仔细点,祝你成功!!
  • 打赏
  • 举报
回复
唉!
怪!

good luck!
gdutqhl 2003-12-30
  • 打赏
  • 举报
回复
如果是用ADO是不会出错,我也知道,可是如果要改的话,可是要改几万行的代码,这个程序是很早以前写的,不想更改了。
Wang_xiaoni 2003-12-30
  • 打赏
  • 举报
回复
我是习惯用adodb+access,只设个连接字符串就行了,SQL也好写为什么非要用db,那样做太麻烦了,如果是大小的系统,直接就用SQLSERVER+ADO,就你写的那些代码来看与MDAC2.7装不装没有关系的
Private cnn As New ADODB.Connection
Private rs As New ADODB.Recordset
rivate strCnn As String
Private strSql As String
load时
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\cdrom.mdb;" & _
"Persist Security Info=False"
使用时
strSql = "select * from soft"//或者update,insert,delete
rs.Open strSql, strCnn, adOpenDynamic, adLockOptimistic
rs.AddNew //用select 添加数据
rs!softname = Trim(t1.Text)
rs!rom = Trim(t5.Text)
rs!Dir = Trim(t2.Text)
rs!ver = Trim(t3.Text)
rs!sn = Trim(t4.Text)
rs!Type = Trim(cc)

rs.Update
rs.Close
基本还没出过多少错
gdutqhl 2003-12-30
  • 打赏
  • 举报
回复
救命啊
YQShi 2003-12-30
  • 打赏
  • 举报
回复
多半是有些组件不够新
gdutqhl 2003-12-30
  • 打赏
  • 举报
回复
UP

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧