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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  como fazer uma consulta
jongle
CAPANEMA
PA - BRASIL
Postada em 16/01/2006 17:45 hs            
Pessoal como fazer uma consulta sem ter que fechar o banco...
estou usando assim... mais acho que nao é o certo..
      If TB_Client.State = adStateOpen Then TB_Client.Close
        Set TB_Client = New ADODB.Recordset
        TB_Client.CursorLocation = adUseServer
        TB_Client.CursorType = adOpenStatic
        TB_Client.LockType = adLockOptimistic
        TB_Client.Open "select * from clientes Where Cli_Cod =" + Cod_cli + ";", Cnn
        Text1 = TB_Client.Fields("Cli_Cod")
     
mais sera que tem uma sem fecha o banco?
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 16/01/2006 18:50 hs            
olha vc pode usar a propriedade filter:
 
Tb_Client.filter = "Cli_cod = 1"
 
ou se vc quiser usa um recordset temporário:
 
dim RsTemp as new Adodb.Recordset
 
Set RsTemp = Conexao.Execute("Select * from clientes where cli_cod = 1")
If not RsTemp.EOF Then Text1 = RsTemp("Cli_Cod") & ""
 
blz??
 
qq dúvida é só postar
 
t+
 
 
     
jongle
CAPANEMA
PA - BRASIL
Postada em 17/01/2006 09:25 hs            
obrigado pessoal
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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