Подключение формы доступа к SQL-серверу

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 

Честно говоря, это, очевидно, проблема домашних заданий, и я не думаю, что дает вам полный ответ будет правильным, что нужно сделать, но это должно начните.