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
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


0