fazer consulta, combo


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: fazer consulta, combo

Edson479

SÃO PAULO
SP - BRASIL

Postada em 24/05/2007 11:20 hs

olha eu dinovo, com consulta

estou carregando o meu combo assim
...
    bd_Funcionario.Open "funcionario", cnn, 1, 3
    While (bd_Funcionario.EOF = False)
        Combo1.AddItem bd_Funcionario.Fields("bd_ape")
        bd_Funcionario.MoveNext
    Wend
    bd_Funcionario.Close

tem como eu cologar uma palavra na 1ª linha exp."Todos"

no combo1

Todos

funcionarios001

funcionarios002

...

e fazer consulta com todo o funcionarios

a minha consulta esta assim

com nome "funcionarios" e dia "DE" / "ATE" esta certinho mais tem como chama todos os funcionarios "Todos"

    On Error Resume Next
    Dim Sql As String
    Dim DataInicial As String
    Dim DataFinal As String

verifica_rs

    DataInicial = Format(actDataInicial.Value, "dd/mm/yyyy")
    DataFinal = Format(actDataFinal.Value, "dd/mm/yyyy")

    Sql = "SELECT * FROM entrega WHERE bd_004= '" & Combo1.Text & "' and bd_002 BETWEEN #" & DataInicial & "# AND #" & DataFinal & "#" & "order by bd_001"
    bd_Entregador.Open Sql, cnn, adOpenKeyset, adLockOptimistic

    preenche_lista

ArtSoft

SAO PAULO
SP - BRASIL

Postada em 24/05/2007 11:40 hs

bd_Funcionario.Open "funcionario", cnn, 1, 3

'------------------------------------------------
'Limpa a combo e Adiciona a palavra "Todos"

combo1.clear
combo1.AddItem "Todos"

'-----------------------------------------------

    While (bd_Funcionario.EOF = False)
        Combo1.AddItem bd_Funcionario.Fields("bd_ape")
        bd_Funcionario.MoveNext
    Wend
    bd_Funcionario.Close

    On Error Resume Next
    Dim Sql As String
    Dim DataInicial As String
    Dim DataFinal As String

    verifica_rs

    DataInicial = Format(actDataInicial.Value, "dd/mm/yyyy")
    DataFinal = Format(actDataFinal.Value, "dd/mm/yyyy")

   '------------------------------------------------

if Combo1.Text = "Todos" then

         Sql = "SELECT * FROM entrega WHERE bd_002 BETWEEN #" &                  DataInicial & "# AND #" & DataFinal & "#" & "order by bd_001"
    else
         Sql = "SELECT * FROM entrega WHERE bd_004= '" & Combo1.Text &          "' and bd_002 BETWEEN #" & DataInicial & "# AND #" & DataFinal          & "#" & "order by bd_001"
    end if

Sql = "SELECT * FROM entrega WHERE bd_004= '" & Combo1.Text & "' and bd_002 BETWEEN #" & DataInicial & "# AND #" & DataFinal & "#" & "order by bd_001"

    '------------------------------------------------------

    bd_Entregador.Open Sql, cnn, adOpenKeyset, adLockOptimistic

    preenche_lista

Alexandre Costa
ArtSoftSystems
Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br

ArtSoft

SAO PAULO
SP - BRASIL

Postada em 24/05/2007 11:41 hs

ERRATA

bd_Funcionario.Open "funcionario", cnn, 1, 3

'------------------------------------------------
'Limpa a combo e Adiciona a palavra "Todos"

combo1.clear
combo1.AddItem "Todos"

'-----------------------------------------------

    While (bd_Funcionario.EOF = False)
        Combo1.AddItem bd_Funcionario.Fields("bd_ape")
        bd_Funcionario.MoveNext
    Wend
    bd_Funcionario.Close

    On Error Resume Next
    Dim Sql As String
    Dim DataInicial As String
    Dim DataFinal As String

    verifica_rs

    DataInicial = Format(actDataInicial.Value, "dd/mm/yyyy")
    DataFinal = Format(actDataFinal.Value, "dd/mm/yyyy")

   '------------------------------------------------

if Combo1.Text = "Todos" then

    '------------------------------------------------------

    bd_Entregador.Open Sql, cnn, adOpenKeyset, adLockOptimistic

    preenche_lista

Alexandre Costa
ArtSoftSystems
Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br

Edson479

SÃO PAULO
SP - BRASIL

Postada em 24/05/2007 11:57 hs

não, eu acho que explique errodo
exp..
tenho este funcionarios

no combo1

funcionarios1

funcionarios2
funcionarios3

funcionarios4

......

ate ai esta certo
so que eu queria fazer assim

no combo ele tazer tambem a palavra "Todos" no combo junto com a lista de funcionarios

"Todos"

funcionarios1

funcionarios2
funcionarios3

funcionarios4

......

e quando e selecionar todos tem que trazer dos os funcionarios

Public Sub preenche_lista()
    On Error Resume Next
    Dim soma As Currency
    ListaAlunos.ListItems.Clear
    soma = 0

    If bd_Viagem.RecordCount = 0 Then
        Label1.Caption = Moeda(soma)
        lbl_Venda.Caption = Format(bd_Viagem.RecordCount, "#####00000")
    Else
        While Not bd_Viagem.EOF
            Set lst = ListaAlunos.ListItems.Add(, , bd_Viagem(0))
            lst.SubItems(1) = bd_Viagem(1)
            lst.SubItems(2) = bd_Viagem(3)
            soma = soma + CCur(lst.SubItems(2))
            bd_Viagem.MoveNext
        Wend
        Label1.Caption = Moeda(soma)
        lbl_Venda.Caption = Format(bd_Viagem.RecordCount, "#####00000")
    End If

End Sub

ele tem que trazer todos os funcionario em ListView

Edson479

SÃO PAULO
SP - BRASIL

Postada em 24/05/2007 12:11 hs

desculpa, deu certo so como eu faço pra ele carregar "Todos" jundo com a lista de funzionario, deu mais tenho que escrever "Todos" no combo

...

que eu sou de faga pra entender, rsrsrsrs

ArtSoft

SAO PAULO
SP - BRASIL

Postada em 24/05/2007 12:37 hs

Antes de vc carregar os funcionarios adicione na COMBO a palavra TODOS, exemplo :

bd_Funcionario.Open "funcionario", cnn, 1, 3

'------------------------------------------------
'Limpa a combo e Adiciona a palavra "Todos"

combo1.clear
combo1.AddItem "Todos"

'-----------------------------------------------

    While (bd_Funcionario.EOF = False)
        Combo1.AddItem bd_Funcionario.Fields("bd_ape")
        bd_Funcionario.MoveNext
    Wend
    bd_Funcionario.Close

DESTA MANEIRA VC NÃO PRECISA ESCREVER A PALAVRA "TODOS" POIS JÁ ESTARA NA COMBO, ENTENDEU ?

Alexandre Costa
ArtSoftSystems
Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR