Alguine tiene ejemplo TCBrowse con ADO

[ruben Dario]

Alguien tiene un ejemplo TCBrowse con ADO.

[ricardog]

Espero que este ejemplo te sirva:

Code: Select all  Expand view

@ 0,0 LISTBOX oBrw FIELDS ;
                     AllTrim(oD03:Fields("Apellidos"):Value)+" "+AllTrim( oD03:Fields("Nombre"):Value),;
                    Tran( oD03:Fields("gPaciente"):Value,"#######" ),;
                    IF(!Empty(oD03:Fields("Telefono1"):Value),;
                                                                           Tran(oD03:Fields("Telefono1"):Value,"@R (XXX)-XXXX-XXXX"),"FALTA REG."),;
                    IF(Empty(oD03:Fields("Edad"):Value),;
                                                                           If(Empty(oD03:Fields("Meses"):Value),"FALTA REG.",;
                    Tran(oD03:Fields("Meses"):Value,"99")+" MESES"),;
                    Tran(oD03:Fields("Edad"):Value,"99")+" AÑOS"),;
                     IF(oD03:Fields("_"):Value == "M","MASCULINO","FEMENINO");
                     Sizes 480,75,100,100,100;
                     HEADERS "Nombre","Codigo","Telefono","Edad","_" PIXEL SIZE 428,282 OF oDlg

                     oBrw:cAlias:="ARRAY"
                     oBrw:nLineStyle := 6
                     oBrw:nClrPane:={||IIF(oD03:AbsolutePosition%2==0,AZULES,BLANCOS)}
                     oBrw:bLogicLen = { || oD03:RecordCount }
                     oBrw:bGoTop    = { || oD03:MoveFirst() }
                     oBrw:bGoBottom = { || oD03:MoveLast() }
                    oBrw:bSkip     = { | nSkip | Skipper( oD03, nSkip ) }

Saludos

Ricardo E. Guardado F.