delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله وبركاته
كيف يتم البحث وعرض نتيجتة في label في برنامج دليل الهاتف بقاعدة بيانات اكسس وعن طريق ado
هذا الذي خرجت به من خلفية البسيطة في لغة الاستعلام البنيوية SQL

كود :
Form2.ADOQuery1.SQL.Text:='SELECT * FROM info WHERE phone=''"+edit1.Text+"';
Form2.ADOQuery1.Active:=true;

التطبيق على دلفي 2010 السورس مرفق

وعليكم السلام ورحمة الله
أول تعديل هنا:

كود :
Form2.ADOQuery1.SQL.Text := 'SELECT * FROM info WHERE phone=[color=Red]"'[/color]+edit1.Text+[color=Red]'"'[/color];

في مثالك يكفي بعدها شيء مثل:

كود :
Edit1.Text := Form2.ADOQuery1.FieldByName('name1').AsString;

مواضيع استعمال ADO والبحث باستخدام في قواعد البيانات كثيرة في المنتدى
استخدم البحث...
بالتوفيق.

تم حل المشكلة بهذا الكود

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.ADOQuery1.SQL.Text:='SELECT * FROM info WHERE name1 LIKE ''%'+edit1.Text+'%''';
form2.ADOQuery1.Open;
while not form2.adoquery1.eof do
begin
memo1.Clear;
memo1.Lines.Add(form2.ADOQuery1.FieldByName('phone').AsString);
memo1.Lines.Add(form2.ADOQuery1.FieldByName('w0rk').AsString);
form2.ADOQuery1.Next;

end;

end;

لكن تم الحل بعد البحث العميق وهذا الحل لكي يستفيد منه غيري
اكرر شكري لكم

مبرمج هاوي

kachwahed

مبرمج هاوي