Clases que no funcionan
Publicado por Oihane (2 intervenciones) el 10/01/2002 14:30:06
Hola vuelvo a escribiros para que me ayudeís, si es posible.
Estamos creando clases en Visual. Con un grupo con otro formulario provamos si las clases funcionan.
Haber si alguién me dice por qué aun diciendome que el procedimientose ha ejecutado correctamente, al final no me borra el registro.
Os escribo el código delafunción borrar:
Public Function borrarcliente(cliente) As Boolean
Dim sqlborrar As String
On Error GoTo problema
sqlborrar = \"delete from Clientes \" & _
\" where IdCliente= \' \" & cliente & \" \' \"
cn.Execute (sqlborrar)
borrarcliente = True
Exit Function
problema:
borrarcliente = False
End Function
Gracias y un saludo a todos.
Estamos creando clases en Visual. Con un grupo con otro formulario provamos si las clases funcionan.
Haber si alguién me dice por qué aun diciendome que el procedimientose ha ejecutado correctamente, al final no me borra el registro.
Os escribo el código delafunción borrar:
Public Function borrarcliente(cliente) As Boolean
Dim sqlborrar As String
On Error GoTo problema
sqlborrar = \"delete from Clientes \" & _
\" where IdCliente= \' \" & cliente & \" \' \"
cn.Execute (sqlborrar)
borrarcliente = True
Exit Function
problema:
borrarcliente = False
End Function
Gracias y un saludo a todos.
Valora esta pregunta
0