(13-12-2019, 01:56 PM)Mr.DOS كتب : [ -> ]سلام عليكم / تقبل الله منا ومنكم
هناك عدة طرق اما عن طريق السحب والافلات او حفظ النتائج في مصفوفة او متغيرات ...
لكن انصحك بالطريقة السهلة
لما تعمل استعلام للجدول الاول : تكون قد جهزته مسبقا من وضع التصميم مع سحب وافلات للحقول على الفورم (طبعا يمكن اخفاءها)
الاضافة تكون على الجدول الثاني 2 استنادا من نتائج الحقول (dbedit....1 2 3 )
شكل عام SQL
insert into table_name values (value1 value2 value3 ...)
value1=dbedit1.text مثلا وهكذا
value2=dbedit2.text ...
او الاضافة
table.append;
table.fieldbyname(fieldname).value:=dbedit1.text;
table.fieldbyname(fieldname).value:=dbedit2.text;
table.fieldbyname(fieldname).value:=dbedit3.text;
table.post;
قمت بمحاولة ادخال المعطيات عن طريق SQL بكتابة مايلي :
--------------------------------------------------
begin
DFM.Qadd.Close;
DFM.Qadd.SQL.Clear;
DFM.Qadd.SQL.Add('insert into S_Jour(DATE_JOURNNEE,SERIE_DU,SERIE_AU,QUITTANCE_DU,QUITTANCE_AU,') ;
DFM.Qadd.SQL.Add ('MONTANT_NUMERAIRE,MONTANT_BANCAIRE,MONTANT_CCP,APPLICATION');
DFM.Qadd.SQL.add(''''+form1.maskedit3.text+''','''+dbedit1.text+''','''+dbedit2.text+''',');
DFM.Qadd.SQL.add(' '''+dbedit3.text+''','''+dbedit4.text+''','''+dbedit5.text+''','''+dbedit6.text+''','''+dbedit7.text+''','''+dbedit21.text+'''');
DFM.Qadd.ExecSQL;
DFM.Qadd.Close;
DFM.Qadd.SQL.Clear;
DFM.Qadd.SQL.Add('select from S_Jour * order by SERIEDATE_JOURNNEE');
DFM.Qadd.Open;
end;
end;
-----------------------------------
نتج عنه الخطا التالي في المرفقات فما هو التصحيح
(13-12-2019, 01:56 PM)Mr.DOS كتب : [ -> ]سلام عليكم / تقبل الله منا ومنكم
هناك عدة طرق اما عن طريق السحب والافلات او حفظ النتائج في مصفوفة او متغيرات ...
لكن انصحك بالطريقة السهلة
لما تعمل استعلام للجدول الاول : تكون قد جهزته مسبقا من وضع التصميم مع سحب وافلات للحقول على الفورم (طبعا يمكن اخفاءها)
الاضافة تكون على الجدول الثاني 2 استنادا من نتائج الحقول (dbedit....1 2 3 )
شكل عام SQL
insert into table_name values (value1 value2 value3 ...)
value1=dbedit1.text مثلا وهكذا
value2=dbedit2.text ...
او الاضافة
table.append;
table.fieldbyname(fieldname).value:=dbedit1.text;
table.fieldbyname(fieldname).value:=dbedit2.text;
table.fieldbyname(fieldname).value:=dbedit3.text;
table.post;
قمت بمحاولة ادخال المعطيات عن طريق SQL بكتابة مايلي :
--------------------------------------------------
begin
DFM.Qadd.Close;
DFM.Qadd.SQL.Clear;
DFM.Qadd.SQL.Add('insert into S_Jour(DATE_JOURNNEE,SERIE_DU,SERIE_AU,QUITTANCE_DU,QUITTANCE_AU,') ;
DFM.Qadd.SQL.Add ('MONTANT_NUMERAIRE,MONTANT_BANCAIRE,MONTANT_CCP,APPLICATION');
DFM.Qadd.SQL.add(''''+form1.maskedit3.text+''','''+dbedit1.text+''','''+dbedit2.text+''',');
DFM.Qadd.SQL.add(' '''+dbedit3.text+''','''+dbedit4.text+''','''+dbedit5.text+''','''+dbedit6.text+''','''+dbedit7.text+''','''+dbedit21.text+'''');
DFM.Qadd.ExecSQL;
DFM.Qadd.Close;
DFM.Qadd.SQL.Clear;
DFM.Qadd.SQL.Add('select from S_Jour * order by SERIEDATE_JOURNNEE');
DFM.Qadd.Open;
end;
end;
-----------------------------------
نتج عنه الخطا التالي في المرفقات فما هو التصحيح