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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  COMO FAZER CONSULTA SQL COM tres PARAMETROS???
JOM
BOM JESUS DA LAPA
BA - BRASIL
Postada em 14/02/2008 23:28 hs            
vou por o codigo e tentar explicar, sei que é exatamente o que quer, mas acrescente uma coisa, coloque na propriedade TEXT da combo a palavra TODOS, assim como um campo tambem no LIST como TODOS vou explicar o porque disto.
Digamos que o usuario só queira filtrar por um dos campos, ou seja, escolher só o que esta na combo1, então o filtro só ocorrerá para a combo1 trazendo todos os dados dos campos das outras duas combos, da mesma forma se o usuario escolher duas ou as três combos então o filtro ocorrerá com os parametros escolhidos. E digamos que o usuario tenha feito um filtro com os tres parametros e depois queira fazer um apenas escolhendo duas combos, então é só desmarcar a que não quer, ou seja colocando esta como TODOS e tera agora um filtro com apenas dois parametros, bom ai vai o codigo faça o teste
 
faça o select de todos os campos deixando o RS carregado, então quando as combos forem escolhidas serão filtrados os campos escolhidos.
 
Private Sub filtros()
Dim strFiltro As String
strFiltro = ""
If Combobox3 <> "TODOS" Then
    strFiltro = strFiltro & IIf(strFiltro <> "", " And ", "") & "solicitante Like '" & Combobox3.Text & "'"
End If
If Combo2 <> "TODOS" Then
    strFiltro = strFiltro & IIf(strFiltro <> "", " And ", "") & "ano Like '" & Combobox2.Text & "'"
End If
If Combobox1 <> "TODOS" Then
    strFiltro = strFiltro & IIf(strFiltro <> "", " And ", "") & "mes Like '" & Combobox1.Text & "'"
End If
rs.Filter = strFiltro
End Sub
 
 
     
walmir35
não registrado
Postada em 15/02/2008 08:15 hs   
Valeu pela ajuda, realmente desta maneira fica bem mais profissional. Vou adptar aqui.
     
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