[احـ مد]

جربت هذه الطريقة
ويطلع لي خطأ في بناء جملة UPDATE

PHP كود :

       Dim xy As String
            If RadioButton2.Checked = True Then
                xy = 1
            ElseIf RadioButton1.Checked = True Then
                xy = 0
            Else
                Exit Sub
            End If

            Dim str As String = "update tb_info set [info_name]=@info_name, [info_phon]=@info_phon,[info_email]=@info_email,[info_city]=@info_city,[info_job]=@info_job,[info_tr]=@info_tr,[info_tr_sys]=@info_tr_sys,[info_tr_bank]=@info_tr_bank,[info_tr_bname]=@info_tr_bname,[info_tr_prog]=@info_tr_prog,[info_date]=@info_date,  WHERE [info_id]=@info_id"
            Dim erw As New OleDbCommand(str, con)

            erw.Parameters.AddWithValue("@info_id", Label7.Text)
            erw.Parameters.AddWithValue("@info_name", TextBox1.Text)
            erw.Parameters.AddWithValue("@info_phon", TextBox2.Text)
            erw.Parameters.AddWithValue("@info_email", TextBox4.Text)
            erw.Parameters.AddWithValue("@info_city", TextBox5.Text)
            erw.Parameters.AddWithValue("@info_job", TextBox6.Text)
            erw.Parameters.AddWithValue("@info_tr", xy)
            erw.Parameters.AddWithValue("@info_tr_sys", ComboBox1.Text)
            erw.Parameters.AddWithValue("@info_tr_bank", ComboBox2.Text)
            erw.Parameters.AddWithValue("@info_tr_bname", TextBox13.Text)
            erw.Parameters.AddWithValue("@info_tr_prog", ComboBox3.Text)
            erw.Parameters.AddWithValue("@info_date", DateTimePicker1.Value.Date)

            con.Open()
            erw.ExecuteNonQuery()
            MsgBox("تم التحديث")