Guardar archivos en sql2000

[[kurono]]

el codigo que utilize fue el mismo que mencione al principio del hilo

Código Delphi [-]
// De archivo en disco a campo BLOB 
TBlobField(ADOTable1.FieldByName('pdf')).LoadFromFile('archivo.pdf'); 
 // De campo BLOB a archivo en disco 
TBlobField(ADOTable1.FieldByName('pdf')).SaveToFile('archivo.pdf');

este es un ejemplo de como lo utilize en mis codigo de pruebas

para guardar en la base de datos

Código Delphi [-]
 
begin
  try
     TBlobField(ADOTable1.FieldByName('archivos')).LoadFromFile(Open.FileName);
   finally
     ADOTable1.Post;
     ShowMessage('archivo guardado');
   end;
end;

y este es para guardar de la base de datos al disco

Código Delphi [-]
 
begin
  TBlobField(ADOTable1.FieldByName('archivos')).SaveToFile('C:\'+ DBEdit1.Text+'.exe');
  ShowMessage('archivo guardado');
end;