enzosp
Messages postés22Date d'inscriptiondimanche 21 décembre 2003StatutMembreDernière intervention 3 février 2010
-
28 avril 2006 à 08:32
rvblog
Messages postés792Date d'inscriptionvendredi 4 mars 2005StatutMembreDernière intervention12 juin 2012
-
3 mai 2006 à 13:08
Bonjour à tous.
je cherche désespérément comment lier une ou plusieurs datagrid,datalist... Avec ma connexion réalisée dans le programme avec ADODB.connection, ADODB.Command et ADODB.recordset.
Sur la même feuille j'ai plusieurs objets liés à plusieurs tables d'une même connexion et plusieurs connexions à différente base.<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /?>
j'ai trouver cela:
Set Rs = New ADODB.Recordset
Set Rs.Source = Cmd 'Commande crée avant
Rs.LockType = adOpenDynamic
Rs.Open
Rs.MoveFirst
Set DBGrid1.DataSource = Rs
t = Rs.Fields("Nom") 'test pour vérifier que mon recordset fonction
Le Datagrid reste désespérément vide<?xml:namespace prefix v ns "urn:schemas-microsoft-com:vml" /?><v:shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></v:path><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype><v:shape id="_x0000_i1025" style="WIDTH: 11.25pt; HEIGHT: 11.25pt" alt="" type="#_x0000_t75"><v:imagedata o:href="/imgs2/smile_dissapprove.gif" src="file:///C:\DOCUME~1\DOSY~1\LOCALS~1\Temp\msohtml1\01\clip_image001.gif"></v:imagedata></v:shape> alors que la valeur "t" ne l'est pas?
Merci d'avance pour vos conseilles et/ou vos idées
enzosp
Messages postés22Date d'inscriptiondimanche 21 décembre 2003StatutMembreDernière intervention 3 février 2010 3 mai 2006 à 12:37
En fait j'utilise maintenant des MSHFlexGrid au lieu des Datagrid...
C'est beaucoup plus simple:
Set MSHFexGrid.Recordset = Rs 'c'est un ADODB.recordset
je répondais à d'autres messages.
Essaies cela, peut-être :
Dim cTemp As Column
With Me
Set cTemp = .DataGrid1.Columns.Add(1)' à adapter, mais tu l'as compris
cTemp.DataField = "ID" ' à adapter, mais tu l'as compris
End With
à+
rvblogn
<sup>
</sup><sup>Je veux ton bien... et je l'aurais... mais jamais avant la page 4
</sup>
Vous n’avez pas trouvé la réponse que vous recherchez ?