VBA Access Basic - Conectando um Banco de Dados através da URL - Connect to database through URL

| Blog Office VBA | Blog Excel | Blog Access |

Conectando um Banco de Dados com Segurança em Nível de Usuário.

Segue:

Sub ConnectToURL()
  On Error GoTo Except
    Dim Connection As New ADODB.Connection

    Connection.Provider = "Microsoft.Jet.OLEDB.4.0"

    Const URL = "http://localhost/access/nwind.mdb"

    Let Connection.ConnectionString = "URL=" & URL
    Let Connection.Mode = adModeReadWrite

    Connection.Open

    MsgBox "Conectado via " & Connection.Provider & _
        "Provedor OLE DB!", vbInformation
    Exit Sub

Except:
    MsgBox Err.Description, vbCritical
End Sub

Tags: VBA, Access, connect, SQL, database, Connecting, Server, Data Source, OLE DB, Opening, URL,