MFerreira
|
BELO HORIZONTE
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 08/04/2005 16:21 hs
Preciso fazer uma consulta por periodo de datas urilizando 02 textbox e um command button. na minha tabela de cadastro de clientes (TblCadastro) tem um campo DataCadastro. Preciso buscar todos os cadastros de um determinado tempo. Ex.: 01/01/2005 a 25/05/05 e exibi-los em um data report. já tentei varias dicas aqui do forum, mas sem sucesso. Se alguem puder me ajudar com uma dica ou um modelo agradeço. Marcelino Neto |
|
|
|
|
|
Jayme
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/04/2005 16:56 hs
MFerreira, Preciso saber que banco de dados você está usando. Jayme |
|
|
|
Snake
|
ITAJUBÁ
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/04/2005 17:02 hs
Use between do Sql. sem mais, |
|
|
|
MFerreira
|
BELO HORIZONTE
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/04/2005 18:03 hs
Jayme, estou usando o BD access 97 e VB6 snake jáutilizei o comando between do sql. |
|
|
|
Maxcim
|
GUARULHOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/04/2005 21:32 hs
use assim... Function Converter_Data_SQL(DATA) As String
Select Case Tipo_Banco
Case 1 ' access
Converter_Data_SQL = "#" & Format(DATA, "MM/DD/YYYY") & "#"
Case 2 ' msde SQL Server
Converter_Data_SQL = "CONVERT(DATETIME, '" & Format(DATA, "yyyy-mm-dd") & "', 102)"
Case 3 ' MySQL
Converter_Data_SQL = " '" & Format(DATA, "yyyy-mm-dd") & "' "
End Select
End Function strData1 = Converter_Data_SQL(txt_data1)
strData2 = Converter_Data_SQL(txt_data2)
sql = "SELECT * FROM TBL_Pedidos WHERE DATA Between " & strData1 & " And " & strData2
|
|
|
|
nadalin
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/04/2005 11:44 hs
usa ai o comando sql mais com um detalhe ----> isso eh errado: sql = "SELECT * FROM TBL_Pedidos WHERE DATA Between " & strData1 & " And " & strData2 ----> certo eh assim: sql = "SELECT * FROM TBL_Pedidos WHERE DATA Between #" & strData1 & "# And #" & strData2 & "#" agora vai dar certo
|
|
|
|
