[mohamedalqadi]

حل هذه المشكله من فضلكم المشكله هي عندما احدد شخص لاعدله عند التعديل والحفظ تذهب الي الحقل الاول وتتبدل مع الرقم واحد ويختفي رقم واحد 
لا اعرف ماهذه المشكله اول مره تواجهني

الاكواد كود التعديل 

كود :

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

 

كود ال update

كود :

 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 Sub

[ابو ليلى]

السلام عليكم و رحمة الله و بركاته
ركز يا محمد اكثر

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) 


انتبه الى المتغير الاخير    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 


و انت بستقبل قيمته من CheckBox  يجب ان يكون من النوع Bit .

PHP كود :

Update_Roles(TextBox1.Text, CheckBox1.Checked, CheckBox2.Checked, CheckBox3.Checked, Roles_id) 


راجع الكود و دقق اكثر.

[mohamedalqadi]

اولا شكرا لك 

ثانيا 

ظهرت لي مشكله هي عندما اريد ادخال مستخدم واحدد صلاحيته 
مثلاا كاكاشير فعند اختياره من ال combobox يتم اختيار الذي يسبقه 

هذا هو النموذج وقاعده البيانات يمكنك رويه المشكله 
هي في ادخال المستخدمين 
وشكرا

[ابو ليلى]

السلام عليكم و رحمة الله و بركاته
لا اعرف اذا تقصد بالضبط...؟
يجب عليك التمييز بين SelectedIndex  , SelectedValue.
لتحصل على قيمة المعرف المرتبط بالاسم يجب ان تحدد SelectedValue .
الكود يجب ان يكون بهذا الشكل :

PHP كود :

           Insert_User_Pass(Label2.Text, TextBox1.Text, TextBox2.Text, ComboBox1.SelectedValue) 


مشاكلك بسيطة يجب عليك التركيز اكثر.