Construtor de conjuntos de registos DAO e ADO

O Recordset Builder facilita muito a criação de código para adicionar, ler, atualizar ou procurar dados na sua base de dados do MS Access utilizando DAO (ou ADO):

1. Selecionar a tabela para trabalhar
2. Selecionar os campos a que pretende aceder
3. Selecione o tipo de código que pretende utilizar: Adicionar, Atualizar, Ler ou Procurar
4. OK

O construtor fornece código que tem de completar da forma mais adequada aos seus objectivos. No caso de FindFirst, terá de especificar a cadeia de critérios. Exemplo no método Recordset.FindFirst da MS Docs (DAO) Em geral, a documentação pode ser encontrada colocando o cursor no procedimento e premindo F1.

No que diz respeito aos campos, selecione apenas os que pretende utilizar e atribua-os a variáveis no seu programa da forma que considerar mais adequada, por exemplo

Dim strSalutation as String
strSalutation  = ![fldFirstName]
strSalutation = & " " &  ![fldLastName]

Nota: Para facilitar o acesso à documentação do DAO, criámos uma página de índice: https://www.codevba.com/learn-dao-vba.htm

Conjunto de registos DAO Adicionar código (exemplo)

Com os valores selecionados, seria inserido o seguinte código DAO

Dim db As DAO.Database
Set db = CurrentDb
Set rstCategories = db.OpenRecordset("Employees", dbOpenDynaset)
With rstCategories
    .AddNew
    ![LastName] =
    ![FirstName] =
    ![HomePhone] =
    ![ReportsTo] =
    .Update
    .Close
End With
Set rstCategories = Nothing
db.Close
Set db = Nothing

Código de pesquisa do conjunto de registos DAO (exemplo)

Com os valores selecionados, seria inserido o seguinte código DAO

Dim db As DAO.Database
Set db = CurrentDb
Set rstCategories = db.OpenRecordset("Employees", dbOpenDynaset)
With rstCategories
    Do While Not .EOF
        Debug.Print ![EmployeeID], ![LastName], ![FirstName], ![HomePhone]
        .MoveNext
    Loop
    .Close
End With
Set rstCategories = Nothing
db.Close
Set db = Nothing