[طالب برمجة]

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("تم حفظ البيانات بنجاح")