VB6: Run-time error '3704'
nofear
-
deus Messages postés 93 Statut Membre -
deus Messages postés 93 Statut Membre -
Slt tt le monde,
J'essaie de créer une app. VBA pour gérer les données d'une bd mais je me trouve face au message d'erreur suivant: 'Run-time error '3704': Operation is not allowed when the object is closed.'
Les grande lignes de mon code sont les suivantes:
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs0 As New ADODB.Recordset
cn.Provider = "Microsoft.Jet.Oledb.4.0"
cn.ConnectionString = "Path\bd12.mdb"
cn.Open
cmd.ActiveConnection = cn
cmd.CommandText = "SELECT Produit.Id, Produit.Prod, BC.BCKey, BC.Client, BC.Contact, BC.Nb, BC.date, Det.DetKey, Det.Fab, Det.Descript, Det.NV, Det.Prix FROM Det INNER JOIN (BC INNER JOIN Produit ON BC.BCKey =Produit.BCKey) ON Det.DetKey =Produit.DetKey Order by Produit.Id"
rs0.Open cmd
...
Private Sub Command4_Click()
If rs0.BOF = False Then
rs0.MoveFirst
End If
If rs0.BOF = False Then
FillDataFields
End If
End Sub
Thanks
A+
J'essaie de créer une app. VBA pour gérer les données d'une bd mais je me trouve face au message d'erreur suivant: 'Run-time error '3704': Operation is not allowed when the object is closed.'
Les grande lignes de mon code sont les suivantes:
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs0 As New ADODB.Recordset
cn.Provider = "Microsoft.Jet.Oledb.4.0"
cn.ConnectionString = "Path\bd12.mdb"
cn.Open
cmd.ActiveConnection = cn
cmd.CommandText = "SELECT Produit.Id, Produit.Prod, BC.BCKey, BC.Client, BC.Contact, BC.Nb, BC.date, Det.DetKey, Det.Fab, Det.Descript, Det.NV, Det.Prix FROM Det INNER JOIN (BC INNER JOIN Produit ON BC.BCKey =Produit.BCKey) ON Det.DetKey =Produit.DetKey Order by Produit.Id"
rs0.Open cmd
...
Private Sub Command4_Click()
If rs0.BOF = False Then
rs0.MoveFirst
End If
If rs0.BOF = False Then
FillDataFields
End If
End Sub
Thanks
A+
