+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حل مشكله تعديل صفحه الصلاحيات (/showthread.php?tid=34085)
حل مشكله تعديل صفحه الصلاحيات - mohamedalqadi - 31-03-20
حل هذه المشكله من فضلكم المشكله هي عندما احدد شخص لاعدله عند التعديل والحفظ تذهب الي الحقل الاول وتتبدل مع الرقم واحد ويختفي رقم واحد
لا اعرف ماهذه المشكله اول مره تواجهني
الاكواد كود التعديل
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If TextBox1.Text <> "" Then
Update_Roles(TextBox1.Text, CheckBox1.Checked, CheckBox2.Checked, CheckBox3.Checked, Roles_id)
TextBox1.Text = ""
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
Else
MsgBox("لم يتم ادخال البيانات بطريقة صحيحة")
End If
Load_Roles()
End Sub
Private Sub DataGridView1_DoubleClick(sender As Object, e As EventArgs) Handles DataGridView1.DoubleClick
TextBox1.Text = DataGridView1.CurrentRow.Cells(1).Value
CheckBox1.Checked = DataGridView1.CurrentRow.Cells(2).Value
CheckBox2.Checked = DataGridView1.CurrentRow.Cells(3).Value
CheckBox3.Checked = DataGridView1.CurrentRow.Cells(4).Value
Roles_id = DataGridView1.CurrentRow.Cells(0).Value
End Sub
كود :
Public Sub Update_Roles(ByVal Roles_Name As String, ByVal Roles_Main As Boolean, ByVal Roles_Reports As Boolean, ByVal Rorles_Controls As Boolean, ByVal Roles_Id2 As Boolean)
Dim cmd As New SqlCommand("Update Roles set Roles_Name=@Roles_Name,Roles_Main=@Roles_Main,Roles_Reports=@Roles_Reports,Rorles_Controls=@Rorles_Controls where Roles_Id=@Roles_Id2", connSQLServer)
cmd.Parameters.Add("Roles_id2", SqlDbType.Int).Value = Roles_Id2
cmd.Parameters.Add("Roles_Name", SqlDbType.NVarChar).Value = Roles_Name
cmd.Parameters.Add("Roles_Main", SqlDbType.Bit).Value = Roles_Main
cmd.Parameters.Add("Roles_Reports", SqlDbType.Bit).Value = Roles_Reports
cmd.Parameters.Add("Rorles_Controls", SqlDbType.NVarChar).Value = Rorles_Controls
connSQLServer.Open()
cmd.ExecuteNonQuery()
connSQLServer.Close()
cmd = Nothing
End Subكود :
Public Sub Load_Roles()
dt_Roles.Clear()
Dim cmd As New SqlCommand("select Roles_Id,Roles_Name,Roles_Main,Roles_Reports,Rorles_Controls from Roles", connSQLServer)
connSQLServer.Open()
dt_Roles.Load(cmd.ExecuteReader)
connSQLServer.Close()
cmd = Nothing
End SubRE: حل مشكله تعديل صفحه الصلاحيات - ابو ليلى - 01-04-20
السلام عليكم و رحمة الله و بركاته
ركز يا محمد اكثر
PHP كود :
Public Sub Update_Roles(ByVal Roles_Name As String, ByVal Roles_Main As Boolean, ByVal Roles_Reports As Boolean, ByVal Rorles_Controls As Boolean, ByVal Roles_Id2 As Boolean)
PHP كود :
cmd.Parameters.Add("Roles_id2", SqlDbType.Int).Value = Roles_Id2
اجعل اسم الباراميتر على اسم الحقل في الجدول.
و كذلك نوع الحقل في الكود التالي
PHP كود :
cmd.Parameters.Add("Rorles_Controls", SqlDbType.NVarChar).Value = Rorles_Controls
PHP كود :
Update_Roles(TextBox1.Text, CheckBox1.Checked, CheckBox2.Checked, CheckBox3.Checked, Roles_id)
راجع الكود و دقق اكثر.
RE: حل مشكله تعديل صفحه الصلاحيات - mohamedalqadi - 01-04-20
اولا شكرا لك
ثانيا
ظهرت لي مشكله هي عندما اريد ادخال مستخدم واحدد صلاحيته
مثلاا كاكاشير فعند اختياره من ال combobox يتم اختيار الذي يسبقه
هذا هو النموذج وقاعده البيانات يمكنك رويه المشكله
هي في ادخال المستخدمين
وشكرا
RE: حل مشكله تعديل صفحه الصلاحيات - ابو ليلى - 01-04-20
السلام عليكم و رحمة الله و بركاته
لا اعرف اذا تقصد بالضبط...؟
يجب عليك التمييز بين SelectedIndex , SelectedValue.
لتحصل على قيمة المعرف المرتبط بالاسم يجب ان تحدد SelectedValue .
الكود يجب ان يكون بهذا الشكل :
PHP كود :
Insert_User_Pass(Label2.Text, TextBox1.Text, TextBox2.Text, ComboBox1.SelectedValue)
مشاكلك بسيطة يجب عليك التركيز اكثر.