VBA Access - Encontrando um registro específico

Não existe atividade mais repetitiva num banco de dados quanto a de encontrar um registro específico. Existem diversas formas de fazermos isso, abaixo segue código de uma dessas formas. Divirtam-se!

Dim strSQL As String
Dim rst As ADODB.RecordsetDim lngID As Long

Let strSQL = "SELECT Det.ID, Det.EntryDate, Det.UserEntry FROM UserEntrys WHERE Det.ID=" & EID
Set rst = New ADODB.Recordset
With rst
.Open strSQL, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
Do While Not rst.EOF
Let idnumber = !ID
Let recdate = !EntryDate
Let recdata = !UserEntry
rst.MoveNext
Loop
.Close
End With

Set rst = Nothing 

Tags: Access, find, recordset, loop, while, ADODB, select, SQL

André Luiz Bernardes
A&A® - Work smart, not hard.




Nenhum comentário:

Postar um comentário

diHITT - Notícias