este error sale, aunque se guardan los datos igual, si comento el if error then etc el programa trabaja igual. pero me gustaria saber porque tira el error.
alguien tiene alguna idea?
Private Sub GuardarTextoRico()
Dim r As Result
Dim sql, campos As String
campos = "set textoRico=&1"
sql = "update infoLibro " & campos & " where idLibro=&2"
r = ConexionLibro.Exec(sql, textorico1.TextoRico, idLibro)
If Error Then
Message.Error(Error.Text & " / " & Error.Where & " / " & Error.Code)
Print Error.Text & " / " & Error.Where & " / " & Error.Code
Endif
Catch
Message.Error(Error.Text & gb.NewLine & Error.Where)
End
Dim r As Result
Dim sql, campos As String
campos = "set textoRico=&1"
sql = "update infoLibro " & campos & " where idLibro=&2"
r = ConexionLibro.Exec(sql, textorico1.TextoRico, idLibro)
If Error Then
Message.Error(Error.Text & " / " & Error.Where & " / " & Error.Code)
Print Error.Text & " / " & Error.Where & " / " & Error.Code
Endif
Catch
Message.Error(Error.Text & gb.NewLine & Error.Where)
End