استرجاع اكثر من قيمه من الداتا بيس

أولا - لم تذكر ما هي رسالة الخطأ التي تظهر لك

ثانيا - أضف السطر

cmd.Open()

قبل السطر

dr = cmd.ExecuteReader()

وفي نهاية الكود استخدم

cmd.Close()

شكرا لك اخي

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

الخطا هو

(Data type mismatch in criteria expression.)

تعديل على الكود السابق

ListBox1.Items.Add(dr.Item("city_name"))

أولا - ذكرنا سابقا ووضعت إعلان في أعلى المنتدى أن من يواجه مشكلة يجب عليه وضع الكود كامل وشرح المشكلة بالتفصيل الممل وذكر كافة رسائل الخطأ بالتفصيل الممل فعدم حصولك على الحل المناسب هنا هو نتيجة نقص في المعلومات التي نحتاجها لحل مشكلتك

ثانيا - من جملة استعلامك

sSQL = "Select * FROM city WHERE area='" & TextBox1.Text.Trim() & "'"

إذا كان الحقل area رقمي يجب إزالة ' من جملة الاستعلام

يعني لازم يصير

sSQL = "Select * FROM city WHERE area=" & TextBox1.Text.Trim()

ثالثا - إن لم تحل مشكلتك راجع الاعلان تحذير للجميع - ممن يطلبون حل مشكلة ما الموجود في المنتدى وزودنا بكافة المعلومات التي نحتاجها لمساعدتك

الف شكر انحلت المشكله واسفه اذا خالفت قوانين المنتدى مع اني حاولت اوصل السؤال كامل

لكن نوع الخطا سقط سهوا

شكرا مره اخرى على تعاونك

ksa_girl1 كتب:

الف شكر انحلت المشكله واسفه اذا خالفت قوانين المنتدى مع اني حاولت اوصل السؤال كامل

لكن نوع الخطا سقط سهوا

شكرا مره اخرى على تعاونك

لامشكلة ولكن كلما كان شرح مشكلتك أدق ولم تهملي أية تفاصيل مهما كانت تبدو لك تافهة كلما حصلت على الاجابة أسرع