從使用OleDb的訪問表單連接到SQL服務器

Question

我正在開發一個項目，將Microsoft訪問後端遷移到SQL Server後端，並且我的客戶堅持使用Access創建表單以執行任何插入，更新和刪除操作。問題是他的機器上有SQL數據工具，而他的團隊中的其他人（沒有數據工具）也需要能夠使用這些表單。我認爲最好的方法是通過訪問使用OleDb連接來連接表單，以便他的團隊可以使用它，而且我的訪問知識非常有限。到目前爲止，我所擁有的全部是

「Driver=SQLOLEDB;Data Source=SomeServer;Initial Catalog=SomeDatabase;Integrated Security=SSPI」 

我知道用戶在SQL框中有信任，並且可以通過ODBC連接。我們只是無法讓OleDb工作。任何關於如何在訪問表單中部署OleDB連接的幫助將不勝感激。

Answer 1

這是我們用於SQL Server的連接。它支持使用可信連接或SQL Server身份驗證。

Call GetConnection(gvstr_SQLServer_Name, gvstr_SQLServer_Database, _ 
     cnConn, adUseServer, False, False) 

    If GetConnection(gvstr_SQLServer_Name, gvstr_SQLServer_Database, _ 
      gv_DBS_SQLServer, adUseServer, True, False) = True Then 
     gvbln_UsingSQLServer = True 
     DoCmd.Hourglass True 
     ReLink_SQLSERVER_Tables 
    Else 
     gvbln_UsingSQLServer = False 
    End If 



Public Function GetConnection(ByVal strDSN As String, _ 
    ByVal strDatabase As String, _ 
    ByRef cnLocal As ADODB.Connection, _ 
    ByVal CursorLoc As CursorLocationEnum, _ 
    ByVal UsePassword As Boolean, _ 
    ByVal blnTrusted As Boolean) As Boolean 

Dim intWaitDuration  As Integer 
Dim strConnectString As String 
Dim strDisplay   As String 

Const CURRENT_METHOD As String = "GetConnection" 
On Error GoTo ERROR_HANDLER 
GetConnection = False 
intWaitDuration = 60  
Retry_Connection: 
If cnLocal Is Nothing Then Set cnLocal = New ADODB.Connection 
If cnLocal.State = adStateOpen Then 
     Write_To_Log "Connection already open -- -will not reopen!!" 
    GetConnection = True 
    GoTo Proc_Exit 
End If 

With cnLocal 
    Debug.Print "Use TRUSTED CONNECTION (ABOVE)" 
    If gvstr_Workstation = "my-pc" Then 
     strConnectString = "Driver={SQL Server};" & _ 
           "Server=" & strDSN & ";" & _ 
           "Database=" & strDatabase & ";" & _ 
           "Trusted_Connection=yes" 
    Else 
     If blnTrusted = True Then 
      strConnectString = "Driver={SQL Server};" & _ 
           "Server=" & strDSN & ";" & _ 
           "Database=" & strDatabase & ";" & _ 
           "Trusted_Connection=yes" 
     Else 
      strConnectString = "Driver={SQL Server};" & _ 
           "Server=" & strDSN & ";" & _ 
           "Database=" & strDatabase & ";" & _ 
           "User Id=Sql_myuid;Password=ppppp" 

      strDisplay = "Driver={SQL Server};" & _ 
           "Server=" & strDSN & ";" & _ 
           "Database=" & strDatabase & ";" & _ 
           "User Id=S*********t;Password=****************" 

     End If 
    End If 
    Write_To_Log "Will use Conn String: " & strDisplay 
    .ConnectionString = strConnectString 
    .CursorLocation = CursorLoc 
    .Open 
End With 
GetConnection = True 
Proc_Exit: 
Exit Function 

ERROR_HANDLER: 
Debug.Print Err.Number & vbCrLf & Err.Description 

Err.Source = "Module_Utilities: GetConnection at Line: " & Erl 
DocAndShowError 
Resume Proc_Exit 
Resume Next 
Resume 
End Function