adjuntar documentos de word

[pabloloustau]

hola a todos!
uso una base de datos ODBC microsoft access, aparte de los campos de texto, memo, fecha y hora access tiene una campo para adjuntar archivos.
queria saber si se puede desde delphi adjuntar archivos de word a un campo y de ser posible que codigo basico se utilizaria, porque no encuetro nada de informacion al respecto. bueno muchas gracias, espero respuestas, adio.

[[rretamar]]

No trabajo con archivos de Word....menos aún con Access (¡ vade retro !), pero mi recomendación es que no conviene adjuntar archivos en la misma base de datos. Es preferible guardarlos en carpetas (por ejemplo creando una estructura de directorios en forma cronológica) y colocar en un campo de la base de datos el nombre + trayecto de cada archivo.

Es lo que hago en una de mis aplicaciones.

Saludos !

[pabloloustau]

lo que pasa es que soy novaro y access me parece la forma mas facil de utilizar base de datos. pareciera como que te tengo que pedir perdon por eso. un poco de modestia no vendria nada mal.

[Casimiro Notevi]

Empezado por pabloloustau

lo que pasa es que soy novaro y access me parece la forma mas facil de utilizar base de datos. pareciera como que te tengo que pedir perdon por eso. un poco de modestia no vendria nada mal.

No te lo tomes a mal, una broma habitual por aquí es: "Cada vez que alguien usa access, Dios mata un gatito"

No sé si access tiene campos blob o algo así donde se pueda guardar cualquier fichero, ¿has buscado por los foros?.
Si acaso, algún compañero que lo sepa te contesta.

[pabloloustau]

si. access tiene campos blob.
he realizado una tabla en access en el cual ingrese archivos de word( igual se puede ingresar archivos de texto, imagesnes, sonidos, etc).
desde delphi me aparece en el dbgrid en los campos que ingrese archivos, la palabra blob.

[Casimiro Notevi]

Más o menos es algo así:

procedure TForm1.Button4Click(Sender: TObject);
var
st:Tstream;
begin
st  := TMemoryStream.Create;
clNotas.SaveToStream(st);
  with saa do
  begin
    Params[0].Value := clID_AFILIADO.Value;
     Params[1].Value := clDOCUMENTO.Value;
    Params[2].Value :=  clNOMBRE.Value;
    Params[3].Value := clAPELLIDOS.Value;
     Params[4].Value := clTELEFONOS.Value;
    Params[5].LoadFromStream(st,ftBlob);
    ExecuteMethod
  end;
st.free
end;