البحث بخاصية adoquery,query

[nassimorov]

بسم الله الرحمان الرحيم
اليوم جبتلكم طريقة البحث في قاعدة البيانات باستعمال العنصر adoquery
================
ملاحظة: قاعدة البيانات لازم تكون access او sqlserver
البرنامج : ديلفي 7
================
اولا: ننزل على الفورم -> adotable,adoquery,adoconnection (تجدونهم في pâlette ADO)
ثانيا: ننزل datasource1,datasource2,dbgrid1,dbgrid2
ثالثا ننزل edit1 ,button1
-----------------------------------------------------------------------------------------------
ننقر مرتين على adoconnection نظغط على construire ثم نختار المزود microsoft jet 4.0 ole db provider
ثم suivant وبعد ذلك نذهب الى مسار قاعدة البيانات .مثلا: c:\base.mdb
ثم ok ثم ok.
في خصائص adoconnection ندذهب الى loginprompt نغير القيمة الى false وبعدين نعمل active للadoconnection
------------------------------------------------------------------------------------------------
adotable,adoquery في الخصائص connection نختار adoconnection
في خصائص adotable نجد tablename في الاسفل, نختار الجدول مثلا eleve .ونعمل active للadotable
نقوم بربط datasource1 ب adotable و dbgrid1 بdatasource1
نقوم بربط datasource2 ب adoquery1 و dbgrid2 بdatasource2
-------------------------------------------------------------------------------------
بالنقر على button1 مرتين نكتب ما يلي
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from elev where code_elev =:a');
adoquery1.Parameters[0].Value:=edit1.Text;
ADOQuery1.Open;
if adoquery1.IsEmpty then
MessageDlg('Aucun eleve trouver sur la liste',mtInformation,[mbOK],0)
آمل ان اكون قد اكون شرحت بطريقة سهلة
سلام عليكم