Question

我正在尝试使用vb6中的Shell打开特定的Access表单，但在阅读了大量文档之后，我无法找到Access无法找到我的数据库的原因。

dim ss as string
ss = MSAccFolder & "\MSAccess.exe" & " " & app.path & "\database\db.mdb /cmd " & ""formname""
Shell sss, vbNormalFocus

我告诉你的有趣的事情是，在一段时间后Access打开并且它说没有找到具有此路径的数据库

MYAPPPATH/MYFORMNAME.mdb

怎么了？

Answer 1

app.path可能包含空格。环绕app.path＆amp;带引号的“\ database \ db.mdb”。我很抱歉，但我已经忘记了VB语法。

Answer 2

最后我找到了解决方案。

    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'This will open Access with the specified name

    Dim ss As String
    ss = App.path & "\database\db.mdb"
    ShellExecute Me.hwnd, vbNullString, ss, vbNullString, "C:\", SW_SHOWNORMAL

使用Shell Open特定的ACCESS表单

2 个答案: