[VB6] Composant Grid il est ouk ???

Composant Grid il est ouk ??? [VB6] - VB/VBA/VBS - Programmation

Marsh Posté le 30-10-2002 à 15:19:29    

:??:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-10-2002 à 15:19:29   

Reply

Marsh Posté le 30-10-2002 à 15:38:15    

à part DataGrid, DBGrid et MSFlexGrid, je ne vois pas d'autre Grid dans VB6 (version pro)...


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 30-10-2002 à 15:47:25    

put1
j'veux juste une pov grille editable avec 2 colones et pas lié avec une BD !!!!
flexgrid->pas éditable
DBGrid->lié avec table, si unbound il m'éfface mes données au fur et à mesure (la pute)
DataGrid->pas editable ou pas trouvé
 :fou:  :spookie:  :pt1cable:  :gun:  :(


Message édité par [SDF]Poire le 30-10-2002 à 15:48:04

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-10-2002 à 15:55:57    

La seule manière, en restant dans les limites du produit (VB6), c'est de lier un recordset fake à un DataGrid.  C'est dans le recordset que tu définiras tes colonnes.  C'est pas le pied mais c'est tout ce que j'ai à proposer, d'autant qu'on n'a pas eu trop le choix nous-mêmes: on a implémenté une telle chose et ça marche pas mal.  Le DataGrid est référencé "Microsoft DataGrid Control 6.0".  Le DBGrid semble vouloir une vraie DB derrière par contre.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 30-10-2002 à 16:01:40    

le Grid existait dans VB5 mais plus dans vb6. Par ailleurs il semble qu'il est protégé => on ne peut le récupérer afin de l'incorporer dans VB6.

Reply

Marsh Posté le 30-10-2002 à 16:05:59    

hagal a écrit a écrit :

le Grid existait dans VB5 mais plus dans vb6. Par ailleurs il semble qu'il est protégé => on ne peut le récupérer afin de l'incorporer dans VB6.




 
je me demande si ce grid n'était pas fourni par un tiers dont j'ai oublié le nom...  Si on peut pas le récupérer, c'est sûrement à cause du fichier de license absent ou pas compatible VB6...


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 30-10-2002 à 16:07:01    

drasche a écrit a écrit :

La seule manière, en restant dans les limites du produit (VB6), c'est de lier un recordset fake à un DataGrid.  C'est dans le recordset que tu définiras tes colonnes.  C'est pas le pied mais c'est tout ce que j'ai à proposer, d'autant qu'on n'a pas eu trop le choix nous-mêmes: on a implémenté une telle chose et ça marche pas mal.  Le DataGrid est référencé "Microsoft DataGrid Control 6.0".  Le DBGrid semble vouloir une vraie DB derrière par contre.




 :fou:  
ça sucks
C T pas dur à faire pour eux pourtant put1


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-10-2002 à 16:07:47    

Vite fait G quoi à faire pour faire un recordset bidon ?


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-10-2002 à 16:15:06    

Création et initialisation:

Code :
  1. Set rst = New ADODB.Recordset
  2.     With rst
  3.         With
  4.             Call .Append("Index", adInteger)
  5.             ... autres colonnes
  6.         End With
  7.         .CursorType = adOpenStatic
  8.         .LockType = adLockBatchOptimistic
  9.         Call .Open
  10.     End With
  11.     Set dg.DataSource = rst
  12.     dg.Refresh


 
Le locktype est sûrement là parce que en fait, le recordset qu'on emploie est aussi connecté à la DB, de temps en temps...


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 30-10-2002 à 16:26:09    

Set rst = New ADODB.Recordset
 
il aime po (type défini par l'utilisateur non définie)


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-10-2002 à 16:26:09   

Reply

Marsh Posté le 30-10-2002 à 16:27:43    

[SDF]Poire a écrit a écrit :

Set rst = New ADODB.Recordset
 
il aime po (type défini par l'utilisateur non définie)




 
ben le type est clair :-)
 
faut ajouter la référence ActiveX Data Components dans ton projet ;-)  2.5 si tu as, 2.1 sinon.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 30-10-2002 à 16:28:31    

[SDF]Poire a écrit a écrit :

Set rst = New ADODB.Recordset
 
il aime po (type défini par l'utilisateur non définie)




 
ce message d'erreur est sûrement un des plus cons que VB puisse donner  [:ddr555]


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 30-10-2002 à 16:29:09    

drasche a écrit a écrit :

 
 
ben le type est clair :-)
 
faut ajouter la référence ActiveX Data Components dans ton projet ;-)  2.5 si tu as, 2.1 sinon.




 :heink:  
moi et les trucs chelou de dépendances à 2 balles de VB & BD =  :??:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-10-2002 à 16:29:48    

drasche a écrit a écrit :

 
 
ce message d'erreur est sûrement un des plus cons que VB puisse donner  [:ddr555]




C clair...
la formulation est pourrav


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-10-2002 à 16:40:17    

[SDF]Poire a écrit a écrit :

 
 :heink:  
moi et les trucs chelou de dépendances à 2 balles de VB & BD =  :??:  




 
Menu Project/References, tu sélectionnes un "Microsoft ActiveX Data Component X" ou X vaut 2.1 ou 2.5.  C'est comme ça qu'on construit les dépendances externes à l'application.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 30-10-2002 à 16:45:16    

me sort type incompatible
With .Fields 'C T bien fields ?
            Call .Append("Info", adString)


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-10-2002 à 16:47:58    

oui...
 
beuh?  Là je comprends pas :/


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 30-10-2002 à 16:48:41    

drasche a écrit a écrit :

oui...
 
beuh?  Là je comprends pas :/




sur le "info"


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-10-2002 à 16:51:57    

[SDF]Poire a écrit a écrit :

 
sur le "info"




 
 
ok je pense que c le vbString qu'il aime pas.  Essaie plutôt adVarChar.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 30-10-2002 à 16:55:02    

non +
C vraiment sur le "info"...
T sur que C fields ds le with ?


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-10-2002 à 16:58:07    

"With .Fields"  Certain.  Je vois que vbString ne fait pas partie de l'énumérateur DataEnumType (touche F2 pour browser l'API disponible).  C'est là-dedans que tu choisis le type en paramètre à Append.  Pour "Info", je ne vois pas car tu devrais pouvoir y mettre ce que tu veux vu que ça va figurer comme en-tête de la colonne.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 30-10-2002 à 17:02:03    

drasche a écrit a écrit :

"With .Fields"  Certain.  Je vois que vbString ne fait pas partie de l'énumérateur DataEnumType (touche F2 pour browser l'API disponible).  C'est là-dedans que tu choisis le type en paramètre à Append.  Pour "Info", je ne vois pas car tu devrais pouvoir y mettre ce que tu veux vu que ça va figurer comme en-tête de la colonne.




la complémentation veut un seul arg(un objet)
fo pas un CreateField ?


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-10-2002 à 17:05:41    

ooops j'ai oublié de préciser que le nombre de chars réservé doit figurer après adVarChar en 3è paramètre.
Sinon je vois pas.  On crée le recordset, puis on ajoute directement les fieds comme indiqué.  Faudrait que j'essaie de mon côté pour voir mais je ne vois rien qui intervient...  Surtout qu'il n'est pas encore associé au DataGrid...


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 30-10-2002 à 17:06:53    

drasche a écrit a écrit :

ooops j'ai oublié de préciser que le nombre de chars réservé doit figurer après adVarChar en 3è paramètre.
Sinon je vois pas.  On crée le recordset, puis on ajoute directement les fieds comme indiqué.  Faudrait que j'essaie de mon côté pour voir mais je ne vois rien qui intervient...  Surtout qu'il n'est pas encore associé au DataGrid...




G essayé d'ajouter la taille aprés :-/ tjs parreil


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-10-2002 à 17:11:44    

quelle version d'ADO?  On bosse sur la 2.5 ici.  Je ne sais même pas dire si la version pourrait à voir, vu qu'on est obligé de tourner en 2.5...
Et quelle version de VB? (service pack).  Il paraît que la 4 était très buggée mais j'espère que c'était pas à ce point là...
As-tu essayé d'autres paramètres?


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 30-10-2002 à 17:18:18    

drasche a écrit a écrit :

quelle version d'ADO?  On bosse sur la 2.5 ici.  Je ne sais même pas dire si la version pourrait à voir, vu qu'on est obligé de tourner en 2.5...
Et quelle version de VB? (service pack).  Il paraît que la 4 était très buggée mais j'espère que c'était pas à ce point là...
As-tu essayé d'autres paramètres?




ADO 2.5
SP de VB je C po
G essayé tout un tas de truc t'imagine même po :D (google + msdn)


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-10-2002 à 17:19:35    

le SP est renseigné dans le help/about.
 
j'abandonne  :(


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 31-10-2002 à 09:30:49    

drasche a écrit a écrit :

le SP est renseigné dans le help/about.
 
j'abandonne  :(  




Version 8176  
VBA retail 6.0.8069
Forms3 2.01
 
 :pt1cable:  :bounce:  :pt1cable:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 31-10-2002 à 09:43:44    

en faisant comme ça :


    rst.Fields.Append "Info", adVarChar, 5
    rst.Fields.Append "Libelle", adVarChar, 30
    rst.CursorType = adOpenStatic
    rst.LockType = adLockBatchOptimistic
    rst.Open


 
ça roule
VB doit avoir un pb avec les with  
 :gun:  :fou:  :pt1cable:  :spookie:  :eek2:  :ouch:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 31-10-2002 à 09:46:19    

Version 8862 (SP4)
VBA Retail 6.0.8877
Forms3: 2.01
 
et encore on bosse en SP4 paske le client est en SP4 et veut pas upgrader...
 
Si t'as pas de SP il se contentera de mettre "Microsoft Visual Basic 6.0" en haut du help/about.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 31-10-2002 à 09:54:32    

[SDF]Poire a écrit a écrit :

 
ça roule
VB doit avoir un pb avec les with  




 
berk, suis dégoûté.  Installe le SP5 et réessaye ;-) (bon ok tu fais comme tu veux hein ;-) )


Message édité par drasche le 31-10-2002 à 09:54:51

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 31-10-2002 à 10:02:09    

drasche a écrit a écrit :

 
 
berk, suis dégoûté.  Installe le SP5 et réessaye ;-) (bon ok tu fais comme tu veux hein ;-) )




Je veraais + tard pour le SP
 
mais G un autre probléme... j'arrive pas à rendre la DataGrid éditable :(  
Et si j'utilise une DBGrid il accepte pas la feinte du recordset (il aime po

Set grdList.DataSource = rst

)
[:totoz]


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 31-10-2002 à 10:14:40    

oublie le dbgrid pour ce genre de choses, je l'avais omis exprès ;-)
 
Vérifie bien les propriétés Locked par exemple, je connais pas leur état par défaut.  Voici un petit sample sur ce que nous faisons...
 


    Set dg.DataSource = rst
    dg.AllowRowSizing = False
    dg.Columns(2).Locked = True
    dg.Columns(7).Locked = True
    dg.Columns(4).Alignment = dbgRight
    dg.Columns(5).Alignment = dbgRight
    dg.Columns(0).Width = 0
    dg.Columns(1).Width = 1180
    dg.Columns(2).Width = 1485
    dg.Columns(3).Width = 560


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 31-10-2002 à 10:15:43    

drasche a écrit a écrit :

 
 
berk, suis dégoûté.  Installe le SP5 et réessaye ;-) (bon ok tu fais comme tu veux hein ;-) )




lien du SP5 KC sur microsoft  :(


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 31-10-2002 à 10:20:36    

drasche a écrit a écrit :

oublie le dbgrid pour ce genre de choses, je l'avais omis exprès ;-)
 
Vérifie bien les propriétés Locked par exemple, je connais pas leur état par défaut.  Voici un petit sample sur ce que nous faisons...
 


    Set dg.DataSource = rst
    dg.AllowRowSizing = False
    dg.Columns(2).Locked = True
    dg.Columns(7).Locked = True
    dg.Columns(4).Alignment = dbgRight
    dg.Columns(5).Alignment = dbgRight
    dg.Columns(0).Width = 0
    dg.Columns(1).Width = 1180
    dg.Columns(2).Width = 1485
    dg.Columns(3).Width = 560






Elles sont pas locké... G le curseur d'édition qui clignote ds la cellule mais je peux rien taper :-/


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 31-10-2002 à 10:20:52    

http://download.microsoft.com/down [...] 6sp5VB.exe
 
ça c'est le sp5 pour vb6 en français.  il fonctionne je l'ai testé.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 31-10-2002 à 10:22:04    

drasche a écrit a écrit :

http://download.microsoft.com/down [...] 6sp5VB.exe
 
ça c'est le sp5 pour vb6 en français.  il fonctionne je l'ai testé.




Il me sort une erreur  :(  
(FTP blocké C ptet pour ça...)


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 31-10-2002 à 10:27:41    

shit, bon toute façon j'ai fait un projet à part, g même pas le curseur qui clignote... dès que j'ai un test concluant je balance le code source...


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 31-10-2002 à 10:30:03    

moi G ça :
 


    Dim rst As ADODB.Recordset
 
...
 
    Set rst = New ADODB.Recordset
   
    rst.Fields.Append "Info", adVarChar, 5
    rst.Fields.Append "Libelle", adVarChar, 30
    rst.CursorType = adOpenStatic
    rst.LockType = adLockBatchOptimistic
    rst.Open
     
    Set grdList.DataSource = rst 'grdList -> DataGrid
    grdList.Columns(0).DataField = "Info"
    grdList.Columns(1).DataField = "Libelle"
    grdList.Refresh


G le curseur mais je peux rien écrire [:totoz]


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 31-10-2002 à 10:31:34    

(tu veux pas le lire mon private ?)


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed