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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Query no access
squall
SÃO BERNARDO DO CAMAPO
SP - BRASIL
ENUNCIADA !
Postada em 03/11/2004 16:37 hs            
Boa Tarde à todos

Seguinte, usando o seguinte código

ssql  = "Select CLI_IDCLIENTE AS Código, CLI_DLNOME as Nome, CLI_DLENDERECO as Endereço, CLI_NUNUMERO as Nº,CLI_DLBAIRRO as Bairro, CLI_DLCIDADE as Cidade from CLI_CLIENTE WHERE CLI_IDCLIENTE = '00001' ORDER BY CLI_IDCLIENTE"

rsPesquisa.Open sSql, oDb, adOpenKeyset, adLockReadOnly
  If rsPesquisa.RecordCount > 1 Then
  
    Set flexPesquisa.Recordset = rsPesquisa
    AjustarGridPesquisa
    
  Else
  
    MsgBox "Registro(s) não encontrado(s), favor mudar os critérios", vbExclamation, App.EXEName
    flexPesquisa.FormatString = ""
    
  End If
  
o vb não retorna resultado nenhum e entra no else do if, mas executando a mesma consulta no access ele traz o resultado correto, alguém já viu algo assim e teria como me ajudar, já tentei mudar os cursores do recordset e nada

Obrigado
   
dededovalle
FRANCO DA ROCHA
SP - BRASIL
ENUNCIADA !
Postada em 03/11/2004 18:09 hs            
cara,
tenta criar a consulta no modo estrutura do access, visualiza ela no modo SQL do access, copie toda a string sql que o access gera para a sua variavel ssql e tente abrir o recordset novamente.
 
Espero ter ajudado!!!.
André
   
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 03/11/2004 20:24 hs            
tente mover para o ultimo registro
 
rsPesquisa.Move l a s t
If rsPesquisa.RecordCount > 1 Then
 
antes de pegar o count.
Obs procure não colocar acento ou outros caracteres não muito convencionais, pode dar problema.

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
TÓPICO EDITADO
 
Semmer
CURITIBA
PR - BRASIL
Postada em 04/11/2004 07:38 hs            
Pode ser culpa do recordcount. Ele não é confiável. Muda a linha do if assim:
 
If not rsPesquisa.eof Then
 
     
squall
SÃO BERNARDO DO CAMAPO
SP - BRASIL
ENUNCIADA !
Postada em 04/11/2004 11:09 hs            
Caros amigos, obrigado, mas o problema era o seguinte

o like funciona apenas com % à partir do mdac 2.8 usado no meu vb, se eu utilizo por exemplo like '%00001%' funciona normalmente, mas se eu colocar like '*00001* ( como era utilizado antigamente, o mdac não aceita e dá pau, não traz nada

Agora funciona, valeuuuuuu
   
Página(s): 1/1    

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