Manipulation de tableaux avec BDD

Question

Bonjour,

Je dois manipuler des donn&#233;es dans un tableau, certaines donn&#233;es sont issues d'une base de donn&#233;es SQL Serveur, les autres seront calcul&#233;es. Certaines cases du tableau devront comporter des combobox.
- Quel est le type de tableau le plus appropri&#233; &#224; mes besoins et quel composant faut-il ins&#233;rer pour l'utiliser 
- On m'a parl&#233; de FlexGrid, MsFlexgrid, MSHFlexgrid... Il y a t'il une r&#233;elle diff&#233;rence entre tous ces tableaux  
- Pouvez vous me donner des pistes pour la programmation de tableaux (sites internets...) car pour l'instant je suis au point mort...

Merci d'avance,
Eric

madbob · Answer

Quand un tableau devient trop compliqu&#233; et sort des standards la gal&#232;re commence... Mais c'est l&#224; qu'on s'amuse alors...



Peut &#234;tre devrais-tu penser &#224; utiliser excel en OLE... 



MSH  ...  pour Hierarchical : tu peux profiter en plus de la notion Hi&#233;rarchie du point de vue recordset...



En fait ils se valent tous Y en a pas un vraiment meilleur que
l'autre... Il faut prendre le plus adapt&#233; &#224; tes besoins... Peut &#234;tre,
celui aussi ou tu as le plus de documentation &#231;a aide. Vu ton bins, le
MSH... remplira peut-&#234;tre tous tes espoirs... Mis &#224; part les listbox ou
&#231;a peut coincer  et o&#249; &#231;a sent la rustine :-).



Bon code

madbob

cs_Eric25 · Answer

J'ai cherch&#233; de la doc sur les MSHFlexgrid mais j'avoue que j'ai pas grand chose. 
Quelqu'un peut-il me dire comment on fait le lien avec la BDD et me donner un exemple d'alimentation d'un MSHFlexgrid pour me fournir au moins de quoi essayer de bidouiller.

Merci d'avance

madbob · Answer

un exemple de remplissage :

La cellule position ligne I colonne J est aliment&#233;e avec ValSQL du recordset L_enrgt




If IsNull(L_Enrgt!VALSQL) = False Then

     P_Form.Grille_flex.TextMatrix(I, J) = L_Enrgt!VALSQL

Else

     P_Form.Grille_flex.TextMatrix(I, J) = ""

End If





Le lien peut &#234;tre fait directement par la propri&#233;t&#233; datasource



Sinon la m&#233;thode que j'utilise le plus souvent :

1er) je d&#233;clare une varible Global Gbabase as database



2em) je l'instancie par une connection set mabase =
opendatabase(PNomBase, False, False, L_chaine_connection) r&#233;f&#232;re toi &#224;
l'aide pour les diff&#233;rentes m&#233;thode de opendatabase (jet/odbc...)

L_chaine_connection contient en g&#233;neral le type et le  user password

exple L_chaine_connection =  "MS Access;PWD=toto"



3eme) Quand j'ai besoin d'acc&#233;der j'ouvre un recordset


L_sql = "Select val1 as Nom, val2 as Prenom, val3 as Age from T_Personne T1 order by 1 where T1.age >= 35"

Mon_RS =  Gbabase.OpenRecordset(L_Sql)





4em) je me positionne sur le premier enregistrement si il n'y a pas d'erreur


If Err.Number = 0 Then


L_Enrgt.MoveFirst

If Err.Number = 0 Then


'* parcours des record sets

while L_Enrgt.EOF = False Or Err.Number <> 0


'* Traitement jeu par jeux & remplissage des &#233;lements graphiques

...





wend






else






'* Gestion err sql 

...






endif



else   


 '* gestion err sur recordset sql ou autre



endif





5 em ) Je lib&#232;re le record set

Mon_RS.close



6 eme) je close la connection si je n'en ai plus l'usage

Gbabase.close



voil&#224;

Madbob

Manipulation de tableaux avec BDD

3 réponses

Discussions similaires