Filtrar data no vb6


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Filtrar data no vb6

Ana Bon
não registrado

ENUNCIADA !

Postada em 09/03/2011 17:14 hs

Olá pessoal boa tarde .....

Tenho um projeto no vb6, que tem uma tela de pesquisa com intervalo de datas, nesta tela tenho um DataGrid, que carrego com um objeto adodc... para selecionar as datas uso dois DTPicker para fazer a consulta uso o segnte codigo:

Adodc1.CommandType = adCmdText
Adodc1.RecordSource =

sNniffer

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 09/03/2011 22:34 hs

Tenta implementar por aqui:

prs.Open "select * from TABELA where Data between '" & txtData.Text & "'and '" & txtData2.Text & "' ", gConexao
                    If prs.EOF = False Then
                            ''FUNÇÃO
                    End If

Feliz aquele que transfere o que sabe e aprende.

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 10/03/2011 09:15 hs

Oi Sniffer vc trabalha em que empresa?

Ana Bon
não registrado

ENUNCIADA !

Postada em 10/03/2011 11:28 hs

Olá sNniffer, bom dia!!!!!

Oque acontece eh eu já tentei imprementar eu ao inves da datagrid coloquei um flexgrid e ao inves do adodc estou preenchendo via codigo... tirei os DTPicker e coloquei dois MaskEdBox.

Estou preenchendo o flexgrid com o codigo:

Private Sub MontarLista()
Dim RS As New ADODB.Recordset
Dim SQL As String
Dim Criterio As String

grddata_venda.TextMatrix(0, 0) = "Data"
grddata_venda.TextMatrix(0, 1) = "Descrição"
grddata_venda.TextMatrix(0, 2) = "Valor_Venda"

Criterio = Chr$(39) & txtinicial & txtfinal & "%" & Chr(39)

SQL = "SELECT data_venda, descrição, totalpreço FROM venda WHERE venda.data_venda Like " & Criterio & " ORDER BY data_venda"

'On Error Resume Next

With RS

.Open SQL, cnSQL, adOpenForwardOnly, adLockReadOnly

If .EOF Then

    MsgBox "Não há venda nesta data!", vbExclamation, "Atenção"

    Limpa
   grddata_venda.TextMatrix(1, 0) = ""
   grddata_venda.TextMatrix(1, 1) = ""
   grddata_venda.TextMatrix(1, 2) = ""

Else

Limpa

    Do Until .EOF

     grddata_venda.AddItem RS(0) & vbTab & RS(1) & vbTab & RS(2)

      .MoveNext
    Loop

    grddata_venda.RemoveItem 1

End If

.Close

End With
End Sub

mas ele continua fazendo consulta apenas da data inicial....

PQ?

Zork

SÃO PAULO
SP - BRASIL

Postada em 10/03/2011 12:56 hs

Ana esta esta faltando no seu SQL o BETWEEN conforme citado pelo sNniffer.

Eu uso aqui a mesma ideia que vc esta usando de 2 DTPicker.

tabela.Open "select b.status,a.nome " _
& "from tbl_cad_asso a " _
& "inner join tbl_taxas b on a.mat_ass = b.mat_ass " _
& "where a.orga = 2105795 and " _
& "b.dtalteracao Between '" & vDataInicial & "' and '" & vDataFinal & "'

Acima o vDataInicial e vDataFinal sao variaveis que eu TRATO vindas de 2 DTPicker.

Esquece essa variavel Criterio sua ..

Página(s): 1/1

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

VOLTAR