Eliminar de la Base de Datos, sin que se caiga el programa

fonchi
10 de Febrero del 2006
Tengo el siguiente codigo, pero como lo hago para que no se caiga el programa, si el "usuario" elimina como loco e incluso elimina cuando no hay datos.
debo poner
(Data1.Recordset.EOF<>Data1.Recordset.BOF)
Si es asi, como lo Hago??
Private Sub Command12_Click()

If MsgBox("Eliminar encuesta de: " & Combo1, 16 + 4) = 6 Then

Data1.Recordset.Delete
Data1.Refresh
Combo1.SetFocus

End If
End Sub

mvallejos
10 de Febrero del 2006
Deja de usar los Datas de ADO y se te solucionan todos los problemas. Intenta trabajar con el ANSI SQL

Ejemplo

Dim Sql as String

Sql = "Delete From <Tabla> Where <Condicion>"
Conexion.Execute Sql

Donde Conexion es una variable de tipo ADODB.Connection conectada a tu base de datos.

Saludos