Ayuda con XBrowse y Access MDB

[jfafive]

Hola,

Estoy usando el XBrowse con la sintaxis xbase. No ha dado ningun problema mientras he usado .DBF.

Pero ahora que accedo a una base de datos access, el XBrowse no me muestra nada.

Este es el codigo:

REQUEST ADORDD
.....

USE DATABASE\fichero.mdb VIA "ADORDD" TABLE "clientes" ALIAS "CLIENTES"

CLIENTES->(DbGoTop())

DEFINE DIALOG oDlg RESOURCE "PRUEBA"

REDEFINE XBROWSE oBrw ID 101 OF oDlg ;
COLUMNS "NOMBRE" ;
FIELDS CLIENTES->NOMBRE ;
HEADERS "NOMBRE" ;
ALIAS "CLIENTES"

ACTIVATE DIALOG oDlg CENTERED

¿Alguna sugerencia?

[jfafive]

No, no lo he probado.
Pero gracias por el consejo.

Un saludo,

[jfafive]

Estimado Foro,

Como ya he probado con XBROWSE y no me muestra nada de la tabla de access, he decidido intentar con LISTBOX mediante la siguiente sintaxis:

REDEFINE LISTBOX oBrw ;
FIELDS CLIENTES->NOMBRE;
ALIAS Alias();
ID ID_BROWSE OF oDlg

Y con esto tambien me da un problema. Ya no es que no muestre nada, simplemente se cierra la aplicación.

En fin, que lo unico que quiero es tener un browse dentro de un dialogo tipo folder o tag que me muestre los datos de access.

¿Una ayudita....?

[leandro]

Amigo lo puedes hacer de la siguiente manera:

Code: Select all  Expand view  RUN


#include "AdoBiel.ch"
#include "FiveWin.ch"
FUNCTION VerMdb()
   LOCAL oWndVerMdb,oCnn,oRs, oBrw
   IF !File('Demo.Mdb')
      MSG('Falta crear la base de datos')
      RETURN NIL
   ENDIF
   DEFINE WINDOW oWndVerMdb MDICHILD TITLE "Visualizar tabla CLIENTE"
   //--
   oCnn:=tOleAuto():new("ADODB.connection")
   oCnn:open("Provider= MicroSoft.Jet.OLEDB.4.0;Data Source=.\demo.mdb;")
   // -- Creamos RecordSet----
   oRs:=tOleAuto():New("ADODB.RecordSet")
   oRs:CursorLocation   := adUseClient
   oRs:CursorType       := adOpenDynamic
   oRs:LockType         := adLockOptimistic
   oRs:ActiveConnection := oCnn
   oRs:Source           := "SELECT * FROM CLIENTE"
   oRs:Open()
   //--

   oBrw := TXBrowse():New( oWndVerMdb )
   oBrw:SetAdo(oRs)
   oBrw:CreateFromCode()
   oWndVerMdb:oClient:=oBrw

   ACTIVATE WINDOW oWndVerMdb ON INIT oBrw:SetFocus()
RETURN NIL


Amigo este codigo lo saque el blog de nuestro amigo Biel

http://bielsys.blogspot.com/

Creo que ahi puedes encontrar mas información al respecto.

[jfafive]

Muchas gracias por la ayuda, Leandro.

Un saludo.

[jfafive]

Ahora ya puedo ver los datos de mi tabla en access.
Pero al pulsar sobre las barras para hacer un scroll horizontal o vertical, estas desaparecen.

???