Relations de table dans vb6

-
Bonjour,
2 tables table1 et table2 relié dans access ordre1 et ordre2
Dans vb6, formulaire de table1relié avec adodc1et formulaire de table2 relié a access avec adodc2
jointure etant tous les elements de table1 et uniquement ceux de table2 communs

Je ne vois pas ou se trouve les erreur

Prière: aidez moi

le code de relation comme suit:

Dim con As New ADODB.Connection
Dim rec As New ADODB.Recordset

Private Sub adodc1_reposition()
Dim ordre1 As String

If Not Adodc1.Recordset.BOF And Not Adodc1.Recordset.EOF And Not IsNull(Adodc1.Recordset!ordre2) Then

Adodc1.Recordset.Open "provider=microsoft.jet.oledb.4.0;data source=C:\Users\COMPAQ\Desktop\formation vb\base de donnée.mdb"
Adodc2.Recordset.Open "provider=microsoft.jet.oledb.4.0;data source=C:\Users\COMPAQ\Desktop\formation vb\base de donnée.mdb"

ordre2 = Adodc1.Recordset!ordre1
Adodc2.RecordSource = "select table1 from Ordre1 JOIN table2 from Ordre2 ON table1.Ordre1=table2.Ordre2"
If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
If Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveFirst

Adodc1.Refresh
Adodc2.Refresh

End If
End If

End Sub


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite