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.