20-12-20, 02:01 AM
السلام عليكم ....
لدي فورم لاسم المستخدم وكلمه المرور
وفورم اخري لتغيير اسم المستخدم وكلمه المرور
ولدي تلاتة مستخدمين احد منهم ادمن يسمح له بتغير الاسم وكلمه المرور والأخرين مستخدمين ولايمكن لهم تغير
اريد معرفة كيفية ربط بقاعدة البيانات
وفي مشكلة في 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
لدي فورم لاسم المستخدم وكلمه المرور
وفورم اخري لتغيير اسم المستخدم وكلمه المرور
ولدي تلاتة مستخدمين احد منهم ادمن يسمح له بتغير الاسم وكلمه المرور والأخرين مستخدمين ولايمكن لهم تغير
اريد معرفة كيفية ربط بقاعدة البيانات
وفي مشكلة في 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