insertar datos

:

Dim strConn, strSQL As String
Dim cn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As New DataSet
Dim dr As DataRow
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Sistema.MDB;"

strSQL = "SELECT Nombre, Apellido1, Apellido2 " & _
"FROM Usuarios"

'Crea conexión
cn = New OleDbConnection(strConn)

'Crea Data Adapter
da = New OleDbDataAdapter(strSQL, cn)
strSQL = "INSERT INTO Usuarios " & _
" (Nombre, Apellido1, Apellido2) " & _
" VALUES (?, ?, ?)"

Dim cmd As New OleDbCommand(strSQL, cn)
Dim pc As OleDbParameterCollection = cmd.Parameters
pc.Add("@Nombre", OleDbType.Char)
pc.Add("@Apellido1", OleDbType.Char)
pc.Add("@Apellido2", OleDbType.Char)

'Comando de inserción
da.InsertCommand = cmd
da.Fill(ds, "Tabla")

dr = ds.Tables("Tabla").NewRow

dr.Item("Nombre") = "Nombre " &
ds.Tables("Tabla").Rows.Count.ToString
dr("Apellido1") = "Apellido 1 " &
ds.Tables("Tabla").Rows.Count.ToString
dr("Apellido2") = "Apellido 2 " &
ds.Tables("Tabla").Rows.Count.ToString
pc.Item(0).Value = "Nombre " &
ds.Tables("Tabla").Rows.Count.ToString
pc.Item(1).Value = "Apellido 1 " &
ds.Tables("Tabla").Rows.Count.ToString
pc.Item(2).Value = "Apellido 2 " &
ds.Tables("Tabla").Rows.Count.ToString

ds.Tables("Tabla").Rows.Add(dr)
da.Update(ds, "Tabla")


"Randall" wrote:

buenas me gustaria si me pudieran facilitar una fraccion de condigo donde me
explique como insertar datos desde .net en una base access: ejemplo
base: sistema
tabla: usuarios
campos: nombre, apellido1, apellido2

gracias de antemano