Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #9  
Antiguo 12-05-2004
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Respecto a llamar a un informe hecho y almacenado en la base de datos de Access, mírate este código:

Código Delphi [-]
   In the next small example I'll demonstrate how you can
  call the report in MS Access:
   
   var 
     Access: Variant; 
   begin 
     {open the Access application}
     try 
       Access := GetActiveOleObject('Access.Application'); 
     except 
       Access := CreateOleObject('Access.Application'); 
     end; 
     Access.Visible := True; 
   
     { open the database 
      The second parameter specifies whether you want to open the 
      database in Exclusive mode}
     Access.OpenCurrentDatabase('C:\My Documents\Books.mdb', True); 
   
     { open the report 
      The value for the second parameter should be one of 
      acViewDesign, acViewNormal, or acViewPreview. acViewNormal, which is the
      default, prints the report immediately. If you are not using the type
      library, you can define these values like this: 
   
     const 
       acViewNormal = $00000000; 
       acViewDesign = $00000001; 
       acViewPreview = $00000002; 
   
     The third parameter is for the name of a query in the
   current database. The fourth parameter is for a SQL
   WHERE clause - the string must
     be valid SQL, minus the WHERE.} 
     Access.DoCmd.OpenReport('Titles by Author', acViewPreview,
   EmptyParam, EmptyParam); 
   
   <...> 
     {close the database}
     Access.CloseCurrentDatabase; 
   
     {close the Access application}
     {const 
       acQuitPrompt = $00000000; 
       acQuitSaveAll = $00000001; 
       acQuitSaveNone = $00000002;} 
     Access.Quit(acQuitSaveAll); 
   end;

Nota: La próxima vez ten en cuenta que cada hilo debe de tener una sola pregunta.

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 22:35:06.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi