excepciones

Geri
02 de Diciembre del 2003
A ver. Estoy intentando hacer un programa de copnsultas a una base de datos, y me interesaría controlar la existencia de un registro en la base de datos mediante excepciones. He buscado por Internet para saber como se hacen las excepciones, lo copio, pero cuando lo ejecuto da un error diciendo que no entiendr el "Try". No sé, tengo que hacer alguna cosa para poder controlar los errores??
Pongo el trocito de código para que lo veáis. Gracias

Private Sub recollir_dades_DB(ByRef BD As Recordset, ByRef DB As Database)
Try
Set DB = OpenDatabase("C:Base Dades ExpedientsGMultes-mir.mdb")
Set BD = DB.OpenRecordset("SELECT * FROM MULTESMIR_B WHERE Expedient_0 = '" & Text_num_expedient_ref.Text & "';")
Catch
MsgBox "ERROR"
EndTry
End Sub

sdemingo
02 de Diciembre del 2003
Hola,

Que yo sepa, el Try Catch es el capturador de errores de Java. Nunca lo he visto en VB6........

La forma de controlar errores es la siguiente (en tu caso)

Private Sub recollir_dades_DB(ByRef BD As Recordset, ByRef DB As Database)
On Error GoTo Error1
Set DB = OpenDatabase("C:Base Dades ExpedientsGMultes-mir.mdb")
Set BD = DB.OpenRecordset("SELECT * FROM MULTESMIR_B WHERE Expedient_0 = '" & Text_num_expedient_ref.Text & "';")
Exit Sub
'ERROR
Error1:
MsgBox "ERROR"
End Sub


Saludos
sdemingo