الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف نسند قيمه من الداتا سيت لمتغير؟ ؟

مغلق
بدأه warning في 2 ديسمبر 2007 · 6 رد · 579 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

لو فرضنا اننا استطعنا اخذ قيمه من الداتا بيز واسنادها لداتا سيت , ونريد اخذها من الداتا سيت واسنادها لمتغير ,, كيف يتم ذلك؟

مثالي هنا اني احاول مطابقه باسوورد ادخله اليوزر بالباسوورد الموجود بالنظام ,, ارجو حل المشكله + اذا كان هناك دروس عن الداتا سيت و الادابتر ارجو ارفاقها..

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		Dim userName As String
		Dim userPass As String

		If TextBox1.Text = Trim("") Then Exit Sub
		userName = TextBox1.Text
		userPass = TextBox2.Text
		SQLstr = "SELECT  User_pass FROM Users WHERE User_name='" & userName & "'"

		conn.Open()
		Dim DataAdapter1 As New SqlDataAdapter(SQLstr, conn)
		DataAdapter1.Fill(DataSet1, "Users")
		conn.Close()




	End Sub
#2
اقتباس
SQLstr = "SELECT User_pass FROM Users WHERE User_name='" & userName & "'"

اكمل الكود فالبحث لا بد وان يكون عن اسم المستخدم وكلمة المرور معاً 

		SQLstr= "SELECT * FROM Users WHERE User_Name ='" & UserNAME & "' AND User_PassWord='" & UserPASSWORD & "'"

ثم قارن بما تعاد به هذه الجملة من نتجية

 If DataSet1.Tables("Users").Rows.Count > 0 Then
						'قم بكتابة ما تحب من كود ومنها الدخول الى النموذج الرئيسي لبرنامجك
					Else
						MessageBox.Show("فضلاً تأكد من اسم المستخدم وكلمة المرور الصحيحة", "كلمة السر", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button2, MessageBoxOptions.RtlReading)
						PasswordTextBox.Focus()
						Exit Sub
					End If
#3

أرجو أن يكون هدا مرادك

		Dim userName As String = txtPass.Text
		Dim userPass As String

		For i As Integer = 0 To DS.Tables("Table1").Rows.Count - 1
			If DS.Tables("Table1").Rows(i)("User_name") = userName Then
				userPass = DS.Tables("Table1").Rows(i)("User_pass")
				Return
			End If
		Next

و هدا على افتراض أن DataSet1 معبأة مسبقا ...

تم تعديل هذه المشاركة بواسطة Fikou-sama في 2 ديسمبر 2007 في 18:12

مقالاتي في VB.NET وبرامجي على موقعي الجديد :

#4

اشكركم أعزائي على هذه الردود الجميله ولقد استفدت منها فعلاً , ولكن طلبي أني اريد ان اتعلم كيف اتحكم بأخذ قيمه معينه من الداتا سيت واسنادها لمتغير من النوع string

أرجو المساعدة في ذلك .

#5 
stringVariable = cstr(Dataset1.tables("tablename").rows(r).item("rowname"))

حيث tablename هو اسم الجدول و r هو رقم الصف و rowname هو اسم الحقل.

#6

لقد أجبتك من قبل .. راجع المثال الدي أرفقته ..

...
 userPass = DS.Tables("Table1").Rows(i)("User_pass")
...

مقالاتي في VB.NET وبرامجي على موقعي الجديد :

#7

ألف شكر لكم يأاخوان ,, ألف شكر :)

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…