如何连接局域网内的ODBC数据源？

Question

Private Sub Connect(sServer As String, sLoginID As String, sPassword As String)    Dim cn As New ADODB.Connection    MousePointer = vbHourglass
    
    ' DSN Connection using the OLE DB provider for ODBC - MSDASQL
    cn.ConnectionString = "DSN=" & _
        ";DATABASE=pubs;UID=" & sLoginID & _
        ";PWD=" & sPassword
        
    ' Prompt the user to select the DSN
    cn.Properties("Prompt") = adPromptComplete
    cn.Open
    cn.Close
        
    MousePointer = vbDefault
    
End Sub

Answer 1

Private Sub DSNlessConnect(sServer As String, sLoginID As String, sPassword As String)
    
    Dim cn As New ADODB.Connection
    
    MousePointer = vbHourglass
    
    ' DSNless Connection using the OLE DB provider for ODBC - MSDASSQL
    cn.ConnectionString = "DRIVER=SQL Server" & _
        ";SERVER=" & sServer & _
        ";UID=" & sLoginID & _
        ";PWD=" & sPassword & _
        ";DATABASE=pubs"
    cn.Open
    cn.Close
    
    MousePointer = vbDefault
    
End Sub

Answer 2

不是连接SQL Server，是要通过其他机的ODBC的接口，访问该机的数据库，不管该数据库是SQL Server、Access还是其他。