لو سمحتم هل يمكن يمكنكم مساعدتى فى الكود التالي فهو يعطينى رسالة خطأ و لم اعرف ما هى المشكلة مع العلم انني استخدم قاعدة بيانات أكسس...
Try
If (txtPruType.Text <> "") Then
dap.InsertCommand.CommandText = _
"INSERT INTO purch(Type, " & _
"value," & _
"billway, des,) " & _
"VALUES('" & txtPruType.Text & "' , " & _
"'" & txtPurValue.Text & "' , " & _
"'" & txtbillway.Text & "' , " & _
"'" & txtPurDescription.Text & "')"
dap.InsertCommand.ExecuteNonQuery()
dap.InsertCommand.ExecuteNonQuery()
MsgBox("تمت عملية الإضافة بنجاح", MsgBoxStyle.Exclamation, "شركة")
Else
MessageBox.Show("لم تقم بإدخال كودالعميل و اسم العميل", "شركة", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch exception As System.Data.OleDb.OleDbException
MsgBox(exception.StackTrace, MsgBoxStyle.Critical)
End Try
End Subشاكرا لكم تعاونكم .. أرجو مساعدتى
