Nao Deleta Campo Do Bd Access

[mestre fyoda]

eu fiz assim mas não ta deletando , porque ?

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

eu verifiquei q a variavel exclui_hora imprime a hora escolhida .

então a variavel exclui_hora esta tudo ok .

[mariozneto]

Amigo, tenta fazer assim:

Private Sub ListView_Click()
   retval = Excluir(ListView.SelectedItem)
End Sub

Private Function Excluir(valor As String)
  Dim SQL As String
  SQL = "Delete * from Agendar_Consulta where hora ='" & valor & "'"
  'aqui vai os códigos para executar a linha SQL

End Function

Falow... T+

[mestre fyoda]

deu erro :

Object required

ListView.ListItems.Clear

tá dentro do module , porque ocorre esse erro ? deve ser porque ele não esta no formulario q esta a listview .

como q eu corrigo ?

[mestre fyoda]

já descobri . vlw

mas o problema de deletar ainda não foi resolvido . ele não ta deletando .

se eu colocar o .selecteditem ai da erro , eu tirei mas não ta deletando .

retval = Excluir(ListView.SelectedItem)

[mariozneto]

já descobri . vlw

mas o problema de deletar ainda não foi resolvido . ele não ta deletando .

Poste seu código que você está usando e a string de Conexão!!!!

Falow... T+

[mestre fyoda]

na global

Global cn As ADODB.Connection

Global rs As ADODB.Recordset

Global rs2 As ADODB.Recordset

Global exclui_hora As String

Global agenda As String

Private Sub Main()

Dim strArquivo As String

Dim strLocal As String

Dim Conexao As String

Set cn = New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;" & "Data Source=" & _

App.Path & "\dentista.mdb;"

cn.Open

Agendamento.Show

End Sub

Public Function Cancela_Agendamento(valor As Control)

SQL = "Delete * from Agendar_Consulta where hora ='" & valor & "'"

no formulario

Private Sub Excluir_Click()

retval = Cancela_Agendamento(ListView)

End Sub

[mariozneto]

Está faltando parte na função: Cancela_Agendamento

Poste o resto da função!!!!

Falow... T+

[mestre fyoda]

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 Function

[mestre fyoda]

Moderador ou Administrador , ou alguém que possa , delete esse tópico , porque sem querer coloquei 2 topicos .

Pode deletar esse que no outro tópico já respondi o certo .

caso não dê para deletar , já vai estar ali em baixo 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

[mariozneto]

Conseguiu resolver mestre ????

Falow... T+

[mestre fyoda]

consegui sim .

alguém que tem poder para deletar topicos , pode deletar esse .

Sem querer dupliquei o tópico .