Discussion :

[Eva01]

Bonjour,
Voila lorsque j'ai une erreur "impossible d'utiliser cette connexion pour effectuer cette opération.
Elle est fermée ou non valide dans ce contexte." Lorsque je compile avec VB6
Je n'arrive pas à comprendre d'ou viens cette erreur ... même si il me met en jaune la ligne ou je fais ma requête, je présume que cela ce passe lors des paramètres de ma requêtes, mais je ne suis pas habitué à mettre autres choses.
Voici mon 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
Option Explicit
Dim bd As New ADODB.Connection
 
Dim tb As New ADODB.Recordset
Dim tb1 As New ADODB.Recordset
Dim tb2 As New ADODB.Recordset
 
Dim msg1, msg2 As String
 
Private Sub Form_Load()
 
        bd.Provider = "microsoft.jet.oledb.4.0"
        bd.ConnectionString = App.Path & "\VGP_GMAO.mdb"
 
        tb.Open "select EnOfMAO.NUMEROOF,CODEAFFEC,COMPLAN,LIBPLAN,DELAIMAJ,TEMPSPREV,NUMEROOP,LIBELOPE,TUNIPREVU,*TYPAPPORT,ARTICLE,LIBAPPORT,BESOIN,UNISTOCK from EnappgamMAO, EnOfMAO, EnopeMAO", bd, adOpenDynamic, adLockOptimistic
 
       ' tb.MoveFirst
 
End Sub

Eva, à bientôt

[OhMonBato]

http://drq.developpez.com/vb/tutoriels/ADO/Chapitre2/

[Mr NGANZI]

il faut d'abord ouvrir la base de données avant d'ouvrir une table.

Code :

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

db.open

[Eva01]

Merci pour les liens, j'ai repris mon code mais j'ai toujours cette erreur ="Aucune valeur donnée pour un ou plusieurs des paramètres requis"

Code :

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

1
2
3
4
5
6
bd.Provider = "microsoft.jet.oledb.4.0"
        bd.ConnectionString = App.Path & "\VGP_GMAO.mdb"
        bd.Open
        Dim rst As New ADODB.Recordset
        Set rst = New ADODB.Recordset
        rst.Open "select EnOfMAO.NUMEROOF,CODEAFFEC,COMPLAN,LIBPLAN,DELAIMAJ,TEMPSPREV,NUMEROOP,LIBELOPE,TUNIPREVU,TYPAPPORT,ARTICLE,LIBAPPORT,BESOIN,UNISTOCK from EnappgamMAO, EnOfMAO, EnopeMAO", bd, adOpenDynamic, adLockOptimistic

[ProgElecT]

dans le rst.Open

from EnappgamMAO, EnOfMAO, EnopeMAO

c'est pour ouvrire 3 tables ?

[Eva01]

oui, à l'origine c'est pour ouvrir 3 tables

[Eva01]

Bonjours
J'ai avancé avec mes requêtes, mais cette fois-ci j'ai cette erreur "
Aucune valeur donnée pour un ou plusieurs des paramètres requis" avec le code SQL suivant :

Code :

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

1
2
3
4
5
6
        bd.Provider = "microsoft.jet.oledb.4.0"
        bd.ConnectionString = App.Path & "\VGP_GMAO.mdb"
        bd.Open
        Dim rst As New ADODB.Recordset
        Set rst = New ADODB.Recordset
         rst.Open "SELECT EnOfMAO.NUMEROOF,EnofMAO.COMPLAN,EnofMAO.LIBPLAN,EnofMAO.DELAIMAJ,EnofMAO.TEMPSPREV,EnopeMAO.NUMEROOP,EnopeMAO.CODEAFFEC,EnopeMAO.LIBEOP,ENOPE.MAO.TUNIPREV FROM EnofMAO LEFT JOIN EnopeMAO ON EnofMAO.NUMEROOF = EnopeMAO.NUMEROOF ;", bd, adOpenDynamic, adLockOptimistic

Eva,

[Vld44]

Salut Eva,

Première chose, je n'ai pas de vb dispo sous la main, mais es-tu sûre d'avoir renseigné tous les paramètres du "rst.open" ?

Deuxièment, tu fais deux "New RecordSet" d'affilée je n'en vois pas l'utilité.

A+
Seb

[pc75]

Bonjour,

C'est quoi ça ?

rst.Open "SELECT EnOfMAO.NUMEROOF,EnofMAO.COMPLAN,EnofMAO.LIBPLAN,EnofMAO.DELAIMAJ,EnofMAO.TEMPSPREV,EnopeMAO.NUMEROOP,EnopeMAO.CODEAFFEC,EnopeMAO.LIBEOP,ENOPE.MAO.TUNIPREV FROM EnofMAO LEFT JOIN EnopeMAO ON EnofMAO.NUMEROOF = EnopeMAO.NUMEROOF ;", bd, adOpenDynamic, adLockOptimistic