Ver Mensaje Individual
  #6  
Antiguo 01-10-2013
Avatar de Pericles
Pericles Pericles is offline
Miembro
NULL
 
Registrado: sep 2013
Ubicación: Buenos Aires, Argentina
Posts: 24
Reputación: 0
Pericles Va por buen camino
Thumbs up

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
Responder Con Cita