26/01/2006, 09:35
|
| | | Fecha de Ingreso: enero-2006
Mensajes: 9
Antigüedad: 18 años, 3 meses Puntos: 0 | |
| te falta codigo en esa aplicacion:
Dim StrConexion As String
Dim StrComando As String
Dim AdaptadorTabla As New OleDbDataAdapter
Dim Ds As New System.Data.DataSet
Dim FILA As DataRow
Dim comando As OleDb.OleDbCommandBuilder
StrConexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta & "\bd1.mdb"
StrComando = "SELECT * FROM Tabla1"
AdaptadorTabla = New OleDb.OleDbDataAdapter(StrComando, StrConexion)
AdaptadorTabla.Fill(Ds, "Tabla1")
FILA = Ds.Tables("Tabla1").NewRow
FILA("nom") = TextBox2.Text
FILA("edad") = Val(TextBox3.Text)
Ds.Tables("Tabla1").Rows.Add(FILA)
Dim comando As New OleDb.OleDbCommandBuilder(AdaptadorTabla)
AdaptadorTabla.Update(Ds,"Tabla1") |