Discussion :

[devock]

Bonjour,

Voilà j'ai une base de donnée que j'ai faite sous access 2003 et je tente de m'y connecté avec VB et ADO mais quand je lance ma requête cela me dit que ma connection n'est pas ouverte... et j'ai beau cherché (même dans les tutos du site) et bien je ne trouve pas de solution donc je viens vous voir.

Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Load()
    Dim maConnexion As ADODB.Connection
    Set maConnexion = New ADODB.Connection
    maConnexion.ConnectionString = "    "
Driver = "{Microsoft Access Driver (*.mdb)};Dbq=C:\" & App.Path & "\gernogep.mdb;Persist Security Info=False"
 
    Dim test As ADODB.Recordset
    Set test = New ADODB.Recordset
 
    test.Open "SELECT codecategorie FROM categorie", maConnexion
    Label1 = test.Fields(0)
End Sub

Merci d'avance à ceux qui m'aideront
Amicalement,
Devock

[ProgElecT]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
    Dim maConnexion As ADODB.Connection
    Set maConnexion = New ADODB.Connection
    maConnexion.ConnectionString = "    "
Driver = "{Microsoft Access Driver (*.mdb)};Dbq=C:\" & App.Path & "\gernogep.mdb;Persist Security Info=False"
    
    Dim test As ADODB.Recordset
    Set test = New ADODB.Recordset
 'ICI ajoute 
  MsgBox maConnexion.ConnectionString, vbInformation
    test.Open "SELECT codecategorie FROM categorie", maConnexion
    Label1 = test.Fields(0)
End Sub

Est ce que ConnectionString corespond bien a se que tu veux ?

[devock]

Cela m'affiche un vide total mais j'ai regardé un post concernant ADO et j'ai utilisé la méthode utilisé par le membre et cela fonctionne très bien.

Voilà ce que j'ai mis :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Load()
    Set cx = New ADODB.Connection
    cx.Provider = "microsoft.jet.oledb.4.0"
    cx.ConnectionString = "D:\Dvp-perso\access\gernogep\gernogep.mdb"
    cx.Open
 
    Set categorie = New ADODB.Recordset
 
    categorie.Open "SELECT * FROM categorie", cx, adOpenDynamic, adLockOptimistic
 
    mise_a_jour
End Sub

[ProgElecT]

Le fait est que remplir maConnexion.ConnectionString = un vide, j'avai un gros doute, puisque resolu, c'est le principal
Bonne continuation ....