مشكل ذخيره عكس

[xboycooper]

سلام دوستان :لبخندساده:
من يه مشكلي دارم موقع ذخيره عكس در ديتابيس sql .
با اين دستور عكس رو ذخيره ميكنم .

with ADOCommand1 do
begin
Parameters.ParamByName('pic').LoadFromFile(Edit1.T ext,ftBlob);
CommandText := 'insert into images(pic)values(:pic)';
Prepared:=True;
Execute;
end;
مشكل اينجاست كه عكس در يك ركورد جديد ذخيره ميشه و بقيه فيلد ها هم خالي ميمونه !
من همراه با عكس يه سري اطلاعات ديگه هم وارد ميكنم كه در فيلد هاي ديگه بايد ذخيره شه ولي اون اطلاعات در يك ركورد و اين عكس به صورت جدا در ركورد بعدي ذخيره ميشه !

اگه ممكنه راهنمايي كنيد تا عكس به همراه اطلاعات ديگه همزمان وارد يك ركورد شن .
ممنون :چشمک:

[mehdimdp]

with ADOCommand1 do
begin
Parameters.ParamByName('pic').LoadFromFile(Edit1.T ext,ftBlob);
CommandText := 'insert into images(pic)values(:pic)';
Prepared:=True;
Execute;
end;


سلام
خب این کدی که شما نوشتین , فقط عکس رو در پایگاه درج میکنه .
یعنی شما فیلد دیگه ای رو مقدار دهی نکردین...

[xboycooper]

درسته مشكل همين بود ! تونستم حلش كنم :لبخند:
اول اطلاعات رو ذخيره كردم و فيلد تصوير مقدارش خاليه بعد رفتم به آخرين فيلد ذخيره شده و مقدار عكس رو با دستور زير وارد كردم .


temp:='update images set pic=:pic where id='+IntToStr(lastid);
Parameters.ParamByName('pic').LoadFromFile(Edit1.T ext,ftBlob);
CommandText := temp;


:چشمک::لبخند: