problème de connection ADODB

Version imprimable

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:

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

27/01/2011, 15h58
sinople

Rien que de lire la chose suivante

Code:

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)!
27/01/2011, 16h17
peregna2007

Donne nous le message d'erreur qu'il t'affiche.
27/01/2011, 16h29
tomlev

En .NET on n'utilise plus ADODB depuis longtemps... utilise ADO.NET à la place
27/01/2011, 16h32
batou22003

message d'erreur

Citation:

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

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

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="

pb connection

oui

Code:

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

27/01/2011, 16h48
batou22003

et en .NET

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
27/01/2011, 16h57
tomlev

Citation:

Envoyé par batou22003

oui

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

Citation:

Envoyé par 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

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

passage à ado.NET

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

Citation:

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

Code:

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()

27/01/2011, 17h25
tomlev

Citation:

AUTH_FAILED

Ben a priori c'est le user/password qui est pas bon...
27/01/2011, 17h26
batou22003

pb résolu

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