FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como enviar el resultado de una consulta con un Query al Word?
Hola a todos.
Quisiera que alguien me enviara un ejemplo de codigo de como enviar los campos de una base de datos de una consulta que arroja un Query y un DataSource al Word, de como conectar la aplicacion y todos los parametros requeridos para establecer contacto con la aplicacion de Word. Gracias y saludos... |
#2
|
||||
|
||||
Ejemplo:
Código:
procedure DumpWord(DataSet: TDataSet; WordDoc: TWordDocument); var WordTable: Table; RowCount, ColCount: Integer; RowIndex, ColIndex: Integer; begin DataSet.Open; try RowCount := DataSet.RecordCount; ColCount := DataSet.Fields.Count; WordTable := WordDoc.Tables.Add(WordDoc.Range, RowCount + 1, ColCount); for ColIndex := 1 to ColCount do begin WordTable.Cell(1, ColIndex).Range.Font.Bold := 1; WordTable.Cell(1, ColIndex).Range.Text := DataSet.Fields[ColIndex - 1].FieldName; WordTable.Cell(1, ColIndex).Range.Paragraphs.Alignment := wdAlignParagraphCenter; end; RowIndex := 1; while not DataSet.Eof do begin for ColIndex := 1 to ColCount do WordTable.Cell(RowIndex, ColIndex).Range.Text := DataSet.Fields[ColIndex - 1].AsString; Inc(RowIndex); DataSet.Next; end; finally DataSet.Close; WordDoc.Application.Visible := true; end; end;
Funciona para Word97 pero no debe haber mayor problema para Word2000. // Saludos Última edición por roman fecha: 28-08-2006 a las 17:33:19. |
#3
|
|||
|
|||
Gracias amigo, eres muy amable, voy a insertar tu codigo.
Saludos desde México- |
#4
|
|||
|
|||
Hola a todos!!.
Inserte este codigo en mi programa, pero me marco el error "No se ha podido llamar a CoInitialize" y me ignora el resto del codigo para poder enviar informacion al Word, esto lo marca a la hora de invocar la aplicacion, bueno espero que alguien me pueda ayudar con esto. Saludos. |
#5
|
||||
|
||||
El procedimiento DumpWord requeire un objeto de tipo TWordDocument. ¿Cómo estás creando este objeto?
CoInitialize es una rutina que inicializa el acceso a la librería COM y normalmente Delphi la llama él mismo cuando es necesario, y así debiera suceder si está utilizando los componentes de la paleta Servers. Si, por lo contrario, estás creando los objetos directamente con CoCreateInstance o algo asi entonces debes tú mismo llamar a CoInitialize que debe estar en la unidad ActiveX o ComObj, no recuerdo bien. // Saludos |
#6
|
|||
|
|||
Insertar Imagen de un campo de una BDD a una celda de una tabla de word desde delphi
Hola a todos, gracias roman lo de insertar campos de un query en una tabla de word me funcionó a la perfección. Ahora mi problema es que quiero insertar un campo que contiene una imagen a una celda de una tabla de word desde delphi y también un campo memo (este campo lo pone en la tabla com muchisimis signos raros). Si alguien sabe donde puedo leer sobre esto por favor les agradeceré mucho.
|
#7
|
||||
|
||||
es un ejemplo muy util
hola roman, eres genial. es justamente el ejemplo que estaba buscando. felicidades x tus habilidades.
|
#8
|
||||
|
||||
Cita:
Deberian ser EmptyParam? Saludos
__________________
Última edición por MaMu fecha: 28-07-2007 a las 22:49:33. |
#9
|
||||
|
||||
Hay algo para Word XP ?
Este procedimiento me da error: "Interface no soportada" Saludos
__________________
|
|
|
|