Bonjour, j'essaie de me connecter avec ADODB, je débute la dedans , mais ca ne fonctionne pas. Vous avez une idée.
JE suis en .NET, j'ai ajouté la référence .NET ADODB (la première dans la liste)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
       Dim ChaineConnexion As String
        Dim dbPassWord As String
        Dim cnx As New ADODB.Connection
        Dim URL_BASE As String
        Dim strProvider As String
 
        strProvider = "Microsoft.Jet.OLEDB.4.0"
        dbPassWord = "mdp"
 
        URL_BASE = My.Application.Info.DirectoryPath & "\" & "mabase.mdb"
 
 
        'Microsoft.Jet.OLEDB.4.0'
        On Error GoTo erreur
        ChaineConnexion = "Provider=" & strProvider & ";DataSource=" & _
        '                 URL_BASE & ";Persist Security Info=False;" & _
        '                 "JetOLEDB:Database Password=" & dbPassWord
 
 
        cnx.Open(ChaineConnexion)
        If cnx.State = ConnectionState.Open Then
            MsgBox("open")
        ElseIf cnx.State = ConnectionState.Closed Then
            MsgBox("close")
        ElseIf cnx.State = ConnectionState.Broken Then
            MsgBox("broken")
        End If