سؤال عن الإدخال إلى الجدول

رسالة الخطأ واضحة: عندما تكون تعليمة SQL لا تعيد قيم أي أنها ليست SELECT فلا يمكن استخدام Open أو Active بل يجب استخدام ExecSQL

كنت سوف اغلق المشاركة للاسباب التالية:

اولا يجب استخدام تنسيق ال code كي يظهر ال code بشكل واضح و مقروء

with OCIQuery3 do
begin
Active:=false;
SQL.Clear;
SQL.Text :='select max(nb) from STOREOPP ';
Active := true;
vnb := FieldByName('max(nb)').Value;
Active:=false;
SQL.Clear;
OCIQuery4.Active:=false;
OCIQuery4.SQL.Clear;
OCIQuery4.sql.Text:='insert into STOREOPP'+
'values ('+inttostr(vnb+1)+','+ DateToStr(date)+',1,'+ edtamont.text +',1); ';
OCIQuery4.Active:= True;
end;

ثانيا: يجب شرح المشكلة بشكل افضل من وضع الكود على الاقل ذكر اسم نوع قواعد البيانات المستخدم

ثالثا: هناك شيئ اسمه Debug يستخدم لمعرفة مكان الخطأ لكي يتتبع الخطأ و معرفة من اي سطر يظهر

رابعا: افضل طريقة لمعرفة السبب الناتج عن رسالة خطأ ما هو Google it

يبدوا ان fh_feras قد وضع لك الحل, حظك حلو,,

في المرة القادمة الرجاء التقيد بما تم ذكره في المشاركة السابقة

كنت اريد ان تجدي الخطأ بنفسك.

:^)

mouna كتب:

السلام عليكم ورحمة الله و بركاته

with OCIQuery3 do

begin

Active:=false;

SQL.Clear;

SQL.Text :='select max(nb) from STOREOPP ';

Active := true;

vnb := FieldByName('max(nb)').Value;

Active:=false;

SQL.Clear;

OCIQuery4.Active:=false;

OCIQuery4.SQL.Clear;

OCIQuery4.sql.Text:='insert into STOREOPP'+

'values ('+inttostr(vnb+1)+','+ DateToStr(date)+',1,'+ edtamont.text +',1); ';

OCIQuery4.Active:= True;

end;

دائما تظهر رسالة الخطأ المرفقة

ولكم جزيل الشكر

?

السلام عليكم ورحمة الله و بركاته

اقتباس

رسالة الخطأ واضحة: عندما تكون تعليمة SQL لا تعيد قيم أي أنها ليست SELECT فلا يمكن استخدام Open أو Active بل يجب استخدام ExecSQL

اقتباس

ثانيا: يجب شرح المشكلة بشكل افضل من وضع الكود على الاقل ذكر اسم نوع قواعد البيانات المستخدم

نعم يجب ذكر اسم نوع قواعد البيانات المستخدم

with OCIQuery3 do
begin
 Close;
 SQL.Clear;
 SQL.Add('select max(nb) from STOREOPP ');
 open;
 vnb := FieldByName('max(nb)').Value;
end;
with OCIQuery4 do
begin
 Close;
 SQL.Clear;
 sql.Add('insert into STOREOPP'+ 'values ('+inttostr(vnb+1)+','+ DateToStr(date)+',1,'+ edtamont.text +',1) ');
 ExecSQL;
end;

:rolleyes: