Elegir un archivo y cargarlo en BD
 

Hola!! una pregunta..
Tengo una Base de datos en Access conectada con ADOQuery. Necesito elegir desde algún componente, un archivo de mi pc y guardarlo en esta base de datos, la misma posee una columa memo en la que se puede adjuntar archivos.

Hola.

¿ Y de que tipo es el archivo que deseas guardar en la bd ?

Saludos :)

Hola ecfisa! zip y rar dentro de ellos son archivos de office..

Quisiera saber ademas, ya que veo complicada la posibilidad de guardar el archivo en la BD, la posibilidad de copiar el archivo a otro directorio. Es decir.. elegir el archivo en un origen determinado, y copiarlo hacia otro directorio.
Gracias!!

Se pueden guardar en la BD, sin embargo no es lo ideal ya que las BD no se hicieron para guardar archivos. A lo sumo puedos guardar el PATH del archivo para que por otra vía se recupere dicho archivo.

Hola como aclaran anteriormente, es mejor guardar la ruta que los datos propiamente dichos.

El siguiente codigo ejecuta un selector de archivos (en este caso habilitado para archivos de imagenes) y la modificacion con el nombre del archivo seleccionado en la base de datos.
(hay que revisar si compila completo y agregarle bloques try/finally etc.. no revise todo...)

Código Delphi [-]

procedure TForm1.Button1Click(Sender: TObject);
var
  SelectorArchivos : TOpenDialog;
  archivo: string;
begin

  SelectorArchivos := TOpenDialog.Create(self);
  SelectorArchivos.Options := [ofFileMustExist];
  SelectorArchivos.Filter := 'Image Files (*.bmp, *.jpg)|*.bmp;*.jpg';
  SelectorArchivos.FilterIndex := 2;

if SelectorArchivos.Execute  then 
Begin      
  archivo := SelectorArchivos.FileName;  
  ADOquery.Active:= false;
  ADOquery.SQL.Clear;
  ADOquery.SQL.Text:=       'UPDATE Tabla SET CampoArchivo='+  archivo +' WHERE id=4545';
  ADOquery.Active:= true;
  ADOquery.ExecSQL;
end
else
    ....
end;

SelectorArchivos.Free;
end;

Saludos
Nicolas Perichon