[thevirus]

PHP كود :

Private Function UpdateData() As Boolean
       Try
 Dim x As Boolean = False
           Dim ret As Integer = 0

           Dim sql As String =
               " Update [Table1] SET " & _
               "   [Name]=@Name, [Birthday]=@Birthday, [Age]=@Age, [Sex]=@Sex, [Nationality]=@Nationality, [Nationality_ID]=@Nationality_ID " & _
               " , [Type]=@Type, [State]=@State, [Place]=@Place, [Phone]=@Phone, [Address]=@Address, [D1]=@D1, [D2]=@D2, [D3]=@D3, [D4]=@D4, [D5]=@D5, [D6]=@D6 " & _
               " WHERE [ID]=" & id
           Using cmd As New OleDbCommand(sql, Con)
               With cmd

                   .Parameters.AddWithValue("Name", txtName.Text.Trim)
                   .Parameters.AddWithValue("Birthday", dtBirthday.Value.Date)
                   .Parameters.AddWithValue("Age", Val(txtAge.Text))
                   .Parameters.AddWithValue("Sex", cboSex.Text.Trim)
                   .Parameters.AddWithValue("Nationality", txtNationality.Text.Trim)
                   .Parameters.AddWithValue("Nationality_ID", Val(txtNationalityID.Text))
                   .Parameters.AddWithValue("Type", cboType.Text.Trim)
                   .Parameters.AddWithValue("State", cboState.Text.Trim)
                   .Parameters.AddWithValue("Place", cboPlace.Text.Trim)
                   .Parameters.AddWithValue("Phone", Val(txtPhone.Text))
                   .Parameters.AddWithValue("Address", Address.Text.Trim)
                   .Parameters.AddWithValue("D1", chkD1.Checked)
                   .Parameters.AddWithValue("D2", chkD2.Checked)
                   .Parameters.AddWithValue("D3", chkD3.Checked)
                   .Parameters.AddWithValue("D4", chkD4.Checked)
                   .Parameters.AddWithValue("D5", chkD5.Checked)
                   .Parameters.AddWithValue("D6", chkD6.Checked)

               End With
               If Con.State <> ConnectionState.Open Then Con.Open()
               ret = cmd.ExecuteNonQuery()
               Con.Close()
           End Using

           If ret > 0 Then X = True

       Catch ex As Exception
           MsgBox(ex.Message)
           Return x
       End Try
   End Function