Rondo
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 27/06/2008 22:59 hs
ou da mas eu não sei....
código:
Dim sINICIO As String
Dim sFINAL As String
sINICIO = "#" & Format$(Txt_Data1.Text, "yyyy/mm/dd") & "#"
sFINAL = "#" & Format$(Txt_Data2, "yyyy/mm/dd") & "#"
sql = "select Código,Cliente,paciente,guia,produto1,produto2,total,"
sql = sql & "andamento,data_entr,Data_Saida FROM Hist_Trab Where data_Entr Between " & sINICIO & " And " & sFINAL
sql = sql & " And Data_saida Between " & sINICIO & " And " & sFINAL
Set Tb = Banco.OpenRecordset(sql)
List1.ListItems.Clear
While Not Tb.EOF
Set Lista = List1.ListItems.Add(, , Tb!Código)
Lista.SubItems(1) = Tb!Cliente
Lista.SubItems(2) = Tb!paciente
Lista.SubItems(3) = Tb!guia
Lista.SubItems(4) = Tb!Produto1
Lista.SubItems(5) = Tb!Produto2
Lista.SubItems(6) = Tb!Total
Lista.SubItems(7) = Tb!Andamento
Lista.SubItems(8) = Tb!Data_Entr
Lista.SubItems(9) = Tb!data_Saida
Tb.MoveNext
Wend
End If
então, tenho dois campos dats( data entrada) e (Data saida)
nesta consulta que eu fiz só seleciona as datas de ( Data saida)
eu eu gostaria de visualizar todos,,, de (entrada) e (saida) do mes...
como eu faço isto?
valew.
|
|
|
|
|
|
Donkey
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/06/2008 10:03 hs
Pq ta usando o formato yyyy/mm/dd ?
Se não me engano o access funciona com mm/dd/yyyy
Não conheço nenhum banco que funcione com o ano no inicio, geralmente ou é o mes ou o dia.
T+
|
|
|
|
ArtSoft
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/06/2008 15:51 hs
Utilize apostrofe antes dos #....ira funcionar, ex.: sINICIO = " '#" & Format$(Txt_Data1.Text, "yyyy/mm/dd") & "#' "
sFINAL = "' #" & Format$(Txt_Data2, "yyyy/mm/dd") & "#' "
Alexandre Costa
ArtSoftSystems
Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br
|
|
|
|
Roßerto
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/06/2008 16:26 hs
Na sua sql só irá mostrar se as duas condicionais forem VERDADEIRAS. sql = "select Código,Cliente,paciente,guia,produto1,produto2,total,"
sql = sql & "andamento,data_entr,Data_Saida FROM Hist_Trab Where data_Entr Between " & sINICIO & " And " & sFINAL
sql = sql & " OR Data_saida Between " & sINICIO & " And " & sFINAL
Agora irá mostrar qualquer registro desde que qualquer uma das condicionais forem VERDADEIRAS. |
|
TÓPICO EDITADO
|
|
|
|
|
