31-01-16, 11:52 PM
السلام عليكم ورحمة الله وبركاتة
إن شاء الله الجميع يكون في أتم صحه وعافية
أنا في صدد إنهاء مشروعي الاول وسوف اقوم بوضعه في المنتدى قريباً إن شاء الله وسوف يكون يعمل على نسختين أكسس وسيكول سيرفر
ولكن عندي مشكلتين إن شاء الله تكون بسيطة
أستخدمة في صلاحيات المستخدمين مشروع أستاذنا ((سعود )) مع بعض التعديلات البسيطة والمشروع يعمل بشكل ممتاز على قاعدة بيانات أكسس
ولكن عند عمل نسخة أخرى للمشروع تعمل على قاعدة بيانات سيكول سيرفر وجهتني مشكلتين في فورم الصلاحيات فقط .
المشكلة الاولى عند الضغط على الكومبو بوكس يظهر هذا الخطئ:
الكود المستخدم:
عند الضغط على زر الحفظ يظهر هذا الخطئ:
الكود المستخدم:
ارجو مساعدتي في حل المشكلة وشكراً للجميع
إن شاء الله الجميع يكون في أتم صحه وعافية
أنا في صدد إنهاء مشروعي الاول وسوف اقوم بوضعه في المنتدى قريباً إن شاء الله وسوف يكون يعمل على نسختين أكسس وسيكول سيرفر
ولكن عندي مشكلتين إن شاء الله تكون بسيطة
أستخدمة في صلاحيات المستخدمين مشروع أستاذنا ((سعود )) مع بعض التعديلات البسيطة والمشروع يعمل بشكل ممتاز على قاعدة بيانات أكسس
ولكن عند عمل نسخة أخرى للمشروع تعمل على قاعدة بيانات سيكول سيرفر وجهتني مشكلتين في فورم الصلاحيات فقط .
المشكلة الاولى عند الضغط على الكومبو بوكس يظهر هذا الخطئ:
الكود المستخدم:
PHP كود :
Try
Dim x As String = ComboBox1.SelectedValue.ToString
Dim sql1 As String = "select ch1,ch2,ch3,ch4,ch5,ch6,ch7,ch8,ch9,ch10,ch11,ch12,ch13,ch14,ch15,ch16,ch17 from zarswu where alaism='" & x & "'"
Dim dss As New DataSet
Dim daa As New SqlDataAdapter(sql1, co)
daa.Fill(dss, "zarswu")
c1.DataBindings.Add(New Binding("checked", dss, "zarswu.ch1"))
c2.DataBindings.Add(New Binding("checked", dss, "zarswu.ch2"))
c3.DataBindings.Add(New Binding("checked", dss, "zarswu.ch3"))
c4.DataBindings.Add(New Binding("checked", dss, "zarswu.ch4"))
c5.DataBindings.Add(New Binding("checked", dss, "zarswu.ch5"))
c6.DataBindings.Add(New Binding("checked", dss, "zarswu.ch6"))
c7.DataBindings.Add(New Binding("checked", dss, "zarswu.ch7"))
c8.DataBindings.Add(New Binding("checked", dss, "zarswu.ch8"))
c9.DataBindings.Add(New Binding("checked", dss, "zarswu.ch9"))
c10.DataBindings.Add(New Binding("checked", dss, "zarswu.ch10"))
c11.DataBindings.Add(New Binding("checked", dss, "zarswu.ch11"))
c12.DataBindings.Add(New Binding("checked", dss, "zarswu.ch12"))
c13.DataBindings.Add(New Binding("checked", dss, "zarswu.ch13"))
c14.DataBindings.Add(New Binding("checked", dss, "zarswu.ch14"))
C15.DataBindings.Add(New Binding("checked", dss, "zarswu.ch15"))
C16.DataBindings.Add(New Binding("checked", dss, "zarswu.ch16"))
C17.DataBindings.Add(New Binding("checked", dss, "zarswu.ch17"))
c1.DataBindings.Clear()
c2.DataBindings.Clear()
c3.DataBindings.Clear()
c4.DataBindings.Clear()
c5.DataBindings.Clear()
c6.DataBindings.Clear()
c7.DataBindings.Clear()
c8.DataBindings.Clear()
c9.DataBindings.Clear()
c10.DataBindings.Clear()
c11.DataBindings.Clear()
c12.DataBindings.Clear()
c13.DataBindings.Clear()
c14.DataBindings.Clear()
C15.DataBindings.Clear()
C16.DataBindings.Clear()
C17.DataBindings.Clear()
Catch ex As Exception
MsgBox(Err.Description)
End Try
co.Close()
عند الضغط على زر الحفظ يظهر هذا الخطئ:
الكود المستخدم:
PHP كود :
Try
Dim SavInto As New SqlCommand("update zarswu set ch1=" & c1.Checked & ",ch2=" & c2.Checked & ",ch3=" & c3.Checked & ",ch4=" & c4.Checked & ",ch5=" & c5.Checked & ",ch6=" & c6.Checked & ",ch7=" & c7.Checked & ",ch8=" & c8.Checked & ",ch9=" & c9.Checked & ",ch10=" & c10.Checked & ",ch11=" & c11.Checked & ",ch12=" & c12.Checked & ",ch13=" & c13.Checked & ",ch14=" & c14.Checked & ",ch15=" & C15.Checked & ",ch16=" & C16.Checked & ",ch17=" & C17.Checked & " where alaism='" & ComboBox1.SelectedValue.ToString & "'", con)
If con.State = ConnectionState.Closed Then
con.Open()
End If
SavInto.ExecuteNonQuery()
con.Close()
MsgBox("تم الحفظ", MsgBoxStyle.Information, "")
dazarsw = New SqlDataAdapter("SELECT id,alaism,alrraqm,pas,ch1,ch2,ch3,ch4,ch5,ch6,ch7,ch8,ch9,ch10,ch11,ch12,ch13,ch14,ch15,ch16,ch17 FROM zarswu", co)
dazarsw.Fill(zarsw)
Form9.DataGridView1.DataSource = zarsw
Me.Close()
Catch ex As Exception
con.Close()
MsgBox(Err.Description)
End Try
ارجو مساعدتي في حل المشكلة وشكراً للجميع