Recordset ADO et DataGrid... Aidez moi!!!

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Recordset ADO et DataGrid... Aidez moi!!!

C17

-$$ W A N T E D $$-

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!

Publicité

C17

-$$ W A N T E D $$-

J'ai trouvé un truc pour avoir les enregistrement dans ma deuxième table :

Set DataGrid2.DataSource = rec!Command2.Value

Mais c'est pas mis à jour quand on change d'enregistrement dans la deuxième

Message édité par C17 le 05-09-2003 à 14:55:11

C17

-$$ W A N T E D $$-

Help please... :sweat:

Personne n'a une meilleure soluce?

C17

-$$ W A N T E D $$-

C17 a écrit :

Help please... :sweat:

Personne n'a une meilleure soluce?

:bounce:

C17

-$$ W A N T E D $$-

J'ai trouvé tout seul... comme un grand!

Pour ceux que ça intéressent...

Citation :

Dim cn As New ADODB.Connection
Dim rsClient As New ADODB.Recordset
Dim rsTel As New ADODB.Recordset

Private Sub Form_Load()
cn.CursorLocation = adUseClient

cn.Open "Provider=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Cours_VB\Cours Visual Basic\Projet 2\BFormation.mdb;Persist Security Info=False"

rsClient.Open " SHAPE {SELECT * FROM `TableStagiaire`} AS Command1 APPEND ({SELECT * FROM `TableTel`} AS Command3 RELATE 'NumAuto' TO 'NumStag') AS Command2", cn, adOpenStatic, adLockOptimistic

Set rsTel = rsClient.Fields("command2" ).Value

Set DataGrid1.DataSource = rsClient
Set DataGrid2.DataSource = rsTel

End Sub

Mais comme personne m'a aidé, je met pas de commentaires dans le code...

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Recordset ADO et DataGrid... Aidez moi!!!

Sujets relatifs
Aidez-moi à coder un script php	Lignes en couleur dans un datagrid
Raffraichissement d'un DataGrid en VB6	[VB6] Datagrid et ajout d'enregistrement via code
DataGrid et couleur	erreur de find d'un recordset
Update d'un recordset	[ADO.NET] Performances ADO.NET vs ADO 2.7
Utiliser une DataGrid sans passer par un controle data?	Aidez un newbie du c++ [Touvé !!! ]
Plus de sujets relatifs à : Recordset ADO et DataGrid... Aidez moi!!!

Page générée en 0.056 secondes