SIMPLIFICAR FUNCAO

CAIO.FR.SP 23/08/2009 22:48:09
#320735
Galera fiz uma função de consulta aqui, ela ta funcionado normalmente, mais para que ele desce certo tive q criar uma tabela no db so para receber os dados temporariamente, antes de gerar o reatorio, logo depois de sair do relatorio osa dados nelas sao apagados. queria saber se existe alhguma outra forma de fazer essa função sem o uso da tabela. abaixo a função. quem quizer pode alterar onde quiser a mesma.

  Private Sub Consulta_mes()
    Dim mes As Integer, dat As Date
    limpa_lista
    mes = cmbmes.ListIndex + 1
    apagar_tudo ([Ô]tempcaixa[Ô])
    For i = 1 To 31
        If Not IsDate(i & [Ô]/[Ô] & mes & [Ô]/[Ô] & UpDown1.Value) Then
            GoTo proximo
        Else
            dat = i & [Ô]/[Ô] & mes & [Ô]/[Ô] & UpDown1.Value
        End If
        If Len(txt_procurar.Text) > 0 Then
            With cmd_conexao
                .ActiveConnection = conexao
                .CommandType = adCmdText
                .CommandText = [Ô]Select * From caixa where data = [ô][Ô] & dat & [Ô][ô]  AND obs like [ô]%[Ô] & Trim(txt_procurar.Text) & [Ô]%[ô];[Ô]
                Set rst_conexao = .Execute
            End With
        Else
            With cmd_conexao
                .ActiveConnection = conexao
                .CommandType = adCmdText
                .CommandText = [Ô]Select * From caixa where data = [ô][Ô] & dat & [Ô][ô];[Ô]
                Set rst_conexao = .Execute
            End With
        End If
        Do While Not rst_conexao.EOF
            Set LST = List.ListItems.Add
            With LST
                lbltrans.Caption = Val(lbltrans.Caption) + 1
                .Text = rst_conexao!contcai
                .SubItems(1) = rst_conexao!obs
                .SubItems(2) = rst_conexao!Valor
                Dim cai As String, ob As String, vl As String
                ca = rst_conexao!contcai
                ob = rst_conexao!obs
                vl = rst_conexao!Valor
            End With
            With cmd_conexao
                .ActiveConnection = conexao
                .CommandType = adCmdText
                .CommandText = [Ô]Insert Into tempcaixa (data, contcai, obs, valor) values ([ô][Ô] & dat & [Ô][ô],[ô][Ô] & ca & [Ô][ô],[ô][Ô] & ob & [Ô][ô],[ô][Ô] & vl & [Ô][ô]);[Ô]
                .Execute
            End With
            rst_conexao.MoveNext
        Loop
proximo:
    Next
    total
    With cmd_conexao
        .ActiveConnection = conexao
        .CommandType = adCmdText
        .CommandText = [Ô]Select * From tempcaixa;[Ô]
        Set rst_conexao = .Execute
    End With
    If LVZebra(List, Picture1, vbWhite, vbYellow) = False Then Exit Sub
End Sub
WEBMASTER 24/08/2009 12:50:41
#320791
Se voce criar uma view/consulta e so passar os parametros, e apontar o report para ela ?
CAIO.FR.SP 24/08/2009 13:35:41
#320808
sinceramente nem sei como fazer isso. como passo as opções para a consulta. tipo entre datas e um paramento. como esta nessa funçao?
Tópico encerrado , respostas não são mais permitidas
Voltar