Select - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Select

Aginaldo

JUIZ DE FORA
MG - BRASIL

Postada em 24/06/2006 20:27 hs

Prezados

Preciso selecionar em um DBLIST registros por data, POR EXEMPLO

Tenho uma Tabela com o nome de CPAGAR e o campo da tabela DT_VENCIMENTO

Tenho 2 TEXT um PERIODO INICIAL e outro PERIODO FINAL.

PRECISO SELECIONAR NA TABELA CPAGAR, NO CAMPO DT_VENCIMENTO OS REGISTROS QUE SEJAM MAIOR QUE PERIODO INICIAL e menor que PERIODO FINAL

ATT:

Aginaldo

Shel

GOIÂNIA
GO - BRASIL

Postada em 24/06/2006 20:43 hs

tenta assim:

Private Sub cmdprocessa_Click(Index As Integer)

Dim SQL As String

SQL = "select * CPAGAR where"
SQL = SQL & " and "
SQL = SQL & "[Data Solicitação] Between " & "#" & Format(txtini(0).Text, "mm/dd/yyyy") & "#" & " and " & "#" & Format(txtfinal(1).Text, "mm/dd/yyyy") & "#"

dtaconsulta.RecordSource = SQL

dtaconsulta.Refresh

End Sub

Marcelo

Aginaldo

JUIZ DE FORA
MG - BRASIL

Postada em 24/06/2006 22:11 hs

Teste este que voce mandou mas da erro no codigo,

Shel

GOIÂNIA
GO - BRASIL

Postada em 24/06/2006 22:53 hs

que erro está dando?

Marcelo

LCRamos

GOIANIA
GO - BRASIL

Postada em 26/06/2006 08:47 hs

Tenta assim, mudando o format da data, conforme disse o Shel, mas coloque em uma variavel string

Dim sINICIO As String

Dim sFINAL As String

Dim srDTA As String

Dim sSQL As String

Private sub cmdprocessa_Click(Index As Integer)

srDTA = txtINICIO.Text
sINICIO = INVERDATA(srDTA)
srDTA = txtFINAL.Text
sFINAL = INVERDATA(srDTA)

sSQL = "select * CPAGAR where [Data Solicitação] Between " & sINICIO & " and " & sFINAL
dtaconsulta.RecordSource = sSQL

dtaconsulta.Refresh

End Sub

Função para inverter a Data e colocar "#", pode ser em um módulo, ou private no Form.

Public Function INVERDATA(tDATA As String) As String
Dim tDIA As String
Dim tMES As String
Dim tANO As String
tDIA = Format(Day(tDATA), "00")
tMES = Format(Month(tDATA), "00")
tANO = Format(tDATA, "yyyy")
INVERDATA = "#" + tMES + "/" + tDIA + "/" + tANO + "#"
End Function

vlu//

Página(s): 1/1

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

VOLTAR