Salut à tous,
j'ai un gros problème, je veux utiliser une variable adodb.recordset pour gérer deux tables liées, je travailles avec un Shape, mais je ne sais pas comment gérer au niveau des commandes les liaisons avec des datagrid
Voici mon code:
Code :
- Dim rec As New ADODB.Recordset
- Dim CT As New ADODB.Connection
- Private Sub Form_Load()
- CT.Provider = "MSDataShape"
- CT.Open "Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrateur\Bureau\Développement\Cours Visual Basic\BFormation.mdb;Persist Security Info=False"
- rec.StayInSync = False
- rec.Open " SHAPE {select * from tablestagiaire} AS Command1 APPEND ({SELECT * FROM `TableTel`} AS Command2 RELATE 'NumAuto' TO 'NumStag') AS Command2", CT
- Set DataGrid1.DataSource = rec
- Set DataGrid2.DataSource = rec
- DataGrid1.DataMember = "Command1"
- DataGrid2.DataMember = "Command2"
- End Sub
|
Tout fonctionne sauf les deux dernières lignes. Si je ne les mets pas, il m'affiche les données de mon premier select dans les deux grilles.
Donc, si vous avez une soluce pour lier mes deux datagrid, Merci d'avance!