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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Array com Dois Valores Iguais
Macaubal
não registrado
ENUNCIADA !
Postada em 06/03/2008 10:45 hs   
Verifique se voce nao tem nenhum objeto com o nome igual a descrição do Array
   
Expedito Junior
RECIFE
PE - BRASIL
Postada em 06/03/2008 17:56 hs            
Na tabela tem um compo com a duração de ligações e no select eu tenho que filtrar duraca maior que e duracao menor que.

Expedito Junior

msn: expedito_junior947@hotmail.com

"A oportunidade favorece uma mente preparada!"

     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
Postada em 07/03/2008 10:51 hs            
Tenta desta forma abaixo:
 
Repare que no array lvCampos acrescentei o NrTelefone, para completar o array
e altere seu código  como a seguir.
 
lvTextos = Array(txtDurMax.Text, cbRamal.Text, txtDurMin.Text, cbGrupo.Text, cbConta.Text, txtTelefone.Text)
lvCampos = Array("DuracaoMin", "Entidade", "DuracaoMax", "Id_grupo", "Conta_login","NrTelefone")
dim Campo as String
For f = 0 To 5
    If lvTextos(f) <> "" Then
              If lvCampos(f)="DuracaoMin" then
              Campos="Duracao<"
              Elseif lvCampos(f)="DuracaoMax" then
              Campos="Duracao>"
              End If
                  lvConsulta = lvConsulta + Campos & "='" & lvTextos(f) & "' and "
    End If
Next f
 
Seu select terá que ficar assim:
 
select * from tabela where Duracao <= txtdurmax.text
select * from tabela where Duracao >= txtdurmin.text
     
Expedito Junior
RECIFE
PE - BRASIL
Postada em 07/03/2008 12:56 hs            
Vou testar.
Obrigado.
     
Macaubal
não registrado
Postada em 07/03/2008 16:31 hs   
Para diferenciar o nome do campo no select utiliza aspa simples
 
Select * from tabela where 'duracao' = """ & duracao & """
     
Página(s): 2/2     « ANTERIOR  


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