Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Servers
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-07-2012
koiji koiji is offline
Miembro
 
Registrado: oct 2007
Posts: 21
Poder: 0
koiji Va por buen camino
¿Cómo exportar de BD a excel en delphi2009?

hola amigos como puedo exportar datos de una base de datos a excel y generarlo
y me podrian ayudar en este codigo que sale error no me funciona

Código Delphi [-]
Excel.ActiveWorkbook.SaveAs( cadena + 'Nueva.xls',
   EmptyParam, EmptyParam, EmptyParam,
   EmptyParam, EmptyParam, xlNoChange,
   EmptyParam, EmptyParam, EmptyParam,
   EmptyParam, EmptyParam, 0);

estoy comenzando a lo que es importa y exportar en delphi a excel
Responder Con Cita
  #2  
Antiguo 02-07-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Además de los consejos que te damos en la guía de estilo, no está claro lo que preguntas con lo que has expuesto, dices "exportar de BD a excel", sin embargo ese código parece que estás exportandod de excel a...?, no se sabe, ¿qué base de datos?

p.d. También he movido tu hilo de foro, lo habías puesto en delphi/web y no tiene nada que ver con la web
Y he ajustado tu título a uno más apropiado.
Responder Con Cita
  #3  
Antiguo 02-07-2012
Avatar de kapcomx
kapcomx kapcomx is offline
Miembro
 
Registrado: jun 2007
Ubicación: Puebla México
Posts: 350
Poder: 17
kapcomx Va por buen camino
ejemplo

que tal Koiji espero te sirva este ejemplo:

Código Delphi [-]
ExcelApplication1.Connect; 
ExcelApplication1.Visible[0] := false; 
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0)); 
excelworkbook1.Author[0]:='Sistema Informatico XXXXXXXX'; 
ExcelWorksheet1.ConnectTo(ExcelApplication1.Sheets[1] as _WorkSheet); 
excelworksheet1.Range['A1','d1'].MergeCells :=true; 
excelworksheet1.Range['A3','d3'].MergeCells :=true; 
excelworksheet1.Range['A1','c3'].HorizontalAlignment:=xlHAlignCenter  ;  
//excelworksheet1.Range['b7','b7'].HorizontalAlignment:=xlHAlignCenter  ;  
excelworksheet1.Range['b4','b5'].HorizontalAlignment:=xlHAlignCenter  ; 
excelworksheet1.Range['A9','c9'].HorizontalAlignment:=xlHAlignCenter  ; 
excelworksheet1.Range['c4','d5'].HorizontalAlignment:=xlHAlignRight; 
excelworksheet1.Range['B1','B1'].ColumnWidth :=30; 
excelworksheet1.Range['c1','c1'].ColumnWidth :=80; 
excelworksheet1.cells.item[1,1].value2:='XXXXXXXXXXXXX SA DE CV'; 
excelworksheet1.cells.item[3,1].value2:='Lista de Productos para Verificar Existencia'; 
excelworksheet1.cells.item[4,3].value2:= 'Fecha:'; 
excelworksheet1.cells.item[4,4].formula:= date(); 
excelworksheet1.cells.item[5,3].value2:= 'Folio Solicitud:'; 
excelworksheet1.cells.item[5,4].value2:= folio; 
excelworksheet1.cells.item[7,1].value2:= 'Proveedor:'; 
excelworksheet1.cells.item[7,2].value2:= dblckprov.text; 
excelworksheet1.cells.item[9,1].value2:='Cantidad'; 
excelworksheet1.cells.item[9,2].value2:='Código'; 
excelworksheet1.cells.item[9,3].value2:='Producto'; 
excelworksheet1.cells.item[9,4].value2:='Existencia'; 
excelworksheet1.Range['A9','D9'].interior.Color:=33023 ;            
//x=col dm.dstemporal.First;   
y:=10; 
x:=1;  
while not(dm.dstemporal.Eof) do 
begin  
  EXCELWORKSHEET1.Cells.ITEM[y,1].VALUE2:= x;              
  EXCELWORKSHEET1.Cells.ITEM[y,1].VALUE2:= dm.dstemporalcantidad.value;              
  EXCELWORKSHEET1.Cells.ITEM[y,2].VALUE2:= dm.dstemporalCLAVE.Value;              
  EXCELWORKSHEET1.Cells.ITEM[y,3].VALUE2:= dm.dstemporalDESCRIPCION.Value;                
  inc(y); 
  inc(x); 
  dm.dstemporal.Next; 
end;  
excelapplication1.ActiveWorkbook.SaveAs(ruta +'.xlsx',emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,1,emptyparam,emptyparam,emptyparam,e  mptyparam,emptyparam,0); 
ExcelApplication1.Quit; 
ExcelApplication1.Disconnect; 
ExcelApplication1.Free;

espero te sirva

p.d. Por cierto no sabia en cual de los tres mensajes contestar???????
__________________
un tipo al cual la sociedad no le tiene el mas mínimo respeto no puede ser presidente....

Última edición por Casimiro Notevi fecha: 02-07-2012 a las 21:33:15.
Responder Con Cita
  #4  
Antiguo 02-07-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por kapcomx Ver Mensaje
p.d. Por cierto no sabia en cual de los tres mensajes contestar???????
¿Ves 3 mensajes?, y si entras en cada uno de ellos ¿son los mismos o distintos?, ¿cambia de foro cada uno y siempre está en el mismo?
Responder Con Cita
  #5  
Antiguo 02-07-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por Casimiro Notevi Ver Mensaje
¿Ves 3 mensajes?, y si entras en cada uno de ellos ¿son los mismos o distintos?, ¿cambia de foro cada uno y siempre está en el mismo?
Hola Antonio.

El mensaje inicialmente estaba localizado en Delphi/Web, y ayer, aparentemente fue movido casi al mismo tiempo al foro OPP que cuando yo lo movía al foro Servers. En "últimos 20 temas" quedan registrados los dos movimientos como es habitual. Pero los tres enlaces hacen referencia a la misma ubicación en el foro Servers

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #6  
Antiguo 02-07-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Sí, aunque lo preguntaba porque pensé que los usuarios "normales" no veían esos mensajes, sólo el "verdadero"
Yo lo moví a un sitio y tú al otro, evidentemente, el sitio elegido por tí era el bueno.

Última edición por Casimiro Notevi fecha: 02-07-2012 a las 23:30:44.
Responder Con Cita
  #7  
Antiguo 02-07-2012
Avatar de kapcomx
kapcomx kapcomx is offline
Miembro
 
Registrado: jun 2007
Ubicación: Puebla México
Posts: 350
Poder: 17
kapcomx Va por buen camino
3 mensajes

asi es mi amigo Casimiro , veo 3 mensajes en la lista principal luego entro en cada uno de ellos y veo lo mismo.

Saludos...
__________________
un tipo al cual la sociedad no le tiene el mas mínimo respeto no puede ser presidente....
Responder Con Cita
  #8  
Antiguo 02-07-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Vaya, seguramente es un 'bug' del vbulletin o alguna configuración.
Gracias por comentarlo.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
como exportar un tchart a excel?? jact85 Gráficos 6 04-09-2008 01:29:46
Como Exportar de Delphi a Excel carlos gonzalez Varios 4 04-09-2008 00:59:56
Como exportar una archivo txt a excel muppett Varios 3 04-03-2008 00:14:02
Cómo exportar una tabla (TTABLE o TQUERY) completa a Excel vick Conexión con bases de datos 1 27-09-2005 10:41:35
Como exportar a excel con Rave? danytorres Impresión 1 08-06-2004 10:50:42


La franja horaria es GMT +2. Ahora son las 18:42:48.


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