Ver Mensaje Individual
  #3 (permalink)  
Antiguo 14/07/2004, 20:39
Britny
 
Fecha de Ingreso: julio-2004
Mensajes: 34
Antigüedad: 19 años, 10 meses
Puntos: 0
Como adaptaria yo ese codigo que pusistes, en el mio? porque lo puse por todos lados y me muestra error, primero que "mensaje" no se habia declarado entonces la declare como string, tambien sale error en la parte donde dice 'ha sido enviado' y la verdad no entiendo mucho.
Este es mi codigo donde le doy click al evento de enviar, cuando yo haga click aqui es que yo quiero que me muestre un mensaje como de confirmacion que ha sidio exitoso y tambien que muestre datos de el usuario envio de la base de datos.

Private Sub Aceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Aceptar.Click
If (Page.IsValid) Then
Me.SqlConnection1.Open() 'Abre la conexion para guardar la lectura enviada
Me.SqlDataAdapter1.SelectCommand.Parameters("@iD_O PERADOR").Value = 14
Me.SqlDataAdapter1.SelectCommand.Parameters("@CEDU LA_TRABAJADOR").Value = Me.CEDULA.Text
Me.SqlDataAdapter1.SelectCommand.Parameters("@ID_P RIORIDAD").Value = Me.nIdPrioridad.Text
Me.SqlDataAdapter1.SelectCommand.Parameters("@ID_E STRUCTURA").Value = Me.IdEstructura.Text
Me.SqlDataAdapter1.SelectCommand.Parameters("@ID_G RUPO").Value = Me.TextGrupo.Text
Me.SqlDataAdapter1.SelectCommand.Parameters("@ID_S OLICITUD").Value = Me.IdSolicitud.Text
Me.SqlDataAdapter1.SelectCommand.Parameters("@ID_I MPACTO").Value = Me.nIdImpacto.Text
Me.SqlDataAdapter1.SelectCommand.Parameters("@ID_U RGENCIA").Value = Me.ID_URGENCIA.Text
Me.SqlDataAdapter1.SelectCommand.Parameters("@ESTA TUS_CASO").Value = 1
Me.SqlDataAdapter1.SelectCommand.Parameters("@ID_T ECNICO").Value = 1
Me.SqlDataAdapter1.SelectCommand.Parameters("@INFO RMACION_USUARIO").Value = Me.TextBox13.Text
Me.SqlDataAdapter1.SelectCommand.ExecuteReader()
If Me.SqlDataAdapter1.SelectCommand.Parameters("@RETU RN_VALUE").Value = 0 Then
txtnoti.Text = "envio exitoso"
Else
txtnoti.Text = "envio no exitoso"
End If
Validate()
If IsValid Then
CATEGORIA.Text = ""
REQUERIMIENTO.Text = ""
DESCRIPCION.Text = ""
Urgencia.Text = ""
IMPACTO.Text = ""
TextBox13.Text = ""
End If
Me.SqlConnection1.Close()
End If
End Sub

Última edición por Britny; 16/07/2004 a las 23:50