+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف ابحث بقاعدة بيانات اكسس باستعمالado (/showthread.php?tid=2857)
كيف ابحث بقاعدة بيانات اكسس باستعمالado - مبرمج هاوي - 03-03-2011
السلام عليكم ورحمة الله وبركاته
كيف يتم البحث وعرض نتيجتة في label في برنامج دليل الهاتف بقاعدة بيانات اكسس وعن طريق ado
هذا الذي خرجت به من خلفية البسيطة في لغة الاستعلام البنيوية SQL
كود :
Form2.ADOQuery1.SQL.Text:='SELECT * FROM info WHERE phone=''"+edit1.Text+"';
Form2.ADOQuery1.Active:=true;كيف ابحث بقاعدة بيانات اكسس باستعمالado - kachwahed - 04-03-2011
وعليكم السلام ورحمة الله
أول تعديل هنا:
كود :
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 - مبرمج هاوي - 04-03-2011
تم حل المشكلة بهذا الكود
كود :
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;اكرر شكري لكم