PESQUISA POR DATA

ELMO01 28/09/2011 10:19:49
#385461
Bom dia a todos

Em meu programa estou tentando fazer uma pesquisa no banco de dados MYSQL por campo tipo DATA, mas não estou conseguindo. Se alguém poder me ajudar ficarei grato. Abaixo a rotina que estou utilizando para a pesquisa


Sub Lista_Dados_Consultas()
Try
Dim ProcList As String
ProcList = [Ô]SELECT * FROM guias_consultas where data_consulta = [ô][Ô] & CDate(Me.Mks_DtCons01.Text) & [Ô][ô][Ô]
Dim NewListas As New ListViewItem
Dim Dr_Listas As MySqlDataReader
Dim Con_Listas As New MySqlConnection(StrServEsc01)
Dim Cmd_Listas As New MySqlCommand(ProcList, Con_Listas)
Con_Listas.Open()
Dr_Listas = Cmd_Listas.ExecuteReader
If Dr_Listas.HasRows Then
ListView1.Items.Clear()
ListView1.View = View.Details
ListView1.FullRowSelect = True
While Dr_Listas.Read
If Dr_Listas.Item([Ô]STATUS[Ô]).ToString = [Ô]V[Ô] Then
NewListas = ListView1.Items.Add(Dr_Listas.Item([Ô]data_consulta[Ô]).ToString)
NewListas.SubItems.Add(Dr_Listas.Item([Ô]hora_consulta[Ô]).ToString)
NewListas.SubItems.Add(Dr_Listas.Item([Ô]matricula_conveniado[Ô]).ToString)
NewListas.SubItems.Add(Dr_Listas.Item([Ô]nome[Ô]).ToString)
NewListas.SubItems.Add(Dr_Listas.Item([Ô]codigo_procedimento[Ô]).ToString)
NewListas.SubItems.Add(Dr_Listas.Item([Ô]procedimento[Ô]).ToString)
End If
End While
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub

Obrigado,
NETMANIA 28/09/2011 10:42:08
#385462 Resposta escolhida
Você quer pesquisar uma data exata ou período?

No caso, esotu enviando um exemplo que o MySQL irá pegar a data que você informou e irá converter para um padrão de Ano/Mes/Dia que ele consiga trabalhar sem erros.
ELMO01 28/09/2011 10:47:21
#385463
NET - obrigado por ter respondido - a pesquisa poderá ser tanto por uma data ou por um período de data
ELMO01 28/09/2011 17:16:49
#385496
NET - faltou o seu exemplo
Tópico encerrado , respostas não são mais permitidas
Voltar