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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Consulta
Ivo Borges
BARRETOS
SP - BRASIL
ENUNCIADA !
Postada em 28/01/2007 17:15 hs            
Pessoal
 
Como fazer uma consulta em um objeto recordset usando ADO, sem ter que fechar
a tabela, e não usar o metodo Find.
 
Toda vez que faço um select, tenho que fechar a tabela, ex.
 
rs.close
rs.open "Select * From Tb Where Cod = '" & text1.text & "'"
 
 
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 28/01/2007 18:06 hs            
Não sei se é bem isso q vc quer mas vc pode usar a propriedade filter:
 
RS.Filter = "Nome like '" & text1 & "%'"
 
para retirar o filtro:
 
RS.Filter = 0
RS.Requery
   
Ivo Borges
BARRETOS
SP - BRASIL
ENUNCIADA !
Postada em 29/01/2007 09:58 hs            
Ola ghost, será que não existe outro jeito ?
Parece que o metodo filter, não permite clausula Where.
 
   
Cardoso G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 29/01/2007 14:27 hs            
ivo, vc tem que fechar a tabela mesmo, ta certim.
'abra o recordset
rs.open "Select * From Tb Where Cod = '" & text1.text & "'"
'faça o que vc quiser aqui
'fecha o recordset
rs.close
set rs =nothing
 
   
William 
CRAVINHOS
SP - BRASIL
ENUNCIADA !
Postada em 29/01/2007 14:29 hs            
cara eu uso outro meio de programação em ADO
 
uso o seguinte comando
 
dim Comando as new adodb.command
dim rs as new adodb.recordset
with comando
 .activeconncetion = cnn ' tem q ter uma conexao criada e aberta
 .commandtype = adcmdtext
 .commandtext = "SELECT * FROM Tabela WHERE Campo = '" & text1.text & "';"
 set rs = .execute
end with
 
para criar a conexão, use o seguinte esquema
 
'num módulo
public cnn as new adodb.connection
 
'abrir a conexao, uso access, m asexistem vários outros provedores q eu não conheço!!
 
cnn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:myDB.mdb"
cnn.open

A maior dom dos humanos foi a habilidade de poder raciocinar e se guardar, mas a melhor dádiva foi aprender e ensinar!

   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 29/01/2007 14:44 hs            
Ivo, o filter já é um WHERE só q vc não precisa digitar.
   
Página(s): 1/2      PRÓXIMA »


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