خطا في صفحة تسجيل الدخول وعند ربطها بsql - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : خطا في صفحة تسجيل الدخول وعند ربطها بsql (/showthread.php?tid=37235) |
خطا في صفحة تسجيل الدخول وعند ربطها بsql - khowla.goma - 20-12-20 السلام عليكم .... لدي فورم لاسم المستخدم وكلمه المرور وفورم اخري لتغيير اسم المستخدم وكلمه المرور ولدي تلاتة مستخدمين احد منهم ادمن يسمح له بتغير الاسم وكلمه المرور والأخرين مستخدمين ولايمكن لهم تغير اريد معرفة كيفية ربط بقاعدة البيانات وفي مشكلة في ConnectionString. da.Fill(ds) ----------------------------------------------------------- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'هذه جملة فتح الاتصال مع قاعد البيانات Dim cn As New SqlConnection("Data Source=USER-MSI;Initial Catalog=DBArsfa;Integrated Security=True") Try cn.Open() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub ------------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then Form3.Show() MsgBox("ادخل اسم المستخدم", MsgBoxStyle.Exclamation, "حقل إجباري") TextBox1.Focus() End If If TextBox2.Text = "" Then MsgBox("ادخل كلمة السر", MsgBoxStyle.Exclamation, "حقل إجباري") TextBox2.Focus() End If Dim cn As New SqlConnection 'هذه جملة الربط مع الجدول في قاعدة البيانات Dim str As String = " Select * From User Where userName= N'" & TextBox1.Text & "'And userPassWord = N'" & TextBox2.Text & "'" 'هذه جملة محول البيانات من قاعدة الى النظام Dim sda As New SqlDataAdapter(str, cn) Dim ds As New DataSet sda.Fill(ds) 'اذا كان عدد صفوف اكبر من الصفر If ds.Tables(0).Rows.Count > 0 Then 'فتح اتصال مع القاعدة cn.Open() Dim cmd As New SqlCommand(str) cmd.Connection = cn 'هذه جملة لقراءة البيانات ومقارنتها مع الخيارات التالية Dim dr As SqlDataReader = cmd.ExecuteReader 'اذاكان الخيار الصحيح القراءة If dr.HasRows Then dr.Read() If TextBox1.Text = dr.Item("userName") And TextBox2.Text = dr.Item("userPassWord") Then Label5.Text = dr.Item("Permissions22") cn.Close() If Label5.Text = "1" Then Me.Hide() Form3.Show() ElseIf Label5.Text = "2" Then Me.Hide() Form2.Show() End If End If End If Else MsgBox("خطأ في البيانات المدخلة", MsgBoxStyle.Critical, "خطأ") cn.Close() End If |