
31/01/2003, 11:46
|
 | | | Fecha de Ingreso: febrero-2002 Ubicación: Santiago de Chile
Mensajes: 367
Antigüedad: 23 años Puntos: 0 | |
ya corregui el error, coloque el Label1, ahora me da error en esta linea.
Catch e As Exception este es el codigo ahora:
<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
label1.Text="se produjo un error"
Label1.visible=true
Catch e As Exception
'Aqui lo que quieres mostrar al ocurrir el error.
label1.Text="Se produjo un error"
Label1.visible=true
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> |