+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=36825)
عمل كود لاسم المستخدم وكلمه المرور وتغير كلمه المرور فيجوال بيسك وربطها بقاعدة sql - khowla.goma - 01-11-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
ارجو مساعدة لان ماعرفت اربط بقاعدة البيانات وتلخبطت عندي المفهوم
RE: عمل كود لاسم المستخدم وكلمه المرور وتغير كلمه المرور فيجوال بيسك وربطها بقاعدة sql - اسامه الهرماوي - 02-11-20
وعليكم السلام...
يرجى الاطلاع على المرفقات, سيوفر الكثير + إعطاء أفكار.
RE: عمل كود لاسم المستخدم وكلمه المرور وتغير كلمه المرور فيجوال بيسك وربطها بقاعدة sql - khowla.goma - 20-12-20
السلام عليكم اخوتي
لدي مشكلة ف فورم تسجيل دخول لايوجد ربط بينها وبين قواعد بيانات اسك اكيو ال sql
يعطي خطا
Try
'هذه جملة فتح الاتصال مع قاعد البيانات
Dim ConnectionString As String = ("Data Source=USER-MSI;Initial Catalog=DBArsfa;Integrated Security=True")
Dim cn As New SqlConnection(ConnectionString)
cn.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
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