Elegir un archivo y cargarlo en BD

[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