hola a todos: miren tengo el siguiente código, donde hay 7 input's donde al salir del último input quiero que me guarde, pero no se como hacerlo porque no lo hace. aqui les envio el código
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim login As String
login = Session("nombre")
If login = "" Then
Response.Status = "401 Prohibido"
Response.End()
Else
Label11.Visible = True
Label11.Text = login
Dim id_paciente As String
id_paciente = Request.QueryString("id_paciente")
Hidden2.Value = id_paciente
Dim conecion3 As SqlConnection
Dim consulta3 As SqlCommand
conecion3 = New SqlConnection("Data Source=URGPEDIATRICA;Initial Catalog=hospital;Persist Security Info=True;User ID=sa;Password=sa")
consulta3 = New SqlCommand("select ae,ap,pp,pt,mn,mnn,hv from form_obs_emb_previos WHERE ID_PACIENTE=@id", conecion3)
consulta3.Parameters.Add("@id", Data.SqlDbType.Int)
consulta3.Parameters("@id").Value = id_paciente
conecion3.Open()
Dim mostrar3 As SqlDataReader = consulta3.ExecuteReader((CommandBehavior.CloseConnection))
While mostrar3.Read()
txt_1.Value = CStr(mostrar3("ae"))
txt_2.Value = CStr(mostrar3("ap"))
txt_3.Value = CStr(mostrar3("pp"))
txt_4.Value = CStr(mostrar3("pt"))
txt_5.Value = CStr(mostrar3("mn"))
txt_6.Value = CStr(mostrar3("mnn"))
txt_7.Value = CStr(mostrar3("hv"))
End While
mostrar3.Close()
conecion3.Close()
If txt_1.Value = "" Then
valida = True
End If
If txt_2.Value = "" Then
valida = True
End If
If txt_3.Value = "" Then
valida = True
End If
If txt_4.Value = "" Then
valida = True
End If
If txt_5.Value = "" Then
valida = True
End If
If txt_6.Value = "" Then
valida = True
End If
If txt_7.Value = "" Then
valida = True
End If
If valida = False Then
btn_ingresar.Visible = False
btn_modificar.Visible = True
Else
btn_ingresar.Visible = True
btn_modificar.Visible = False
End If
txt_7.Attributes.Add("onBlur", "document.location='Embarazos_Previos.aspx?BANDERA=1'")
End If
If Not IsNothing(Request.QueryString("BANDERA")) Then
If valida = False Then
Table9.Visible = False
TABLE5.Visible = True
'Label28.Visible = False
Dim objConn As New OleDbConnection("Provider=SQLNCLI;Server=Urgpediatrica;Database=hospital;Uid=sa;Pwd=sa;")
Dim sSQL, Resul As String
sSQL = "insert into form_obs_emb_previos (ae, ap,pp,pt,mn,mnn,hv,id_paciente) values ('" & txt_1.Value & "','" & txt_2.Value & "','" & txt_3.Value & "','" & txt_4.Value & "','" & txt_5.Value & "','" & txt_6.Value & "','" & txt_7.Value & "','" & Hidden2.Value & "')"
Dim objCmd As New OleDbCommand(sSQL, objConn)
objConn.Open()
Resul = objCmd.ExecuteNonQuery
If Resul Then
Label8.Visible = True
Label8.Text = "(*) Se Ha Agregado Correctamente el Registro"
End If
objConn.Close()
paso = 2
Hidden1.Value = paso
Else
Table9.Visible = True
TABLE5.Visible = False
'Label28.Visible = True
Dim conecion1 As SqlConnection
Dim consulta1 As SqlCommand
conecion1 = New SqlConnection("Data Source=URGPEDIATRICA;Initial Catalog=hospital;Persist Security Info=True;User ID=sa;Password=sa")
consulta1 = New SqlCommand("UPDATE form_obs_emb_previos SET ae = '" + txt_1.Value + "', ap='" + txt_2.Value + "', pp='" + txt_3.Value + "', pt='" + txt_4.Value + "', mn='" + txt_5.Value + "', mnn='" + txt_6.Value + "', hv='" + txt_7.Value + "' WHERE id_paciente = '" + Hidden2.Value + "'", conecion1)
conecion1.Open()
consulta1.ExecuteNonQuery()
Label8.Visible = True
Label8.Text = "(*) Se Han Modificado los Registros"
conecion1.Close()
paso = 2
Hidden1.Value = paso
End If
End If |