Erro Em Movimentação De Registros Com Ado

[Andersonjb]

Pessoal, desculpa encher o saco, mais é que estou acostumado com o VB.NET e to apanhando no 6, mais vamos lá:

Estou tentando movimentar registros de uma tabela. Codigo da Conexão:

  Citar

If Dir(App.Path & "bd1.mdb") <> "" Then

MsgBox ("Banco de Dados Não Encontrado")

Else

conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" & App.Path & "\bd1.mdb;"

conexao.Open

End If

Código da Configuração:

  Citar

With comando

.ActiveConnection = conexao

.CommandType = adCmdTable

.CommandText = "Funcionários"

Set selecao = .Execute

End With

preenche

Código da Movimentação:

  Citar

With selecao

If .BOF And .EOF Then

MsgBox "Não há dados no arquivo ", vbInformation

Else

.MoveNext

If .BOF Then

.MoveLast

MsgBox "Chegamos ao ultimo registro !"

Else

preenche

End If

End If

End With

preenche

De acordo com o código da movimentação, quando chegasse no ultimo registro, ele mostraria a messagebox. Mais isso não está acontecendo, o que está errado nesse código???

[Denis_Rave]

olha, posso estar errado, mas você quer chegar no ultimo registro e exibir a mensagem não é??

não deveria ser

If .EOF Then

ao invés de

If .BOF Then

Abraços

[Andersonjb]

Bem, eu não sei se era isso, mais eu consegui mesmo assim usando um DataEnviroment. Mais olhando esse código, e o que eu usei agora há pouco, queria tirar uma duvida:

O que significa essa lógica?

  Citar

Oficina.rscomando1.MovePrevious

If Oficina.rscomando1.BOF Then

Oficina.rscomando1.MoveFirst

End If

Oficina no caso é o meu DataEnviroment! Não entendi a lógica da budega...

[Denis_Rave]

Funciona da seguinte forma:

Quando executa o MovePrevious, o DataEnv vai para o registro anterior, certo? Suponhamos que você esteja no pimeiro registro da tabela, então não existe nenhum registro anterior.

Para isso o If acima. Se quando executar o MovePrevious ele encontrar o começo do arquivo (BOF) o ponteiro do DataEnv retorna para o primeiro registro da tabela

É tipo uma "gambiarra" para não gerar um erro xD

Abraços

[Andersonjb]

Não, isso eu sei, formulei mal minha pergunta, eu me refiro á essa parte do código:

If Oficina.rscomando1.BOF Then

Não entendi esse "Oficina.rscomando1.BOF", isso quer dizer que a propreidade está vazia?

[Denis_Rave]

não.

Isso representa a mesma coisa que

If Oficina.rscomando1.BOF = True then

Significa que se ele encontrar o inicio do arquivo, executa as instruções dentro do bloco.

Abraços