[Mohamed Samy21]

(09-03-18, 07:33 PM)طالب برمجة كتب :

PHP كود :

Dim sql As String =
    "INSERT INTO " & _
    " [govschool] ( [dateres], [compname], [governorate], [suprvname], [cinemano], [musuemsno], [vistrsno], [freeno], [simulno], [gerono], [phone], [mobile], [orphansno], [note] ) " & _
    "      VALUES ( @dateres,  @compname,  @governorate,  @suprvname,  @cinemano,  @musuemsno,  @vistrsno,  @freeno,  @simulno,  @gerono,  @phone,  @mobile,  @orphansno,  @note  ) "
Dim cmd As New OleDbCommand(sql, con)
cmd.Parameters.AddWithValue("@dateres", Dtpdateres.Value)
cmd.Parameters.AddWithValue("@compname", Txtcompname.Text)
cmd.Parameters.AddWithValue("@governorate", Txtgovernorate.Text)
cmd.Parameters.AddWithValue("@suprvname", Txtsuprvname.Text)
cmd.Parameters.AddWithValue("@cinemano", Txtcinemano.Text)
cmd.Parameters.AddWithValue("@musuemsno", Txtmusuemsno.Text)
cmd.Parameters.AddWithValue("@vistrsno", Txtvistrsno.Text)
cmd.Parameters.AddWithValue("@freeno", Txtfreeno.Text)
cmd.Parameters.AddWithValue("@simulno", Txtsimulno.Text)
cmd.Parameters.AddWithValue("@gerono", Txtgerono.Text)
cmd.Parameters.AddWithValue("@phone", Txtphone.Text)
cmd.Parameters.AddWithValue("@mobile", Txtmobile.Text)
cmd.Parameters.AddWithValue("@orphansno", Txtorphansno.Text)
cmd.Parameters.AddWithValue("@note", Txtnote.Text)

cmd.ExecuteNonQuery()
MsgBox("تم حفظ البيانات بنجاح") 


أخي العزيز هذا كود الحفظ ؟ اي اضعه بدلا من كود الحفظ الموجود بزرار حفظ ؟
ايضا البرنامج عند اعادة بناءه يعطي الخطأ الآتي 
Severity Code Description Project File Line Suppression State

Error BC30002 Type 'Microsoft.VisualBasic.PowerPacks.Printing.PrintForm' is not defined. Reservation2 C:\Users\Mohamed Samy\Desktop\New folder\Reservation2\Reservation2\Govcomp.Designer.vb 651 Active

فما العمل ؟
مشكور لجهدك معي