31/01/2003, 11:30
|
 | | | Fecha de Ingreso: febrero-2002 Ubicación: Santiago de Chile
Mensajes: 367
Antigüedad: 23 años Puntos: 0 | |
| Bueno lo pobre, lo corregi, y me dice:
LÃ_nea 14: 'Aqui escribes el codigo que PUEDE producir error
LÃ_nea 15: resul= objCmd.ExecuteNonQuery
LÃ_nea 16: message.show("Registro Insertado") <-- aca
LÃ_nea 17: Catch e As Exception
LÃ_nea 18: 'Aqui lo que quieres mostrar al ocurrir el error.
y este es el codigo:
<HTML>
<script runat="server">
Sub addusu_click(obj As object, e As eventargs)
if ispostback() then
Dim objConn As New OleDbConnection ("Provider=MSDAORA.1;Password=clcabrer;User ID=clcabrer;Data Source=ccabrera")
Dim sSQL, Resul as string
sSQL = "Insert into usu (USUARIO,PASSWORD) values ('" & login.text & "','" & password.text & "')"
Dim objCmd As New OleDbCommand (sSQL, objConn)
objConn.open
try
'Aqui escribes el codigo que PUEDE producir error
resul= objCmd.ExecuteNonQuery
message.show("Registro Insertado")
Catch e As Exception
'Aqui lo que quieres mostrar al ocurrir el error.
messagebox.show("se produjo un error")
Finally
'Aqui pones lo que siempre se ejecutara no importando si hubo o no un error
objConn.close
End Try
End if
End sub
</script> |