如果你重装系统或杀毒没把数据库安装和数据所在的文件破坏的话,应该是可以的。不过对于这样恢复我没试过,你可重新安装数据库,但数据库起名、存放路径(把原来的移到其他地方)、字符集都和原来一样。最后用原来的文件把新的替换试试。不过我不保证这方法可行。
Mystr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=.\dcode.dll"
Mycon.Open Mystr '打开数据库
ssql = "select code,isuse from fundcode where pwd='" & passwd.Text & "'"
Myrt.Open ssql, Mycon, 3, 1
不明白,Source=.\dcode.dll???
1、Source=的是一个字符串,你可以用一个变量,使用Source=" & 变量。
2、*.dll是应用程序扩展,不是数据库!access数据库的扩展名是mdb
例如:
Dim strSTR As String
strSTR = App.Path & "\数据库名.mdb"
Mycon.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & strSQL
If Myrt("isuse") = "1" Then
Myrt.Close
Mycon.Close
MsgBox "该密码已使用,不能重复使用!", 16, "文件解密失败!"
End
End If
。。。。
Myrt.Close
Mycon.Close
上面已经关闭了,下面再次关闭就抱错了,逻辑问题!
数据库连接有问题。
数据库没打开,逐步调试,找出报错语句