01-02-14, 09:46 PM
السلام عليكم ورحمة الله وبركاته
عندي مشكلة في زر الحفظ لما اضغط على زر الحفظ تضهرلي الرساله دي
هل في خطأ فالكود ده ؟؟؟
عندي مشكلة في زر الحفظ لما اضغط على زر الحفظ تضهرلي الرساله دي
هل في خطأ فالكود ده ؟؟؟
Private Sub Buttsave_Click(sender As Object, e As EventArgs) Handles Buttsave.Click
cmdinsert.Connection = con
Sqlstr = "insert into report values (الرقم الوظيفي,إسم الموظف,التاريخ,إسم المنطقة, الشارع,رقم الرخصة,الإسم التجاري,نوع الإجراء,رقم الإجراء,نوع المخالفة أو الإنذار,حالة المنشأة,نوع الرخصة,نوع المهمة,الملاحظات) values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & DateTimePicker1.Value & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "', '" & TextBox8.Text & "', '" & TextBox9.Text & "', '" & TextBox10.Text & "', '" & TextBox11.Text & "', '" & TextBox12.Text & "', '" & TextBox13.Text & "', '" & TextBox14.Text & "')"
cmdinsert.ExecuteNonQuery()
MsgBox("تـم الحـفـظ بـنـجـاح")
con.Close()
End Sub
cmdinsert.Connection = con
Sqlstr = "insert into report values (الرقم الوظيفي,إسم الموظف,التاريخ,إسم المنطقة, الشارع,رقم الرخصة,الإسم التجاري,نوع الإجراء,رقم الإجراء,نوع المخالفة أو الإنذار,حالة المنشأة,نوع الرخصة,نوع المهمة,الملاحظات) values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & DateTimePicker1.Value & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "', '" & TextBox8.Text & "', '" & TextBox9.Text & "', '" & TextBox10.Text & "', '" & TextBox11.Text & "', '" & TextBox12.Text & "', '" & TextBox13.Text & "', '" & TextBox14.Text & "')"
cmdinsert.ExecuteNonQuery()
MsgBox("تـم الحـفـظ بـنـجـاح")
con.Close()
End Sub
ويندوز 7 64 بت
فيجوال استوديو 2012
اكسس 2007
