vb打开access

vb打开access

修改答案：

哦，dos不支持长路径，那你用这段代码吧

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

Const SW_SHOWNORMAL As Long = 1
Const SW_HIDE As Long = 0
'access文件扩展名应该是 MDB 吧？
Private Sub Command1_Click()
Call ShellExecute(Me.hWnd, "Open", "好.mdb", vbNullString, App.Path, SW_SHOWNORMAL)
End Sub

如果你没有生产exe文件，它的默认路径在“C:\Documents and Settings\new”
如果你的“好.mdb”没有在此文件夹中，最好是先生成exe文件再调试。

本程序在xp系统调试成功

Public 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

Const SW_SHOWNORMAL As Long = 1
Const SW_HIDE As Long = 0
'access文件扩展名应该是 MDB 吧？
Private Sub Command1_Click()
Call ShellExecute(Me.hWnd, "Open", "好.mdb", vbNullString, App.Path, SW_SHOWNORMAL)
End Sub

你可以通过ado方法或通过adodc 控件将vb与access连接起来
例如：
Public Sub connection()
Public conn As New ADODB.connection
Public rs As New ADODB.Recordset
Dim strSQL As String
Dim str1 As String
Dim str2 As String
str1 = "Provider=Microsoft.Jet.OLEDB.4.0;"
str2 = "Data Source=好.mdb;"
conn.Open str1 & str2
End Sub
例二：
Dim MSAccess As Access.Application
MSAccess.OpenCurrentDatabase (App.Path & "\好.mdb")
Set MSAccess = Nothing
我可以给你发一个VB与access联合开发的案例