¿Qué opciones tengo para accesar a bases de Access?

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: ¿Qué opciones tengo para accesar a bases de Access?
Posted: Wed Jul 26, 2006 03:26 AM

fleal wrote:Me pasaron una base de access con una sola tabla, viene tambien un informe.

Me he pasado unas horas y he podido accesar a la tabla y ejecutar el informe. Pero lo hize con Visual Basic, un pequeño programa para accesar a la tabla de access y ejecutar el informe.

¿Hay alguna forma de hacerlo con fivewin?.

Tengo un programa casi terminado para operar toda la administración y si no encuentro la forma de usar ese informe.... tendré que programarlo completo en VB. ¿Qué opciones tengo para ejecutar el informe?

Gracias
Fernando

Fer,

Para acceso a access con ADO es excelente.

Para lo del informe ni idea

Saludos

William, Morales

Saludos

méxico.sureste

fleal

Posts: 234

Joined: Tue Oct 25, 2005 12:39 AM

¿Cómo se hace?
Posted: Wed Jul 26, 2006 04:08 AM

De momento me sirve si la conexión a la base se hace con ADO para recorrer los registros.... ¿Pero como se hace?

En cuanto al informe, vere si me lo puedo rehacer a código.

Gracias

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: ¿Cómo se hace?
Posted: Wed Jul 26, 2006 04:23 AM

fleal wrote:De momento me sirve si la conexión a la base se hace con ADO para recorrer los registros.... ¿Pero como se hace?

En cuanto al informe, vere si me lo puedo rehacer a código.

Gracias

http://incos.sytes.net/files/taller.zip

Se llama taller, no es mio, pero creo no hay problema si lo comparto, lo bajé de algun lado y no recuerdo de donde, lo que si dice en los créditos:

Miguel Angel Cortes.

Espero les funcione.

PD. Mi msn es: wmormar@hotmail.com

Saludos

William, Morales

Saludos

méxico.sureste

R.F.

Posts: 840

Joined: Thu Oct 13, 2005 07:05 PM

¿Qué opciones tengo para accesar a bases de Access?
Posted: Wed Jul 26, 2006 10:38 AM

Eso esta chupao

Code: Select all Collapse

LOCAL oConexionAdo := TOLEAUTO():New("adodb.connection")
PRIVATE oRecordset := TOLEAUTO():New("adodb.recordset")

   oConexionAdo:Open("Provider= MicroSoft.Jet.OLEDB.4.0;Data Source=.\taller.mdb;")

   oRecordSet:LockType := adLockOptimistic
   oRecordSet:CursorType := adOpenKeyset
   oRecordSet:ActiveConnection(oConexionAdo)
   oRecordSet:Source := "Select * from clientes" // tu query aqui
   oRecordSet:Open()
   oRecordSet:MoveFirst()

   aDatos := {}

   DO WHILE ! oRecordSet:eof()
        aReng := {}
        FOR x := 1 TO oRecordSet:Fields:Count()
            AADD(aReng,oRecordSet:Field(x-1):Value
        NEXT
        AADD(aDatos,aReng)
        oRecordSet:MoveNext
   ENDDO

   oRecordSet:Close()
   oConexionAdo:Close()

Saludos

R.F.

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: ¿Cómo se hace?
Posted: Wed Jul 26, 2006 07:34 PM

http://incos.sytes.net/fwh/taller.zip

Sorry, link equivocado, este es el correcto.

Se llama taller, no es mio, pero creo no hay problema si lo comparto, lo bajé de algun lado y no recuerdo de donde, lo que si dice en los créditos:

Miguel Angel Cortes.

Espero les funcione.

PD. Mi msn es: wmormar@hotmail.com

Saludos

William, Morales

Saludos

méxico.sureste

Ari

Posts: 253

Joined: Fri Feb 03, 2006 04:21 PM

Ado
Posted: Mon Oct 02, 2006 07:14 PM

Tentei usar o ADO

diz que nao tem o Provider intalado, Provider=Microsoft.Jet.OlEDB.4.0

??

Ari

Thanks,
Ari

FWH 2501 - Harbour 3.2.0 - Embarcadero 7.43 - MySQL
São Paulo - SP - Brasil
www.sisrev.com.br

FiveTech Support Forums

Continue the discussion