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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Seek
JSFF
SÃO PAULO
SP - BRASIL
Postada em 20/06/2007 11:31 hs            
Jayme,
 
Quando se escreve MoveL a s t e MoveF i r s t, o site modifica, por algum motivo, para MoveMin e MoveMax. A solução é deixar um espaço entre cada uma das letras das palavras "L a s t" e "F i r s t", como se fez aqui. 
 
Algo semelhante acontece quando se escreve a barra invertida ("\"), com a diferença de ser esta substituída por uma "string" vazia. Para que o site a mantenha no texto, basta escrever duas barras juntas, e isso foi feito aqui.
 
É isso aí!
 
 
JSFF
     
JOM
BOM JESUS DA LAPA
BA - BRASIL
Postada em 21/06/2007 17:44 hs            
Obrigado!
 
Encontrei um outro método, caso vc não conheça:
 
adodc1.recordset.filter = " campo = " & txtbusca
 
simples e funciona, valeu!
     
JOM
BOM JESUS DA LAPA
BA - BRASIL
ENUNCIADA !
Postada em 22/07/2007 11:25 hs            
olá Jayme!, depois de algum tempo fui rever o código que me passou e realmente é só fazer umas modificações, pois uso o adodc, e ele tá funcionando perfeitamente:
 

If Adodc1.Recordset.RecordCount <> 0 Then

  Adodc1.Recordset.MoveMin

  Adodc1.Recordset.Find "campo = '" & Text20.Text & "'"

  If Adodc1.Recordset.EOF Then

    MsgBox "Código não registrado !", vbOKOnly, "Atenção"

  Else

    MsgBox "O código existe !", vbOKOnly, "Atenção"

  End If

End If

 

melhor que o método: filter, que eu estava usando porque com o método filter eu só conseguia usar em campos numericos, e desta forma acima, uso em campos numericos e alfabeticos.

 

surge então esta questão à qual acho que terei que abrir novo tópico, por que o filter só encontra campos numéricos?

   
JOM
BOM JESUS DA LAPA
BA - BRASIL
Postada em 22/07/2007 11:27 hs            
CORREÇÃO!
 
olá Jayme!, depois de algum tempo fui rever o código que me passou e realmente é só fazer umas modificações, pois uso o adodc, e ele tá funcionando perfeitamente:
 

If Adodc1.Recordset.RecordCount <> 0 Then

  Adodc1.Recordset.Move F i r s t

  Adodc1.Recordset.Find "campo = '" & Text20.Text & "'"

  If Adodc1.Recordset.EOF Then

    MsgBox "Código não registrado !", vbOKOnly, "Atenção"

  Else

    MsgBox "O código existe !", vbOKOnly, "Atenção"

  End If

End If

 

melhor que o método: filter, que eu estava usando porque com o método filter eu só conseguia usar em campos numericos, e desta forma acima, uso em campos numericos e alfabeticos.

 

surge então esta questão à qual acho que terei que abrir novo tópico, por que o filter só encontra campos numéricos?

     
Página(s): 2/2     « ANTERIOR  


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