Page 1 of 1
Re: ¿Qué opciones tengo para accesar a bases de Access?
Posted: Wed Jul 26, 2006 3:26 am
by wmormar
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
¿Cómo se hace?
Posted: Wed Jul 26, 2006 4:08 am
by 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
Re: ¿Cómo se hace?
Posted: Wed Jul 26, 2006 4:23 am
by wmormar
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...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
Posted: Wed Jul 26, 2006 10:38 am
by 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()
Re: ¿Cómo se hace?
Posted: Wed Jul 26, 2006 7:34 pm
by 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
Ado
Posted: Mon Oct 02, 2006 7:14 pm
by Ari
Tentei usar o ADO
diz que nao tem o Provider intalado, Provider=Microsoft.Jet.OlEDB.4.0
??
Ari