Estas en el tema de Visual Basic 2005 y Access en el foro de .NET en Foros del Web. Podria alguien decirme como agregar nuevos registros a una base de datos en access mediante visual basic 2005?
Salu2...
Public Overrides Function guardar(ByVal Objeto As Object) As RetornosError
Dim Funcionario As Dominio.Funcionario = CType(Objeto, Dominio.Funcionario)
Dim c As OleDbConnection
Try
c = Me.Conectar ' Este es un método de conexión que devuelve un OleDbConnection como está definido arriba.
c.Open()
Dim Ds As New DataSet
Dim Da As New OleDbDataAdapter("SELECT * FROM Funcionario", c)
Da.Fill(Ds, "Funcionario")
c.Close()
Dim unaFila As DataRow
unaFila = Ds.Tables(0).NewRow
Dim Comando As New OleDbCommandBuilder(Da)
Da.InsertCommand = Comando.GetInsertCommand
unaFila.Item("Nombre") = Funcionario.NOMBRE
Ds.Tables(0).Rows.Add(unaFila)
Da.Update(Ds, "Funcionario")
Return RetornosError.ok
Catch ex As Exception
Return RetornosError.OtroError
End Try
End Function
Código:
Private Shared mCadenaConexion As String = "PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source=" & Application.StartupPath & "\IntegradorBD.mdb"
'Función que brinda conexión a BD.
Public Function Conectar() As OleDbConnection
Dim c As OleDbConnection
Try
c = New OleDbConnection(CadenaConexion)
Return c
Catch
MessageBox.Show(Err.Description)
Return Nothing
End Try
End Function
Acá tenés un fragmento de código de un exámen. Espero que lo entiendas.