USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  BD e Pesquisa
Shidartha
BELO HORIZONTE
MG - BRASIL
ENUNCIADA !
Postada em 08/06/2004 13:43 hs         

Olá galera.

Gostaria de saber uma coisa:
Abrindo uma tabela da seguinte forma:

Dim BD as database
dim TB as recordset
set BD=opendatabase("C:Banco.mdb")
set TB=BD.openrecordset("Clientes")

É possível fazer pesquisas utilizando o método "seek". Ex:
tb.index = "IDCliente"
tb.seek "=", CodigoX

Agora se eu abro a Tabela da seguinte forma:

set TB = BD.Openrecordset("SELECT * FROM Clientes ORDER BY Data")

O método seek se torna inválido. Sendo assim necessário fazer pesquisas com o método FindMin.

Eu prefiro fazer minhas pesquisas com o método seek, mas preciso abrir minha tabela ordenando por data. Alguém sabe como poderei fazer isso?


Shidartha Fonseca Rosa

ssrosa@uai.com.br

MSN: ShidarthaFR@Hotmail.com

   
Roßerto
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 08/06/2004 13:49 hs            
tente usar um indice composto para isso

tb.index = "IDCliente+Data"
tb.seek "=", CodigoX & Data

Roberto
   
Shidartha
BELO HORIZONTE
MG - BRASIL
ENUNCIADA !
Postada em 08/06/2004 18:31 hs         
Nao dá. Eu preciso de uma consulta simples. nao tem outro jeito?

Shidartha Fonseca Rosa

ssrosa@uai.com.br

MSN: ShidarthaFR@Hotmail.com

   
Shidartha
BELO HORIZONTE
MG - BRASIL
ENUNCIADA !
Postada em 09/06/2004 00:41 hs         
?

Shidartha Fonseca Rosa

ssrosa@uai.com.br

MSN: ShidarthaFR@Hotmail.com

   
Capetossauro
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
PRESIDENTE PRUDENTE
SP - BRASIL
ENUNCIADA !
Postada em 09/06/2004 00:55 hs            
Pq tem que ser pelo metodo seek quando vc tem todo o poder do SQL ao seu dispor?
Tente assim:
 
set TB = BD.Openrecordset("SELECT * FROM Clientes where cod_cli = " & codigo_em_questão & " ORDER BY Data")
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página