Controlando A Resposta De Uma Consulta

[Señor Smoke]

Olá

Quando eu faço um exlcusão pelo VB, eu gostaria que se caso o registro não fosse econtrado, um aviso fosse exibido na tela. Não sei como posso fazer isso já que a instrução SQL é executada pelo objeto Con.

alguém pode me dizer o que devo fazer...

Private Sub Command1_Click()
SQL = "delete COBILLING_BLOQUEIOS where DDD_Terminal = '" & dddterm.Text & "' AND DDD = '" & ddd.Text & "'  "
Con.Execute SQL
MsgBox "Registro excluído com sucesso "
End Sub 

[fercosmig]

Private Sub Command1_Click()

SQL = "Select * from COBILLING_BLOQUEIOS where DDD_Terminal = '" & dddterm.Text & "' AND DDD = '" & ddd.Text & "'  "

Set Rs=Con.Execute SQL

If Rs.BOF and Rs.EOF Then

MsgBox "Registro não encontrado"

Else

SQL = "delete COBILLING_BLOQUEIOS where DDD_Terminal = '" & dddterm.Text & "' AND DDD = '" & ddd.Text & "'  "

Con.Execute SQL

MsgBox "Registro excluído com sucesso "

End If

End Sub

faz +- assim

abraço

[Señor Smoke]

Quando eu coloco:

Set Rs=Con.Execute SQL

Dá erro, o vb marca a linha de vermelho.

[fercosmig]

você tem que criar o objeto

Set Rs=CreateObject("ADODB.Recordset")

[Señor Smoke]

Já tá criado, tá declarado como global no modulo.

[Señor Smoke]

alguém tem outra sugestao?

Sou todo ouvidos

Acho que seria algum metodo do objeto Con.

Mas qual?

[kuroi]

faltou parenteses

Set Rs = Con.Execute(SQL)