Pesquisa em Frm com Tabela com muitos dados

Boa Tarde

Preciso de uma ajuda dos mestres, tenho uma tabela (Tbl_Geral) e preciso pesquisar por um numero de caminhão que é um campo que esta dentro da tabela, estou usando o codigo:

DoCmd.ApplyFilter , "Caminhao like'" & Combinação44 & "'"
DoCmd.Requery
Combinação44.SetFocus

Mas a quantidade de dados desta tabela é muito grande e a pesquisa demora demais, alguem tem algum codigo que rodasse mais rapido.
Eu achei este codigo mas ele só traz o primeiro registro e o numero que procuro se repete na tabela.


Dim sel As String
Conecta

sel = "Select * from Tbl_Geral where Caminhao =" & Combinação18 & " And [CD] ='" & Forms![Frm_Fundo]![CD] & "'"
Rs.Open sel, cn, 3, 3

If Rs.RecordCount = 0 Then
MsgBox "Caminhão, " & Combinação18 & " não encontrado!", vbCritical, "Atenção!!"
else
txtCaminhao = Rs("Caminhao")
end if
Desconecta

Não entendo muito de Recordset, peguei o modulo e o codigo em um outro banco.

Aguardo uma luz desde ja agradeço.

Tente substituir pelo métido Filter:

Me.Form.Filter = "Caminhao like'" & Me.Combinação44 & "'"
Me.Form.FilterOn = True

Retire a linha do DoCmd.Requery tambem

Criquio ficou bom depois que o form esta aberto e carregado, mais esta demorando muito porque esta com a tabela vinculada,
preciso usar o frm desvinculado e um codigo que me retornasse todos os valores de um campo que deixarei no cabeçalho por isso pensei em algum codigo parecido com o segundo que mandei, você teria alguma ideia, estou com esse banco em rede e no momento tenho 600 mil linha com 36 colunas só para essa tabela.

Help please.

Pessoal, ainda estou o problema, alguem teria uma dica, é muito importante para minha empresa.

Obrigado.

Olá

teste:

Código:

Dim sel As String
Conecta

sel = "Select * from Tbl_Geral where Caminhao =" & Combinação18 & " And [CD] ='" & Forms![Frm_Fundo]![CD] & "'"
Rs.Open sel, cn, 3, 3

If Rs.RecordCount = 0 Then
MsgBox "Caminhão, " & Combinação18 & " não encontrado!", vbCritical, "Atenção!!"
else

do while not rs.eof
  txtCaminhao = Rs("Caminhao") & " " & txtCaminhao
  rs.movenext
loop

end if
Desconecta

Bom Dia Avelino

É uma honra ser orientado por você, sou seu fã.

Funciono parcialmente, a logica é esta, mas uso um formulário continuo e os resultados estão retornando todos dentro de um unico campo na primeira linha, gostaria que retornasse cada valor da tabela na sua linha.

Agradeço desde já.

Huum, teria que passar o código para uma função global. Só que, consultar esta tabela a cada linha continuará sendo um desastre (risos)

Vou pensar aqui numa opção menos calamitosa.

Boa Tarde

Beleza, fico no aguardo de mais uma "mágica" sua.

Obrigado pela disposição de seu tempo.

Tem como vc aprontar um BD exemplo ? Assim veria como está sendo montado o seu formulário. Poderia enviar só com uns 30 registros para testes.

Creio que haja uma solução, usando o método GetRows do recordset. A ideia é o seguinte:

Ao abrir o formulário , passamos os registros da tabela geral para uma variavel, através do método Getrows.
Em cada linha do formulário continuo, dispramos uma função para procurar valores na variavel, que está com os registros armazenados.(assim não precisamos ir até a tabela)

Pelo volume de registros não tenho a certeza se daria muito certo mas não custa tentar. testei aqui com uma tabela que contem 10 mil registros. Foi rápido

No aguardo

Boa Noite

Avelino, anexei o meu BD como você solicitou.

Tem dois formulários que são o mesmo "Frm_Excluir_Alterar_Carga_Original" e "Frm_Excluir_Alterar_Carga_Novo", o original é o que uso hoje e o novo é com o codigo que você me sugeriu, ressalto que irei usar este codigo em varios formulários parecidos mais como é só para voce montar um codigo mandei só esse, outra coisa, uso este banco que enviei como servidor e fica em um local na rede do meu serviço e uso outros bancos como terminais em varios CDs que alimentam este bd e depois uso ele para consulta via os terminais que estão nos CDs, tenho 3 terminais em cajamar 1 em Aldeia da Serra e 1 em Tamboré.

Sei que não precisa mas, o usuário é: Avelino e senha: 123456

Obrigado.

Baixei. Já estou analisando. Irei lhe propor uma solução, usando o listbox

Ainda hoje coloco aqui a solução para testes.

Segue modificações no "Frm_Excluir_Alterar_Carga_Novo"

Faça um backup de segurança, antes da realização dos testes.

Fico no aguardo.

Boa noite

Avelino vou testar no serviço que é onde fica a rede e retorno dizendo o resultado, por incrivel que parece não vejo a hora de ir trabalhar na segunda feira para ver como vai rodar.

Mestre MUITO Obrigado pela ajuda, não tenho palavras para agradecer, segunda logo que terminar os testes retorno.

Um Abraço,

Olá André

Este exemplo que te passei não irá funcionar. Motivo: O controle ListBox , no modo "Lista de valores", tem uma limitação de 2048 caracteres.

Para realizar um testes mais realista, gerei por código 1 MILHÃO de registros na tabela tbl_geral.

Pergunto:

Quanto tempo em média vc está levando para ter acesso aos dados filtrados ?

Até o momento não consegui baixar de 45 segundos, pela rede. uso local é de 1,5 segundos

Quantos registros costumam retornar numa consulta desta ? 10 mil, 500, ... ?

No aguardo

Bom Dia

Avelino no modo antigo como eu usava demorava no local mais lento cerca de 20 minutos para retornar uma pesquisa, fiz o teste hoje e agora demora em torno de 2 minutos, o que ja esta bem melhor.
Como alguns dos formulários de pesquisa que terei que montar trará um monte de campo então a limitação do listbox será um problema para este frms.
Geralmente a pesquisa retorna 5 a 10 linhas, mais infelizmente tenho algumas pesquisas que podem retornar em torno de 800 a 900 linhas que é os correios que cada encomenda é uma linha.

Olá André

Fiz testes com ADO, com DAO e não conseguia baixar de 45 segundos. Ontem consegui desenvolver uma técnica, que esta dando para chegar em 7 segundos, o que já é bem aceitável.

veja na imagem, o tempo decorrido e 10 mil registros sendo retornados.



Estou acessando a tabela com 1 milhão de registros, pela rede.

Esta técnica, ser der certo, também poderá ser aplicada em formulário continuo.

Realizarei novos testes hoje e amanhã e então lhe fornecerei a configuração.

Caramba 7 segundos da pra fica com sorriso de orelha a orelha, é FANTASTICO com essa quantidade de registros.

Gostaria de pedir um favor, como sou iniciante e não tenho o conhecimento profundo em programação sera que você poderia comentar os códigos para eu conseguir entender o que faz o que, porque terei que fazer igual para outras consultas no mesmo BD.

Obrigado.

Bom Dia

Avelino sem querer ser chato, você conseguiu finalizar o novo codigo que estava testando?

At.

Olá Andre

Desculpa pela falta de retorno. Tive que dar uma paradinha para resolver outras questões e solicitações.

Este seu tópico me deu até uma idéia de montar um gerador de registros, para a realização de testes. Estou criando um pequeno artigo para o meu site, aonde irei oferecer este gerador.

O grande problema vai ser te explicar como implementar o treco (risos).

Uma das grandes vantagens do SQL SERVER sobre o Access, é poder processar as consultas na máquina servidora. Apenas os resultados das cosultas trafegam pela REDE, contribuindo em muito com a performance. O que fiz aqui foi usar um banco auxiliar, que fica na máquina servidora, para gerar as consultas (estou fazendo algo parecido com o SQL SERVER). O resultado destas consultas, que ficam aramazenadas no banco auxiliar, é que são capturados pelo front-end. Assim o processamento das consultas ficam no lado do servidor, melhorando drasticamente o desempenho.

Beleza, sem problemas

Fico no aguardo.

Valeu

Bom Dia Avelino

Eu vi seu novo tópico no site, mais ainda não consegui aplicar, estou no aguardo do seu retorno.

Obrigado.