السلام عليكم ورحمة الله وبركاته ,
كيف حالكم واسعد الله ايامكم .
عندي مشكله في عدم استجابة الكود للحفظ في قاعدة البيانات sql server بعد تحديد عدة خيارات للصلاحيات ( السماع بالاضافة ، السماح بالتعديل ،...) وسوف ارفق اليك صورة الفورم لكي تتضح لك اكثر
وهذا الكود
Try
Dim sqladmin As String = "select * from Users where username='" & gb1.SelectedValue.ToString & "' and tid=1" & ""
Dim dsadmin As New DataSet
Dim daadmin As New SqlDataAdapter(sqladmin, con)
daadmin.Fill(dsadmin, "Users")
If Me.BindingContext(dsadmin, "Users").Count > 0 Then
MsgBox(" ", MsgBoxStyle.Exclamation, "")
Exit Sub
End If
Dim ss As String = "select * from Users"
Dim ds1 As New DataSet
Dim da1 As New SqlDataAdapter(ss, con)
da1.Fill(ds1, "Users")
Dim SavInto As New SqlCommand
SavInto.Connection = con
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "update Users set allow_insert=" & chk_add.Checked & ",allow_edit=" & chk_edit.Checked & ",allow_delete=" & chk_del.Checked & ",allow_add_users=" & chk_add_user.Checked & ",allow_select=" & chk_cope.Checked & " where username='" & gb1.SelectedValue.ToString & "'"
If con.State = ConnectionState.Open Then con.Close()
con.Open()
SavInto.ExecuteNonQuery()
da1.Update(ds1, "Users")
con.Close()
MsgBox(" ")
'Dim frm As New main_form
'frm.Show()
Me.Hide()
usernew.Show()
Catch ex As Exception
MsgBox(Err.Description)
End Try
وسوف ارفق اليكم صورة من تصميم الجدول (users) في قواعد البيانات sql server
ارجو منكم التكرم في النظر الى الصور والنظر الى وحل المشاكل ... تحياتي وجزاكم الله خيرا .
