Elegir un archivo y cargarlo en BD

[exequielmatias1]

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.

[ecfisa]

Empezado por exequielmatias1

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

[exequielmatias1]

Empezado por ecfisa

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..

[exequielmatias1]

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!!

[[AzidRain]]

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.

[Pericles]

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