Poner en un xBrowse

[VitalJavier]

Amigos, buen dia.
Alguien me podría dar un hilo de como poner en un xbrowse
este es mi fuente

Code: Select all  Expand view

    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.

[VitalJavier]

Code: Select all  Expand view

    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 ??

[nageswaragunupudi]

oBrowHide:CheckTime:cEditPicture := "@T"

[nageswaragunupudi]

I would write the same program this way:

Code: Select all  Expand view

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