Introdução
Tabelas
Relacionamentos
 Consultas
Formulários
 Relatórios
 Macros
Módulos
ActiveX
 AutomaçãoOLE
 Gráficos
 DAO
 SQL
 Segurança
Redes/ODBC
 Dicas
 Curso Online
Wizards
Ferramentas
Help
 Downloads
 Links
Novidades
FAQs
Index

DAO



DAO - Data Access Object é a parte do Jet encarregada de tratar bancos de dados via código juntamente com o SQL no Access.
Mini curso de DAO

    Através do DAO podemos criar bancos de dados e todos os seus objetos, como também relacionamentos e índices, além de implementar a segurança: usuários e senhas. Podemos também trabalhar com registros dos bancos de dados: adicionando, editando ou alterando.

    Temos uma Tabela Cliente, que comtem Código, Nome, Endereço e Telefone. Acontece que esta tabela deverá ter mais um campo, mês de vencimento e todos serão do mês de janeiro. Mais ainda, esta Tabela já está cadastrada com 170.000 registros. Como faremos?
    Criamos o Campo mês e vamos cadastrar via código (DAO):

    Criamos um botão em um formulário qualquer e uma Caixa de Texto (Mes) no evento Ao clicar:

Private Sub Comando1_Click()
    Dim db As Database
    Dim rs As Recordset

If IsNull(Mes) Then
    MsgBox "Mês está vazio, digite um mês!"
Else

    Set db = CurrentDb
    Set rs = db.OpenRecordset("tbtClientes", dbOpenDynaset)

    rs.MoveFirst
    With rs
        Do While Not .EOF
            .Edit
            !MêsVencimento = Mes
            .Update
            .MoveNext
        Loop
    End With
    rs.Close
    Set db = Nothing
End If
End Sub

Veja o Help do Access que tem muita coisa sobre o assunto.


1