topic-10703

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Ayuda con XBrowse y Access MDB
Posted: Sat Apr 12, 2008 03:35 PM

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?

Javier,

FWH 8.04 2008

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Ayuda con XBrowse y Access MDB
Posted: Sun Apr 13, 2008 01:51 PM

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

Un saludo,

Javier,

FWH 8.04 2008

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Probando con ListBox AYUDA!!
Posted: Sun Apr 13, 2008 04:07 PM

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

Javier,

FWH 8.04 2008

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

hazlo asi....
Posted: Sun Apr 13, 2008 09:07 PM

Amigo lo puedes hacer de la siguiente manera:

Code: Select all Collapse

#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.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Ayuda con XBrowse y Access MDB
Posted: Sun Apr 13, 2008 09:24 PM

Muchas gracias por la ayuda, Leandro.

Un saludo.

Javier,

FWH 8.04 2008

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Ayuda con XBrowse y Access MDB
Posted: Sun Apr 13, 2008 09:46 PM

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.

???

Javier,

FWH 8.04 2008

FiveTech Support Forums

Continue the discussion