CONSULTA ESTA MUITO LENTA NA CONSULTA
Ala amigos
Estou com uma duvida
Estou usando Ado com Firebird
Minha tabela de consulta Clientes esta muito Lenta na consulta
Pesquisei na net, não tive sucesso
é bem simples, mai esta lenta na hora da troca de nomes, fica truncando
Já usei ListView, e Flexgrid
no listview até roda bem mais um item apenas
Seria apenas quatro item
Codigo Nome Fone Cep
Obs: PC (Ótimo)
Grato
Estou com uma duvida
Estou usando Ado com Firebird
Minha tabela de consulta Clientes esta muito Lenta na consulta
Pesquisei na net, não tive sucesso
é bem simples, mai esta lenta na hora da troca de nomes, fica truncando
Já usei ListView, e Flexgrid
no listview até roda bem mais um item apenas
Seria apenas quatro item
Codigo Nome Fone Cep
Obs: PC (Ótimo)
Grato
sem o código não ajuda muito
Public Sub Preenche_Lista()
ListaAlunos.ListItems.Clear
If rs.RecordCount = 0 Then Exit Sub
While Not rs.EOF
Set lst = ListaAlunos.ListItems.Add(, , rs(0))
For i = 1 To 6
lst.SubItems(1) = [Ô][Ô] & rs([Ô]NomeP[Ô])
lst.SubItems(2) = [Ô][Ô] & rs([Ô]FoneP[Ô])
lst.SubItems(3) = [Ô][Ô] & rs([Ô]DtaConsulta[Ô])
Next i
rs.MoveNext
Wend
End Sub
rs.Open [Ô]select * from Cad_Paciente where [Ô] & procurarpor & [Ô] like [ô][Ô] & txtProcurar & [Ô]%[ô] ORDER BY NomeP[Ô], cnn
Nao seria melhor...
Public Sub Preenche_Lista()
ListaAlunos.ListItems.Clear
If rs.RecordCount = 0 Then Exit Sub
do until rs.eof
lst.SubItems(1) = [Ô][Ô] & rs([Ô]NomeP[Ô])
lst.SubItems(2) = [Ô][Ô] & rs([Ô]FoneP[Ô])
lst.SubItems(3) = [Ô][Ô] & rs([Ô]DtaConsulta[Ô])
rs.MoveNext
loop
End Sub
Public Sub Preenche_Lista()
ListaAlunos.ListItems.Clear
If rs.RecordCount = 0 Then Exit Sub
do until rs.eof
lst.SubItems(1) = [Ô][Ô] & rs([Ô]NomeP[Ô])
lst.SubItems(2) = [Ô][Ô] & rs([Ô]FoneP[Ô])
lst.SubItems(3) = [Ô][Ô] & rs([Ô]DtaConsulta[Ô])
rs.MoveNext
loop
End Sub
é QUE EU USO UM LABEL procurarpor
POIS TENHO 4 OPÇÕES DE PESQUISAS
SE EU USAR CONFORME SEU EX: NAO PESQUISA.
rs.Open [Ô]select * from Cad_Paciente where [Ô] & procurarpor & [Ô] like [ô][Ô] & txtProcurar & [Ô]%[ô] ORDER BY NomeP[Ô], cnn
Do jeito que escreveu a rotina, se a consulta retornar 100 registros, o processamento final será de o mesmo que 600 registros.
Isso porque para cada registro, o código que escreveu terá que percorrer uma iteração de que varia de 1 a 6.
Com certeza, essa não é a melhor forma de resolver o problema.
Atente para a dica do colega LANCECOM.
Isso porque para cada registro, o código que escreveu terá que percorrer uma iteração de que varia de 1 a 6.
Com certeza, essa não é a melhor forma de resolver o problema.
Atente para a dica do colega LANCECOM.
Tópico encerrado , respostas não são mais permitidas