Ayuda con XBrowse y Access MDB

Ayuda con XBrowse y Access MDB

Postby jfafive » Sat Apr 12, 2008 3: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?
jfafive
 
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella

Postby jfafive » Sun Apr 13, 2008 1:51 pm

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

Un saludo,
jfafive
 
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella

Probando con ListBox AYUDA!!

Postby jfafive » Sun Apr 13, 2008 4: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....?
jfafive
 
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella

hazlo asi....

Postby leandro » Sun Apr 13, 2008 9:07 pm

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.
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1682
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Postby jfafive » Sun Apr 13, 2008 9:24 pm

Muchas gracias por la ayuda, Leandro.

Un saludo.
jfafive
 
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella

Postby jfafive » Sun Apr 13, 2008 9: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.

???
jfafive
 
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 60 guests