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

Marsh Posté le 05-09-2003 à 14:22:49

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!

Reply

Marsh Posté le 05-09-2003 à 14:22:49

Reply

Marsh Posté le 05-09-2003 à 14:52:58

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

Reply

Marsh Posté le 06-09-2003 à 09:56:02

Help please... :sweat:

Personne n'a une meilleure soluce?

Reply

Marsh Posté le 10-09-2003 à 15:42:41

C17 a écrit :

Help please... :sweat:

Personne n'a une meilleure soluce?

:bounce:

Reply

Marsh Posté le 17-09-2003 à 15:53:01

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...

Reply

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

Sujets relatifs:

Leave a Replay