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

[wmormar]

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

[fleal]

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]

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

[R.F.]

Eso esta chupao

Code: Select all

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()

[wmormar]

http://incos...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

[Ari]

Tentei usar o ADO

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

??

Ari