Cita:
Porfavor necesito salir de esa duda si alguien pueda ayudarme que DIGA YO jejeje .. muxaz gracuas Dim conex As New Conexion
Dim sql1 As New SqlCommand
Dim sexo As String
Dim distrito As String
Dim gradito As String
Dim seccion As String
Dim a As Integer
sql1.CommandText = "pa_ModificarAlumno"
sql1.CommandType = Data.CommandType.StoredProcedure
sql1.Parameters.Add("@IdAlumno", Data.SqlDbType.VarChar, 6).Value = Request.QueryString.Get("txtbuscar")
sql1.Parameters.Add("@Codigito", Data.SqlDbType.VarChar, 50).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@NombresA", Data.SqlDbType.VarChar, 50).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@ApellidoP", Data.SqlDbType.VarChar, 20).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@ApellidoM", Data.SqlDbType.VarChar, 20).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@Sexo", Data.SqlDbType.VarChar, 10).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@fechaN", Data.SqlDbType.DateTime).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@telefono", Data.SqlDbType.VarChar, 25).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@distrito", Data.SqlDbType.VarChar, 30).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@direccion", Data.SqlDbType.VarChar, 50).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@email", Data.SqlDbType.VarChar, 50).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@usuario", Data.SqlDbType.VarChar, 10).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@gradito", Data.SqlDbType.VarChar, 10).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@seccion", Data.SqlDbType.VarChar, 10).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@sw", Data.SqlDbType.Int).Direction = Data.ParameterDirection.Output
sql1.Connection = conex.cnn
conex.conexionbd()
sql1.ExecuteNonQuery()
a = sql1.Parameters.Item(14).Value
If a > 0 Then
lblEstado.Text = "<img src=Images/user_accept.png border=0>Usuario Encontrado"
Me.txtcodigito.Text = sql1.Parameters.Item(1).Value
Me.txtnombre.Text = sql1.Parameters.Item(2).Value
Me.txtapep.Text = sql1.Parameters.Item(3).Value
Me.txtapem.Text = sql1.Parameters.Item(4).Value
sexo = sql1.Parameters.Item(5).Value
If (sexo = "Masculino") Then
CheckBox1.Checked = True
CheckBox2.Checked = False
Else
CheckBox1.Checked = False
CheckBox2.Checked = True
End If
Me.date_field.Text = sql1.Parameters.Item(6).Value
Me.txtfono.Text = sql1.Parameters.Item(7).Value
distrito = sql1.Parameters.Item(8).Value
dwdistrito.SelectedValue = distrito
Me.txtdireccion.Text = sql1.Parameters.Item(9).Value
Me.txtemail.Text = sql1.Parameters.Item(10).Value
Me.txtusuario.Text = sql1.Parameters.Item(11).Value
gradito = sql1.Parameters.Item(12).Value
dwgrado.SelectedValue = gradito
seccion = sql1.Parameters.Item(13).Value
dwseccion.SelectedValue = seccion
Else
lblEstado.Text = "<img src=Images/icon_error.png border=0>Usuario No Encontrado"
limpiar()
End If
Dim sql1 As New SqlCommand
Dim sexo As String
Dim distrito As String
Dim gradito As String
Dim seccion As String
Dim a As Integer
sql1.CommandText = "pa_ModificarAlumno"
sql1.CommandType = Data.CommandType.StoredProcedure
sql1.Parameters.Add("@IdAlumno", Data.SqlDbType.VarChar, 6).Value = Request.QueryString.Get("txtbuscar")
sql1.Parameters.Add("@Codigito", Data.SqlDbType.VarChar, 50).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@NombresA", Data.SqlDbType.VarChar, 50).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@ApellidoP", Data.SqlDbType.VarChar, 20).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@ApellidoM", Data.SqlDbType.VarChar, 20).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@Sexo", Data.SqlDbType.VarChar, 10).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@fechaN", Data.SqlDbType.DateTime).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@telefono", Data.SqlDbType.VarChar, 25).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@distrito", Data.SqlDbType.VarChar, 30).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@direccion", Data.SqlDbType.VarChar, 50).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@email", Data.SqlDbType.VarChar, 50).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@usuario", Data.SqlDbType.VarChar, 10).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@gradito", Data.SqlDbType.VarChar, 10).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@seccion", Data.SqlDbType.VarChar, 10).Direction = Data.ParameterDirection.Output
sql1.Parameters.Add("@sw", Data.SqlDbType.Int).Direction = Data.ParameterDirection.Output
sql1.Connection = conex.cnn
conex.conexionbd()
sql1.ExecuteNonQuery()
a = sql1.Parameters.Item(14).Value
If a > 0 Then
lblEstado.Text = "<img src=Images/user_accept.png border=0>Usuario Encontrado"
Me.txtcodigito.Text = sql1.Parameters.Item(1).Value
Me.txtnombre.Text = sql1.Parameters.Item(2).Value
Me.txtapep.Text = sql1.Parameters.Item(3).Value
Me.txtapem.Text = sql1.Parameters.Item(4).Value
sexo = sql1.Parameters.Item(5).Value
If (sexo = "Masculino") Then
CheckBox1.Checked = True
CheckBox2.Checked = False
Else
CheckBox1.Checked = False
CheckBox2.Checked = True
End If
Me.date_field.Text = sql1.Parameters.Item(6).Value
Me.txtfono.Text = sql1.Parameters.Item(7).Value
distrito = sql1.Parameters.Item(8).Value
dwdistrito.SelectedValue = distrito
Me.txtdireccion.Text = sql1.Parameters.Item(9).Value
Me.txtemail.Text = sql1.Parameters.Item(10).Value
Me.txtusuario.Text = sql1.Parameters.Item(11).Value
gradito = sql1.Parameters.Item(12).Value
dwgrado.SelectedValue = gradito
seccion = sql1.Parameters.Item(13).Value
dwseccion.SelectedValue = seccion
Else
lblEstado.Text = "<img src=Images/icon_error.png border=0>Usuario No Encontrado"
limpiar()
End If