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