Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Edwilson Curti

BOF e EOF usando Adodc

Recommended Posts

Bom gente, pelo título já deve dar pra ver o que quero.

Tenho no Form um objeto Adodc que lida diretamente na tabela, ou seja, os registros são exibidos mediante o pressionar das setas para a direita e esquerda.

O que desejo é que me digam como faço para identificar o Início (BOF) e o fim (EOF) dos registros na tabela, usando o objeto Adodc.

Toda vez que chega ao início ou ao fim e não e não há mais registros a serem exibidos, dá erro.

 

E aí, alguém sabe me dizer?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Use os códigos:

 

Adodc1.Recordset.BOF para identificar o início do arquivo

Adodc1.Recordset.EOF para identificar o fim do arquivo

 

Assim:

 

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
	If Adodc1.Recordset.BOF Then
		MsgBox "Primeiro registro"
	End If
	If Adodc1.Recordset.EOF Then
		MsgBox "Último registro"
	End If
End Sub

Espero ter ajudado

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.