[mona707]

كود :

Private Sub Buttsave_Click(sender As Object, e As EventArgs) Handles Buttsave.Click
        Dim cmdinsert As New OleDbCommand
        cmdinsert.Connection = con
        cmdinsert.CommandText = "insert into [report] 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



المشكلة انحلت بس ظهرت مشكلة اخرى وهي


Missing semicolon ( at end of SQL statement.


هل المقصد احط ال ; في اخر هذه الجمله ؟؟

كود :

cmdinsert.CommandText = "insert into [report] 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 & "');"