@ cantador " c:\Program Files\Borland\Delphi7\Demos\Db\FishFact\
" c'est pas un trés bone,
@bshaka c'est Facile,
je te conseil d'utiliser SQL,
Pour l'ajout:
//***************Ajout*****************************
var ms:Tmemorystream;
dp:string;
begin
try
//************Bloc code SQL******************
with image_qurey do
begin
sql.Clear;
sql.Add('insert into image_table code, image) values( '1000, '+:param0 )');
//************Fin Block SQL********************
if (dbimage1.Picture.Bitmap<>nil) then
begin
dbimage1.Picture.Bitmap.SaveToStream(ms);
ParamByName('param0').LoadFromStream(ms,ftblob); end else
ParamByName('param0').IsNull;
execsql;
ms.free;
end;
except
showmessage('Insertion échoué!!');
end;
//*************Fin d'ajout**************************
//**********Modification******************
Pour la modification tu change le Bloc code sql en haut en que j'ai mentionné:
with image_qurey do
begin
sql.Add('UPDATE image_table SET image=:param0 where code=1000');
//************Fin Modificaion*************************
pour la consultation normalement tu use un TDbImage rien de plus simple.
j'espère que ça va t'aider.