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

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

将Access表单连接到SQL Server

1 个答案: