مشكلة لدي في مصفوفة الارقام

مرحبا بك أخي صلاح على منتديات الفريق العربي للبرمجة :)

لو أمكن أن ترفق محاولتك في حل المطلوب منك و إن شاء الله تجد المساعدة.

بالتوفيق :)

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

Dim tt() As Integer

For i As Integer = 0 To tt.Length - 1

If tt(i) = CType(TextBox1.Text, Integer) Then

MsgBox("الرقم موجود")

End If

Next

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

comf = t1.cmm("select conid from registmohan where usname='" + g + "'")

dr = comf.ExecuteReader

dr.Read()

ازاي ملي مصفوفة من ناتج جملة استعلام ارجو مساعدة وجزاكم الله خيرا

الكود معلق عليه بالتفصيل :

		' المصفوفة التي ستستقبل القيم من الجدول من قاعدة البيانات
		Dim values As Integer()
		' كائن الربط بقاعدة البيانات
		Dim con As New SqlConnection("جملة الربط")
		' جملة سكل للحصول على عدد اسطر الجدول
		Dim cmd As New SqlCommand("SELECT Count(*) FROM [اسم الجدول]", con)
		' فتح قناة الإتصال
		con.Open()
		' تحجيم المصفوفة بعدد أسطر الجدول
		Array.Resize(values, cmd.ExecuteScalar())
		' جملة استعلام القيم المراد تحميلها إلى المصفوفة
		cmd.CommandText = "SELECT Credit FROM [اسم الجدول]"
		' قراءة القيم واحدة واحدة
		Dim rdr As SqlDataReader = cmd.ExecuteReader()
		' التأكد من وجود قيم
		If rdr.HasRows Then
			' لتحديد العنصر الذي سيستقبل القيمة
			Dim i As Integer = 0
			' قراءة القيمة التالية
			While (rdr.Read())
				' نقل القيمة إلى العنصر الحالي على المصفوفة
				values(i) = rdr.GetDecimal(0)
				' إلى العنصر التالي
				i += 1
			End While
		End If
		' غلق القارئ
		rdr.Close()
		' غلق قناة الإتصال
		con.Close()

حضرتك ممكن بعد اذنك مزيد من توضيح لاني كده تهت واسف جدا

نقوم بإنشاء المصفوفة في حالتها الأولى ثم كائن الربط ثم كائن أمر سكل. بعد ذلك نقوم بتنفيذ جملة استعلام تأتي لنا بعدد الأسطر الموجودة في الجدول حتى نتمكن من تحديد عدد عناصر المصفوفة التي ستستقبل قيم أسطر الحقل من الجدول. بعد ذلك نقوم بتجهيز جملة الاستعلام التي تأتي لنا بالقيم من الجدول لننفذها على قارى البيانات DataReader و من تم نقوم بقراءة القيم واحدة واحدة من الجدول نحو المصفوفة و أخيرا نقوم بغلق قارئ البيانات و غلق قناة الإتصال نحو قاعدة البيانات.

إذا كان عندك تساؤل في جزئية من جزئيات الكود, لا تتردد في السؤال.

ياخي جزالك الله خيرا بجد س انا مش عارف انفذ كود خالص يعني ممكن تسهيل او توضيح