Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/12/2008, 10:14
brianarvili
 
Fecha de Ingreso: julio-2008
Mensajes: 88
Antigüedad: 16 años, 9 meses
Puntos: 0
Lo mismo pero modificando

Tengo el siguiente codigo que para agregar un registro me funciona
si lo que hago es modificarlo, que deberia cambiar en el metodo?

es asi:
oledbreader.Close()
Dim mitabla As DataTable = midataset.Tables("Equipos")
Dim nf As DataRow = mitabla.NewRow
nf.Item("idequipo") = TextBox1.Text
nf.Item("nombre") = TextBox2.Text
nf.Item("titulos") = TextBox3.Text
nf.Item("copas") = TextBox4.Text
nf.Item("capacidad_estadio") = TextBox5.Text
nf.Item("foto") = TextBox6.Text
nf.Item("idpais") = TextBox7.Text
mitabla.Rows.Add(nf)
If midataset.HasChanges Then
Dim aut As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(adapter)
aut.QuotePrefix = "["
aut.QuoteSuffix = "]"
Dim upd As DataTable = midataset.Tables("Equipos")
adapter.Update(upd.Select(Nothing, Nothing, DataViewRowState.Added))
Me.BindingContext(midataset, "Equipos").ResumeBinding()
MessageBox.Show("se agrego")
Button2.Visible = True
End If
Button1.Visible = False
Button12.Visible = True