
05/12/2008, 10:14
|
| | 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 |