كيف اتحقق من وجود قيمة في عمود وليس صف

UP

السلام عليكم ورحمة الله وبركاته

ممكن التوضيح اكثر بكعنى هل تريد جلب قيمة Item ؟

بالتوفيق ...........

A7med_prof

شكرا اخي الفاضل A7med_prof

تحياتي لك ولاهتمامك

لديا جدول به UserName و PassWord ويوجد 3 سجلات في الجدول

User Name به ثلاث سجلات وهي C- B - A

وPassWord به ثلاث سجلات وهي 1 - 2 - 3

هذا الكود

Dim x As String = Cheq2007DataSet.Users.Rows(0).Item("UserName")

'Dim x2 As String = Cheq2007DataSet.Users.Rows(0).Item("PassWord

اذاوضعط في User Name حرف A

وفي PassWord رقم 1

يفتح لي البرنامج لنه يقرأ السرط الاول في الجدول

اذاوضعط في User Name حرف B أو الـ C

وفي PassWord رقم 2 أو 3

لايقوم بفتح البرنامج لانه يقرأ السجل الاول فقط

ولو عدلت علي الكود وغيرت (Rows(0).) الي (Rows(1.)

يقرأ ما في السجل الثاني وليس الاول

والمطلوب هو تعديل الكود لكي يقرأ كل ما هو موجود في الجدول

ولك تحياتي

UP

السلام عليكم أخي الكريم :

طيب ما رأيك لو قمنا بالمرور على كل الأسطر , ثم التحقق من إدخال المستخدم ... يعني هكذا :

		For x As Integer = 0 To Cheq2007DataSet.Users.Rows.Count - 1

			If Cheq2007DataSet.Users.Rows(x).Item("ColumnName") = Value Then
				' right user
			Else
				' wrong user
			End If

		Next

طبعاً تحتاج للتحقق من كلمة المرور أيضاً بنفس الطريقة ...

هل ينفع هذا ... ؟ أرجو ذلك . وفقكم الله .

استاذ الفاضل ابو همام

شكراً جزيلا لك

جربت الكود ولكن بتظهر رسال خطأ

ان الـ Value غير معرف (Not Declared)

فهل من حل

وشكرا

السلام عليكم ورحمة الله وبركاته

الـ Value هي كمثال فهي متغيره على حسب المعطا المقالرن للـ Item ,,,

بالتوفيق ,,,,,,

A7med_prof

اقتباس

استاذ الفاضل ابو همام

شكراً جزيلا لك

استاذ يا اخ ابو همام

السلام عليكم ورحمة الله وبركاته أصدقائي الأحبة ...

الشكر الجزيل للأخ A7med_prof على التوضيح , أقدر لك متابعتك وحرصك على المساعدة صديقي العزيز تقبل التحية ...

و حياكم الله جميعاً زملائي الأعزاء ... بإذن الله لن نبخل عليكم بما نعرفه .

نرجو دعاءكم ....

إذا مازال هناك أي إشكال عند الزميل ميدو666 بالنسبة للقيمة Value : فهذه القيمة يمكن أن تعوضها بإدخال المستخدم

إن كانت كلمة مرور أو اسم المستخدم حيث يمكن أن تضع بدل عنها الـ TextBox الذي أدخل فيه المستخدم اسمه أو كلمة مروره .

وفقكم الله ......

السلام عليكم ورحمة الله وبركاته

الشكر للأخ A7med_prof

الشكر الجزيل للأخ العزيز أبو همام وفقه الله وجعله في ميزان حسناتكم

انا جربت الكود

For x As Integer = 0 To Cheq2007DataSet.Users.Rows.Count - 1

If UsernameTextBox.Text = Cheq2007DataSet.Users.Rows(x).Item("UserName") And PasswordTextBox.Text = Cheq2007DataSet.Users.Rows(x).Item("PassWord") Then

ChequeEnter.Show()

End If

Next

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

فوضعت الاتي

Else

' MsgBox("..كلمة المرور او اسم المستخدم المدخل غير صحيحة ")

وبعده ما ظبتطش فبتظهر رسالة الخطا 3 مرات وبعدها تفتح لي شاشة

ChequeEnter

فما هو الخطأ وما هو الحل

وجزاكم الله خيراً

وشكرا لكم

السلام عليكم ورحمة الله وبركاته

أخي بدل ما تعمل دواره

طيب ما تستخدم الخاصية Find

مثلا :

Dim Find() As DataRow = DS.Tables(0).Select("UserName='" & UsernameTextBox.Text  & "' and PassWord= '"  & PasswordTextBox.Text & "'")

بإفتراض ان اول Table هو المراد البحث فيه !!!

بالتوفيق ,,,,

A7med_prof

السلام عليكم ورحمة الله وبركاته

الشكر للأخ A7med_prof

حاولت ولكن منفعتش

عموما انا اريد عمل اسم مستخدم وكلمة سر لدخول البرنامج بس انا رابط البرنامج بقاعدة البيانات عن طريق المعالج وليس الكود علشان كدا محتاج كود لعمل login للبرنامج

وشكرا جزيلا لمن حاول مساعدتي

والسلام عليكم ورحمة الله وبركاته

العفو اخ ....

يكفيني زوقك الرفيع

ولكن الذي اقوله لك مناسب لك

على العموم ارفق مثالك واوضح لك المقصود

بالتوفيق ,,,,

A7med_prof

السلام عليكم ورحمة الله وبركاته :

المعذرة من أخي A7med_prof بارك الله فيه , أود أن أوضح للأخ ميدو666 كيفية إجراء الحل الأول :

أخي ميدو666 ضع هذه الـ Function والتي تقوم بالتأكد من المستخدم وكلمة مروره و إخراج النتيجة إما True أو False أي هكذا :

	Function IsRightUser(ByVal hisName As String, ByVal hisPassword As String) As Boolean

		Dim result As Boolean = False
		'
		For x As Integer = 0 To Cheq2007DataSet.Users.Rows.Count - 1

			If Cheq2007DataSet.Users.Rows(x).Item("UserName")= hisName =  And _
						  Cheq2007DataSet.Users.Rows(x).Item("PassWord") = hisPassword =  Then

				result = True
				Exit For
			Else
				result = False
			End If

		Next
		'
		Return result

	End Function

هذا فقط قالب الـ Function , أما عملها فهو بأن تقوم باستدعائها مع تمرير اسم المستخدم وكلمة مروره , وعلى أساس النتيجة

تقوم بالسماح له أو لا , مع إخراج رسالة إذا كانت النتيجة False أي هكذا :

		If IsRightUser(Text1.Text, Text2.Text) = True Then
			' Log him in
		Else
			' Prevent him 
			MessageBox.Show("Wrong User ..!")
		End If

أرجو أن يكون الأمر قد أصبح واضحاً , ننتظر ردك ... وفقكم الله

استاذي الفاضل أبو همام

جزاك الله خيرا وبارك الله فيك

فعلا هو دا ما كنت اريده

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

وبارك الله في الاخ العزيز الفاضل A7med_prof

وجعله في ميزان حسناتكم جميعاً

ع فكرة اخي ابو همام انا شلت علامة (= ) الثانية في الـ Function وبعدها ظبتت معايا فجزاء الله خيرأ

وبارك فيك وفي اهلك وذريتك

فيه سؤال اخير

وضعت في الكود Me.Close()

حتي يغلق login بعد ما يفتح الشاشة الرئيسية وعند تنفيذ اري الشاشة الرئيسية ولكن سرعان ما تنغلق

والسلام عليكم ورحمة الله وبركاته

الأخوة الافاضل جميعاً

جزاكم الله خيراً

انا جربت استخدام Me.Hide()

واشتغلت كويس معايا

والسلام عليكم ورحمة الله وبركاته