将Access窗体连接到SQL Server

Question

我一直在做一个即将完成的项目，但最后一部分让我头疼，因为我以前从未做过这件事，而且我很难找到有助于我前进的研究——我甚至不知道从哪里开始。项目如下：(这是我老板发来的电子邮件的上下文)

您需要查找如何使用vba检查连接。您将连接到的服务器是HRLearnDev。我有一个访问表单，我会发给你，上面有宏中的连接信息，我在那里做了类似的事情。不同的是，我的程序直接连接到服务器。您的需要写入本地表，在打开访问文件时或每隔几分钟或其他时间检查连接，如果检查结果显示存在连接，则将数据从本地服务器表写入远程服务器表，然后截断本地表。

我真的被卡住了，我已经没有选择了，所以任何关于初学者应该从哪里开始寻找的见解都将不胜感激。

Answer 1

尝试这样的方法来检查连接：

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

老实说，这显然是一个家庭作业问题，我不认为给你完整的答案是正确的做法，但这应该让你开始。