2014-02-10 100 views
0

Hereis我的代碼:的Visual Basic訪問

Public Class Form1 

    Private Sub Button1_Click(ByVal sender As System.Object, _byval As System.EventArgs) Handles Button1.Click 
     Dim dbProvider As String 
     Dim dbSource As String 
     Dim con As New OleDb.OleDbConnection 
     dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" 
     [b]dbSource = "Data Source = \AddressBook1" & My.Application.Info.DirectoryPath[/b] 

     con.ConnectionString = dbProvider & dbSource 
     con.Open() 

     MsgBox("Database is now open") 

     con.Close() 

     MsgBox("Database is now Closed") 
    End Sub 
End Class 

在我指定我已經把對源數據源8號線:dbSource =「數據源= \ AddressBook1」 & My.Application。 Info.Directory路徑,因爲當我使用它與以前的XML數據庫每次我複製文件夾,並安裝在另一臺計算機上它的工作..所以我已經調整了它與我的訪問數據庫現在,但不幸的是,當我在con.open 「不是有效文件名」..名稱正確,我也檢查了應用程序bin文件夾中的拼寫和文件夾。

my.application.info.directory的任何想法或類似的命令,以便我不會在安裝到另一臺計算機時遇到問題?

預先感謝您

+0

那是什麼語句運行後'dbSource'的文本值? – JaredPar

+0

你是什麼樣的文本..反正我不是ewxperienced與thiese條款。 – user3078577

+0

我的意思是什麼是最終值,什麼實際上傳遞到連接 – JaredPar

回答

0

你應該逃避串 - 空間可能會導致問題:

dbSource = "Data Source = ""\AddressBook1" & My.Application.Info.DirectoryPath & """" 
+0

不幸再次出現同樣的錯誤。儘管編譯得很好。 – user3078577

+0

任何你沒有驅動器規格的理由? – Rob

+0

在我原來的消息,我指定的原因..這是如果我聲明C:/ /我的電腦桌面,然後編譯它,並將其安裝在另一臺計算機上的數據庫將無法正常工作..同時以這種方式,我設法做到這一點usind一個XML文件。因此,我正在尋找一種方式來做到這一點與訪問數據庫。 – user3078577