Visual Basic.NET - guardar datos con visual studio 2008 y acces 2003

   
Vista:

guardar datos con visual studio 2008 y acces 2003

Publicado por Javier (1 intervención) el 23/09/2009 05:07:23
Hola amigos necesito una mano estoy trabajando en una aplicacion para manipular una base de datosque contiene varias tablas. logro conectarme a la base de datos y cargarla en un dataset y exponerla en un datagridview pero no logro acertar con el codigo exacto para agregar nuevos datos a la base de datos.
este es mas o menos el codigo que estoy usando.
si alguien puede darme una mano por fabor.
muchas gracias

Dim ruta As String
Dim keyValue As String

Dim add As DataRow
Dim A As DataTable

Dim DataSet1 As New DataSet()



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ConnString As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=") + ruta
Dim SQLString As String = "SELECT * FROM Choferes"
Dim OleDBConn1 As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(ConnString)
Dim OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(SQLString, OleDBConn1)
OleDBConn1.Open()

OleDbDataAdapter1.Fill(DataSet1, "Choferes")
DataGridView1.DataSource = DataSet1.Tables("Choferes")

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

A = DataSet1.Tables("Choferes")
add = A.NewRow
add("ide") = "11"
add("Nombre") = TextBox1.Text
A.Rows.Add(add)

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:guardar datos con visual studio 2008 y acces 20

Publicado por Damian (824 intervenciones) el 25/09/2009 15:56:54
Seria algo asi, espero te resulte:

Dim Datos as Dataset
Dim Nuevo as DataRow

Nuevo = Datos.Tables("Choferes").NewRow
'quiere creer que ese ide es string si es integer le sacas las comillas
Nuevo("ide") = "11"
Nuevo("Nombre") = TextBox1.Text
Datos.Tables("Choferes").Rows.Add(Nuevo)

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar