本人小菜啊，實在是找不到門路才來求助。
以下是模塊里的代碼。為什么我登陸視窗里的不能呼叫呢？總報錯，
Public Function ExeSQL(ByVal Sql As String) As ADODB.Recordset
On Error GoTo ErrHandler:
Dim Connstr As String
Dim CN As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strArray() As String
Dim DataPath As String
Set CN = New ADODB.Connection
Set rs = New ADODB.Recordset
DataPath = "PC281453 \ Users \ Data \ Data.mdb"
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + DataPath + ";Persist Security Info=False"
strArray = Split(Sql)
CN.Open Connstr·
為什么Data Source=" & App.Path &就可以。問題很菜，但是不得要領啊。
uj5u.com熱心網友回復：
在 DataPath 中放從盤符開始的完整路徑試試。另外，字串連接符最好用 & 而不是 + 號。uj5u.com熱心網友回復：
如果你的資料庫就在 .exe 所在檔案夾下，不妨DataPath = App.Path & "\ Data.mdb"
如果你參考的是 .exe 所在檔案夾下的子檔案夾路徑，可以
DataPath = App.Path & "\PC281453 \ Users \ Data \ Data.mdb"
uj5u.com熱心網友回復：
我把資料庫放在局域網共享檔案夾里了。
起初資料庫就在 .exe 所在檔案夾下
用DataPath = App.Path 應該是沒問題的，
用這個路徑后"\PC281453 \ Users \ Data \ Data.mdb"開始報錯。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/105182.html
上一篇：這里的vba好冷清啊