[Resolvido] Condição no filtro WHERE

[Alex C. M. Munhoz 0]

Ola amigos do fórum, estou fazendo um programa para minha escola e preciso de uma grande ajuda.

No controle de horário tenho a seguinte condição.

 

Ex:

 

sSQL = ""
sSQL = sSQL & " SELECT HorarioID, AlunoID,                          "
sSQL = sSQL & "        (SELECT Nome FROM cad_cliente WHERE cad_cliente.clienteID = cad_horarios.alunoID) as Nome, "
sSQL = sSQL & "        Dia, Hora, kit, Curso, Sala, Tipo            "
sSQL = sSQL & " FROM cad_Horarios                                   "
sSQL = sSQL & " WHERE Unidade = " & stUnidade & "                   "

If Not cmbDia.Text = "Todos" Then
    sSQL = sSQL & " AND Dia = '" & cmbDia.Text & "'                "
End If

If Not cmbHora.Text = "Todos" Then
      sSQL = sSQL & " AND Hora = '" & cmbHora.Text & "'            "
End If
sSQL = sSQL & " ORDER BY OrdemDia, HORA, Nome ASC                   "

 

até aqui ta tudo certo funciona bem, mas preciso que faça o filtro com a seguinte condição.

Quanto tiver cadastrado uma reposição por exemplo será em um determinado dia da semana, quero que ela só apareça quando eu

selecionar o dia no DataTimePicker.

 

os valor do campo DiaCurso para esse filtro é: fixo usa o valor 0000-00-00, Flexivel ou reposição a data do agendamento ex: 2012-03-27.

 

bem acho que é isso.

[Alex C. M. Munhoz 0]

Ola amigos do fórum, estou fazendo um programa para minha escola e preciso de uma grande ajuda.

No controle de horário tenho a seguinte condição.

 

Ex:

 

sSQL = ""
sSQL = sSQL & " SELECT HorarioID, AlunoID,                          "
sSQL = sSQL & "        (SELECT Nome FROM cad_cliente WHERE cad_cliente.clienteID = cad_horarios.alunoID) as Nome, "
sSQL = sSQL & "        Dia, Hora, kit, Curso, Sala, Tipo            "
sSQL = sSQL & " FROM cad_Horarios                                   "
sSQL = sSQL & " WHERE Unidade = " & stUnidade & "                   "

If Not cmbDia.Text = "Todos" Then
    sSQL = sSQL & " AND Dia = '" & cmbDia.Text & "'                "
End If

If Not cmbHora.Text = "Todos" Then
      sSQL = sSQL & " AND Hora = '" & cmbHora.Text & "'            "
End If
sSQL = sSQL & " ORDER BY OrdemDia, HORA, Nome ASC                   "

 

até aqui ta tudo certo funciona bem, mas preciso que faça o filtro com a seguinte condição.

Quanto tiver cadastrado uma reposição por exemplo será em um determinado dia da semana, quero que ela só apareça quando eu

selecionar o dia no DataTimePicker.

 

os valor do campo DiaCurso para esse filtro é: fixo usa o valor 0000-00-00, Flexivel ou reposição a data do agendamento ex: 2012-03-27.

 

bem acho que é isso.

 

Ola galera solução simples, bem mais simples que eu tava pensando. segue a query para quem tem um melhor entendimento.

 

sSQL = ""
sSQL = sSQL & " SELECT HorarioID, AlunoID,                          "
sSQL = sSQL & "        (SELECT Nome FROM cad_cliente WHERE cad_cliente.clienteID = cad_horarios.alunoID) as Nome, "
sSQL = sSQL & "        Dia, Hora, kit, Curso, Sala, Tipo            "
sSQL = sSQL & " FROM cad_Horarios                                   "
sSQL = sSQL & " WHERE Unidade = " & stUnidade & "                   "
If Not cmbDia.Text = "Todos" Then
    sSQL = sSQL & " AND Dia = '" & cmbDia.Text & "'                "
End If
If Not cmbHora.Text = "Todos" Then
      sSQL = sSQL & " AND Hora = '" & cmbHora.Text & "'            "
End If
sSQL = sSQL & "     AND CASE "
sSQL = sSQL & "             WHEN Tipo <> 'Fixo' Then DiaMarcado = '" & Dia_Curso & "'    "
sSQL = sSQL & "             WHEN Tipo = 'Fixo' Then DiaMarcado = '0000-00-00'            "
sSQL = sSQL & "         END                                         "
sSQL = sSQL & " ORDER BY OrdemDia, HORA, Nome ASC                   "