Visual Basic 2005 y Access

[Adolfiten]

Código:

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.

¡POR NADA!
Saludos.