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

Puedes intentar con el código siguiente:

Private Sub InsertarFila(ByVal Nombre As String, ByVal Apellido1 As
String, _
ByVal Apellido2 As String)
Dim cnn As OleDbConnection = New _
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data " & _
"Source=c:\sistema.mdb")
Dim cmd As OleDbCommand = cnn.CreateCommand
cmd.CommandText = "INSERT INTO usuario VALUES (?,?,?)"
cmd.Parameters.Add("Nombre", OleDbType.VarChar).Value = Nombre
cmd.Parameters.Add("Apellido1", OleDbType.VarChar).Value = Apellido1
cmd.Parameters.Add("Apellido2", OleDbType.VarChar).Value = Apellido2
'Ejecutar el comando
Using cnn
Try
cnn.Open()
cmd.ExecuteNonQuery()
Catch ex As Exception
Throw ex
Finally
cnn.Close()
End Try
End Using

End Sub



"Randall" escribió:

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