Discussion :

[batou22003]

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

[sinople]

Rien que de lire la chose suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error GoTo erreur

Me fait dire que tu es pas dans le bon forum ou t'as besoin de lire le court de Phillipe (et plutôt 2 fois qu'une)!

[peregna2007]

Donne nous le message d'erreur qu'il t'affiche.

[tomlev]

En .NET on n'utilise plus ADODB depuis longtemps... utilise ADO.NET à la place

[batou22003]

3001-Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres.

[tomlev]

C'est normal que les 2e et 3e lignes de la chaine de connexion soient en commentaire ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        ChaineConnexion = "Provider=" & strProvider & ";DataSource=" & _
        '                 URL_BASE & ";Persist Security Info=False;" & _
        '                 "JetOLEDB:Database Password=" & dbPassWord

Ca fait que ta chaine n'est pas complète, elle vaut :
"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="

[batou22003]

oui

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ChaineConnexion = "Provider=" & strProvider & ";DataSource=" & _
                        URL_BASE & ";Persist Security Info=False;" & _
                        "JetOLEDB:Database Password=" & dbPassWord

[batou22003]

et en .NET alors, comment j'établis ma connection par code?

Je veux ouvrir ma base et faire une requete de lecture, d'insertion et de suppression.

Merci

[tomlev]

oui

comment ça, "oui" ? "oui, c'est fait exprès" ? "oui, ça règle le problème" ?...

et en .NET alors, comment j'établis ma connection par code?

Je veux ouvrir ma base et faire une requete de lecture, d'insertion et de suppression.

Merci

Commence par lire ça, je fais pas te faire un cours particulier
http://dotnet.developpez.com/articles/ado1/vbnet/

[batou22003]

c'est décidé, j'utilise ADO.NET, par contre j'ai fait le test d'ouverture de base
et ca me met ca maintenant

code de résultat : DB_SEC_E_AUTH_FAILED(0x80040E4D).

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
 
Dim Connection As New OleDb.OleDbConnection
        Dim AdaptTContact As OleDb.OleDbDataAdapter
        Dim DtSet As New DataSet()
        Dim Sql As String
        Dim URL_BASE As String
        URL_BASE = My.Application.Info.DirectoryPath & "\" & "DrBD.mdb"
 
        Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & URL_BASE & ";Jet OLEDB:Database Password=motdepasse"
 
        Connection.Open()
 
        Sql = "select * from param_standard"
        AdaptTContact = New OleDb.OleDbDataAdapter(Sql, Connection)
 
        AdaptTContact.Fill(DtSet, "param_standard")
 
        Connection.Close()

[tomlev]

AUTH_FAILED

Ben a priori c'est le user/password qui est pas bon...

[batou22003]

C'est bon, j'ai trouvé le problème. J'ai maintenant un dataset. Alors maintenant faut savoir comment l'utiliser.