دخول

مبرمج هاوي · 03-03-2011, 09:23 PM

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

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

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

**kachwahed** · 04-03-2011, 03:05 AM

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

كود :
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, 09:57 PM

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

كود :
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;

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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة