FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Poner en un xBrowse
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
Poner en un xBrowse
Posted: Mon Feb 20, 2017 04:20 PM
Amigos, buen dia.
Alguien me podría dar un hilo de como poner en un xbrowse
este es mi fuente

Code (fw): Select all Collapse
    oSQL:=CreateObject("ADODB.Connection")
    oSQL:ConnectionString:="Provider= MicroSoft.Jet.OLEDB.4.0;Data Source=.\att2000.mdb;"
    oSQL:Open() 
    oRs := CreateObject( "ADODB.Recordset" ) 
    cQuery := "Select * from userinfo"  
    oRs:Open( cQuery, oSQL:ConnectionString )
    SysReFresh()


Estoy conectando a una base de Acces y sacando datos de una tabla
Considero que esta correcto porque no me marca ningún error

el paso que sigue seria el cursor ponerlo en un xbrowse, pero no lo hacerlo

Gracias por su ayuda.
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
Re: Poner en un xBrowse
Posted: Mon Feb 20, 2017 06:01 PM
Code (fw): Select all Collapse
    oRs1:Open( cQuery1, oSQL:ConnectionString, 1, 3 )  //Aquí me falto el 1,3
    DEFINE DIALOG oDlgHide SIZE 800,500 
        oBrowHide := TxBrowse():New(oDlgHide)
        PoneFormasBrowse(oBrowHide)
        oBrowHide:SetAdo( oRs1 )
        oBrowHide:CreateFromCode()
    ACTIVATE DIALOG oDlgHide


hasta ahi voy bien ya los tengo
Pero tengo un campo en la tabla de acces que es "CHECKTIME" donde tengo la fecha y la hora "08/02/2017 08:51:20"
Este campo no me lo muestra, alguien sabra como ??
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Poner en un xBrowse
Posted: Fri Feb 24, 2017 06:34 AM

oBrowHide:CheckTime:cEditPicture := "@T"

Regards



G. N. Rao.

Hyderabad, India
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Poner en un xBrowse
Posted: Fri Feb 24, 2017 06:39 AM
I would write the same program this way:
Code (fw): Select all Collapse
oCn := FW_OpenAdoConnection( "att2000.mdb" )
oRs := FW_OpenRecordSet( oCn, "userinfo" )

DEFINE DIALOG oDlg SIZE 800,500 PIXEL TRUEPIXEL
@ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
   DATASOURCE oRs AUTOCOLS 
oBrw:Checktime:cEditPicture := "@T"
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTERED
Regards



G. N. Rao.

Hyderabad, India

Continue the discussion