EasyDelphi Q&A

.تم الانتقال للموقع الجديد . وسيبقى الموقع القديم هذا متاح للقراءة فقط حتى الانتهاء من نقل كل الاسئلة إلى الموقع الجديد

يمكنك طرح الاسئلة والنقاشات في الموقع الجديد. الذهاب للموقع الجديد


0 تصويتات
67 مشاهدات

أين الخطأ في الكود التالي:

 

procedure TForm1.BitBtn1Click(Sender: TObject);

var date1,date2:string;

begin

IF ComboBox1.Text='جانفي' then begin

date1:='/01/01'+edit1.Text;    /// هي السنة edit1.Text = 2018

date2:='/01/31'+edit1.Text;   

adoquery1.Active:=false;

adoquery1.SQL.clear;

adoquery1.SQL.Add('select * from identite where date_nais Between '+date1+' and '+date2+'');

adoquery1.ExecSQL;

adoquery1.Active:=true;

end;

end;

سُئل في تصنيف Delphi بواسطة (380 نقاط) | 67 مشاهدات
0
اكتب رسالة الخطأ التي ظهرت .
اكتب ما هو المتوقع من هذا الكود ان يعمل .
لا ترمي كود هكذا وتطلب منا البحث عن شيء لم تحدده .

من فضلك سجل دخولك أو قم بتسجيل حساب للإجابة على هذا السؤال

اسئلة متعلقة

+1 تصويت
2 إجابة
سُئل أغسطس 13، 2019 في تصنيف vcl بواسطة rm31dz (400 نقاط) | 86 مشاهدات
+4 تصويتات
1 إجابة
سُئل أغسطس 14، 2018 في تصنيف SQLite بواسطة reema (320 نقاط) | 50 مشاهدات
0 تصويتات
1 إجابة
سُئل يونيو 4، 2019 في تصنيف Delphi بواسطة Djemoui Benkhalifa (990 نقاط) | 74 مشاهدات
+3 تصويتات
2 إجابة
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

497 سؤال
752 إجابة
1,417 تعليق
271 مستخدم