2014-02-06 156 views

回答

0

使用這段代碼,您應該能夠連接到Access數據庫並填充DataAdapter表中的內容。

Dim con As New OledbConnection("Provider=microsoft.Jet.oledb.4.0;DataSource=RemoteServerName\Path\mydatabase.mdb;") 

    Dim cmd As New OledbCommand 

    Try 
     con.Open() 
     cmd.Connection = con 
     cmd.CommandText = "SELECT * FROM Table" 
     Dim da As New OleDbDataAdapter(cmd) 
     da.Fill(ds, Table) 
     con.Close() 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 
+0

謝謝先生,在這我可以檢查主機連接與否。這意味着當主機不存在時,我必須顯示錯誤消息。 –

+0

根據要求編輯答案。使用'Try ... Catch',你會嘗試打開連接。如果失敗,將出現一個MessageBox,顯示問題(未找到數據庫,達到的最大連接數量等等)。 – equisde

0

如果它是一個MS Access數據庫,您可以共享它的唯一方法是將其放在共享文件夾中,並將該應用程序配置爲使用共享文件夾中的數據庫。但是,請注意,MSAccess只允許有限數量的用戶同時訪問。

+0

我如何提高用戶數 –

+0

請遵循下面的鏈接:http://stackoverflow.com/questions/694921/ms-access-mdb-concurrency – pankeel