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
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
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