VARIAVEL DESCONHECIDA

ADRIANO 30/12/2003 23:32:53
#2959
Tenho a seguinte fução para acessar uma base de dados do access.
'Estou usando o Dao3.6 como referência.

Linha 1 - Dim DB as Database, RC as Recordset
Linha 2 - Set DB = OpenDatabase(App.Path & "\Dados.mdb")
Linha 3 - Set RC = DB.OpenRecordset("Select * from TABELA1 order by _ CAMPO1")
Linha 4 - RC.MoveFirst
Linha 5 - Do While Not RC.EOF
Linha 6 - If RC!CAMPO1 = "Adriano Lindo" Then Var(x) = Var(x) + 1
Linha 7 - RC.MoveNext
Linha 8 - Loop

'Esta função é só um exemplo para expor a minha dúvida.

A minha dúvida é a seguinte:
- Existe uma variável pela qual eu poderia substituir o RC!CAMPO1 presente na linha de código nº 6 da minha função?

Desde já agradeço...

Abraços.

Adriano Daniel Mà¼ller
USUARIO.EXCLUIDOS 30/12/2003 23:58:31
#2962 Resposta escolhida
Você pode criar uma variável objeto do tipo Field. Ficaria:

Linha 1 - Dim DB as DAO.Database, RC as DAO.Recordset, oFL as DAO.Field
Linha 2 - Set DB = OpenDatabase(App.Path & "\Dados.mdb")
Linha 3 - Set RC = DB.OpenRecordset("Select * from TABELA1 order by _ CAMPO1")
Linha 4 - Set oFL = RC.Fields("CAMPO1")
Linha 5 - RC.MoveFirst
Linha 6 - While Not RC.EOF = True
Linha 7 - If oFL.Value = "Adriano Lindo" Then Var(x) = Var(x) + 1

ou, como Value é a propriedade padrão, também poderia ser:
Linha 7 - If oFL = "Adriano Lindo" Then Var(x) = Var(x) + 1

Linha 8 - RC.MoveNext
Linha 9 - Wend
Tópico encerrado , respostas não são mais permitidas
Voltar