2014-02-18 104 views
-1

我一直在研究一個接近完成的項目,但這最後一部分讓我感到頭疼,因爲我之前從未這樣做過,而且我很難找到需要幫助的研究讓我走,我不知道哪裏開始。該項目如下:(這是我老闆的電子郵件的背景)將訪問表單連接到SQL Server

您將需要查找如何使用vba檢查連接。您要連接的服務器是HRLearnDev。我有一個訪問表單,我會發送給你,它有宏中的連接信息,我做了類似的事情。不同的是,我的程序直接連接到服務器。您需要寫入本地表,在打開訪問文件時檢查連通性,或者每隔幾分鐘檢查一次連接,如果檢查發現存在連接,請將數據從本地服務器表寫入到遠程服務器表,然後截斷本地表。

我真的陷入困境,而且我沒有足夠的選擇,所以對於初學者從何處着手的任何見解都將不勝感激。

+0

我不知道你在這裏的實際問題是...你有什麼具體問題? – 2014-02-18 13:37:32

+0

我不知道從哪裏開始,這是所有的指令,我已經給 – user2119980

+0

開始寫出所需。具體點 - 即。 Excel電子表格(它做什麼,目的是什麼?),VBA項目 - 它應該做什麼?連接到數據庫並將數據檢索到電子表格?等等...... – 2014-02-18 16:15:14

回答

0

嘗試是這樣的檢查連接:

Public Sub TestConnection() 
Dim cnn As ADODB.Connection 
Dim canConnect As Boolean 

Set cnn = New ADODB.Connection 
cnn.Provider = "sqloledb" 
cnn.Open "Data Source=HRLearnDev;Initial Catalog=YourTableName;UserID=userID;Password='password';" 
If cnn.State = adStateOpen Then 
    canConnect = True 
    cnn.Close 
End If 
MsgBox "Can you connect? - " & canConnect 

End Sub 

老實說,這顯然是一個家庭作業的問題,我不認爲給你一個完整的答案是做正確的事情,但應該讓你開始。

+0

那麼首先給出答案的要點是什麼? – 2014-02-18 16:14:00

+0

另一種方法是關閉它,因爲A)它太籠統了,B)它沒有包含任何嘗試的代碼,也沒有表現出對該技術的最低限度的理解。相反,我給了OP足夠的開始。 –