這是一個開啟資料庫的程式碼,可是當我按下開啟檔案後就發生Run-time error'-2147467259(80004005)':不是一個有效的檔案名稱,Debug後停在CN1.Open,想請各位幫忙看一下~謝謝
Private Sub OpenDB_Click()
Dim strDSN As String
dlgDialog.Filter = "資料庫檔(*.mdb) ! *.mdb"
  dlgDialog.ShowOpen
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ " & App.FileDescription & ";Mode=ReadWrite!Share Deny None;Persist Security Info=False"
Set CN1 = New ADODB.Connection
CN1.ConnectionString = strDSN
CN1.CursorLocation = adUseClient
CN1.Open
tSQL = "select * from 客戶編號 where 0=1 "
Set RS1 = New ADODB.Recordset
If RS1.State <> adStateClosed Then
    RS1.Close
  End If
RS1.Open tSQL, CN1, adOpenStatic
If Not RS1.EOF Then
   Set DataGrid1.DataSource = RS1
  End If
End Sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(3) 人氣()