Question

vb程序点运行启动后出现一个对话框：实时错误'-2147467259（80004005）'：无效的书签。点调试后显示如图

sql 2000数据库导入数据库文件，选择源表和视图时，选择了表Tbmenu再点下一步就会跳出：错误源：Microsoft JET Database Engine 错误描述：无效的书签。 上下文：在提供程序上调用Openrowset时出错。这两天就要上交，哪位高人会弄的速度帮下我吧
Public conn As ADODB.Connection
Public BlOK As Boolean 'Óû§ÃÜÂëÑéÖ¤ÊÇ·ñÕýÈ·
Sub main()
Set conn = New Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "./DbManage.mdb;Persist Security Info=False"
conn.Open
frmSplash.Show 1
frmLoad.Show
BlOK = True
End Sub

Answer 1

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/DbManage.mdb;Persist Security Info=False"
这样试试 为什么App.Path后面要加.呢 不应该App.path/DbManage.mdb这样子吗 应该是路径错误

Answer 2

我是觉得，还是这个modMain.conn 这个变量不存在，或没有打开。

Answer 3

Set conn = New Connection
改为
set conn = new adodb.connection

Answer 4

你的Modmain conn语句有错误。。发一下你的语句。。。。看看

追问

Public conn As ADODB.Connection
Public BlOK As Boolean
Sub main()
Set conn = New Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "./DbManage.mdb;Persist Security Info=False"
conn.Open
frmSplash.Show 1
frmLoad.Show
BlOK = True

End Sub