Pq Nao Esta Deletando

[mestre fyoda]

não apresenta nenhum erro , simplismente não deleta .

porque isso ocorre ?

Private Sub ListView_Click()

exclui_hora = ListView.SelectedItem

End Sub

Private Sub Excluir_Click()

deleta = " Delete * from Agendar_Consulta where hora = '" & exclui_hora & "' "

End Sub

[mariozneto]

Amigo, bom dia!!!! Acho que você duplicou o Tópico, logo abaixo tem um tópico igualzinho!!!!

Falow... T+

[Graymalkin]

não apresenta nenhum erro , simplismente não deleta .

porque isso ocorre ?

Private Sub ListView_Click()

exclui_hora = ListView.SelectedItem

End Sub

Private Sub Excluir_Click()

deleta = " Delete * from Agendar_Consulta where hora = '" & exclui_hora & "' "

End Sub

Porque você *não* está mandando deletar... Você cria a instrução SQL ali certinha, mas onde você manda *executar* ela?

Abraços,

Graymalkin

[mestre fyoda]

pode trancar .

ai vai a resolução do problema

Public Sub Cancela_Agendamento(Formulario As Form)

valor = Agendamento.ListView.SelectedItem

SQL = cn.Execute("Delete * from Agendar_Consulta where hora ='" & valor & "'")

Agendamento.ListView.ListItems.Clear

Set rs = cn.Execute(" Select  * from Agendar_Consulta where DateValue(data) = DateValue('" & Date & "') ORDER BY hora ASC  ")

Set rs2 = cn.Execute(" Select * from Hora ")

    While Not rs.EOF And Not rs2.EOF

       

          If rs.Fields("hora").Value = rs2.Fields("hora").Value Then

          Set item = Agendamento.ListView.ListItems.Add(, , rs("hora"))

          item.ListSubItems.Add , , rs("nom_pac")

          item.ListSubItems.Add , , rs("data")

          item.ListSubItems.Add , , rs("tel_res")

          item.ListSubItems.Add , , rs("tel_com")

          rs.MoveNext

          rs2.MoveNext

         

          Else

 

          Set item = Agendamento.ListView.ListItems.Add(, , rs2("hora"))

          rs2.MoveNext

          End If

        Wend

       

      While Not rs2.EOF

    Set item = Agendamento.ListView.ListItems.Add(, , rs2("hora"))

          rs2.MoveNext

        Wend

End Sub

Private Sub Excluir_Click()

Call Cancela_Agendamento(Agendamento)

End Sub