Discussion :

[PhoeniX1405]

Bonjour à tous,

après deux jours de galère, plusieurs recherches infructueuses, je me permet de poser la question.

Je réalise une interface VB travaillant avec une base Access.

Dans "Projet>Référence", j'ai coché "Microsoft ActiveX Data Objects 2.8 Library"

Voici ma partie de code

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
 
Public Sub Btn_Connect_Click()
Dim BD_Connect As ADODB.Connection 'Variable de connection à la BD
Set BD_Connect = New ADODB.Connection
 
'Déclaration de la variable de connexion
Dim Db_Path As String
Db_Path = App.Path & "\Bdd\Bdd_Stock.mdb"
'Définition du pilote de connexion
BD_Connect.Provider = "Microsoft.Jet.Oledb.4.0"
'Définition de la chaîne de connexion
BD_Connect.ConnectionString = Db_Path
'Ouverture de la base de données
BD_Connect.Open
 
Dim rst As ADODB.Recordset
Dim Sql_Request As String
Set rst = New ADODB.Recordset
Sql_Request = "SELECT * FROM Local"
rst.Open Sql_Request, BD_Connect
 
While Not rst.EOF
 Lst_Tables.AddItem rst("Local.Loc_Name")
Wend
rst.Close
End Sub

J'ai le message d'erreur suivant:

La méthode 'Open' de l'objet '_Recordeset' a échoué


J'ai essayé différente version de la comme rst.Open mais toujours la même erreur.

Merci de votre aide

[Phifi]

Bonjour,

comment a été créée ta base "Bdd_Stock.mdb" ?

Cela dit, j'ai peur que la propriété .ConnectionString de ta connexion soit incomplète.

Edit : Encore que, tu n'as pas d'erreur lors de la connexion ?

[PhoeniX1405]

Merci de ta réponse avant toute chose

Donc la base a été créée sous Access

La connexion est bien correcte car j'ai essayé la commande ci dessous et elle fonctionne

Code :

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

1
2
 
rst.Open "[Aff_Place]", BD_Connect, adOpenForwardOnly, adLockReadOnly, adCmdStoredProc

[Phifi]

Plus de problème donc ?

[PhoeniX1405]

si car je souhaite pouvoir constuire les requête directement sour vb :/

[Invité]

Bonjour

Si j'ai bien compris quand tu veux ouvrir une table cela marche, mais pas avec la requête.

Une idée, mais un ; à la fin de ta requête, dés fois cela vient de là.

Starec

[bricoyeye]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub Btn_Connect_Click()
Dim BD_Connect As ADODB.Connection 
BD_Connect .Provider = "microsoft.jet.oledb.4.0"
BD_Connect .ConnectionString = App.Path & "\Bdd\Bdd_Stock.mdb"
 
      BD_Connect .Open
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "select * from Local", BD_Connect , adOpenDynamic, adLockOptimistic

Essai çà.

[PhoeniX1405]

J'ai du modifier un peu le code car il me mettait des messages d'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim BD_Connect As ADODB.Connection
Set BD_Connect = New ADODB.Connection
BD_Connect.Provider = "Microsoft.Jet.Oledb.4.0"
BD_Connect.ConnectionString = App.Path & "\Bdd\Bdd_Stock.mdb"
 
      BD_Connect.Open
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "select * from Local", BD_Connect, adOpenDynamic, adLockOptimistic

Mais malheureusement, j'ai le même message d'erreur :/

Bonjour

Si j'ai bien compris quand tu veux ouvrir une table cela marche, mais pas avec la requête.

Une idée, mais un ; à la fin de ta requête, dés fois cela vient de là.

Starec

Lorsque je lance la requête directement sous vb, elle ne marche pas.
Si j'utilise une requête crée sous access, elle passe.

J'ai essayé avec le ; mais marche pas .. :/