Problemas con mis TextBox

10/12/2005 - 06:43 por Daniel H. Villa | Informe spam

Hola:

Tengo un problema serio al momento de insertar registros en una tabla de SQL
Server.

El modo de inserción esta bien, lo estoy haciendo con un stored procedure,
pero el problema, es que no me inserta los valores que tengo en mis textbox.

Al dar en el boton nuevo, me limpia mis textbox, les tecleo los nuevos
valores y al momento de dar boton Aceptar, lo guarda todo OK, pues no ya que
me guarda los valores del primer registro. No me toma los valores que yo
introduzco. Estuve debugeando y hay un momento que antes de ejecutar mi
inserción me toma los valores del primer registro. No se que esta pasando.

Paso parte de mi codigo, estoy trabajando con ASP.Net utilizando VB.Net

Public Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnNuevo.Click

Me.txtAp_Mat.Text = ""

Me.txtAp_Pat.Text = ""

Me.txtLogin.Text = ""

Me.txtNombre.Text = ""

Me.txtPassword.Text = ""

End Sub

Public Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnAceptar.Click

Insert_Usuario()

End Sub

Public Sub Insert_Usuario()

Cmd = New SqlCommand("sp_UsuarioInsert", SqlConnection)

Cmd.CommandType = CommandType.StoredProcedure

' Ap_Pat

Dim pAp_Pat = New SqlParameter("@Ap_Pat", SqlDbType.VarChar)

pAp_Pat.Value = Me.txtAp_Pat.Text

Cmd.Parameters.Add(pAp_Pat)

' Ap_Mat

Dim pAp_Mat = New SqlParameter("@Ap_Mat", SqlDbType.VarChar)

pAp_Mat.Value = Me.txtAp_Mat.Text

Cmd.Parameters.Add(pAp_Mat)

' Nombre

Dim pNombre = New SqlParameter("@Nombre", SqlDbType.VarChar)

pNombre.Value = Me.txtNombre.Text

Cmd.Parameters.Add(pNombre)

' Login

Dim pLogin = New SqlParameter("@Login", SqlDbType.VarChar)

pLogin.Value = Me.txtLogin.Text

Cmd.Parameters.Add(pLogin)

' Password

Dim pPassword = New SqlParameter("@Password", SqlDbType.VarChar)

pPassword.Value = Me.txtPassword.Text

Cmd.Parameters.Add(pPassword)

' ejecuta

Cmd.ExecuteNonQuery()

End Sub

Ojala y alguien encuentre la forma de que me respete la inserción sobre los
textbox que estoy cambiando

Salu2 :-)))

(""'·._.·L.I. Daniel Villa·._.·'"")

Siga el debate

12 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#11 Daniel H. Villa

14/12/2005 - 20:47 | Informe spam

Hola Marckys:

Te refieres que al cargar el load donde incluyo las instrucciones:

Conexion = "Initial Catalog=Agencia;Data Source=dhvilla\misqlserver;user
id=sa;password =pal42pat"

SqlConnection = New SqlConnection(Conexion)

SqlConnection.Open()

Tot_Reg()

Obt_Array()

Cmd = New SqlCommand("Select TOP 1 * FROM tbl_Usuario Order By ID ASC",
SqlConnection)

Muestra_Datos()

Al regresar a mi pagina vuelve a ejecutar la parte de la conexión.

Voy a checar eso despues les aviso

Salu2 :-)))

(""'·._.·L.I. Daniel Villa·._.·'"")

"Marckys" escribió en el mensaje
news:
Mostrar la cita

Responder a este mensaje

#12 Daniel H. Villa

16/12/2005 - 16:48 | Informe spam

Hola:

Ya corregi mi problema, tuve que crear una rutina para cargarla solo una vez

Public Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

'Put user code to initialize the page here

If Not Page.IsPostBack Then

pPosReg = 1

Carga_Conexion()

End If

End Sub

Public Sub Carga_Conexion()

SqlConnection = New SqlConnection(Conexion)

SqlConnection.Open()

Tot_Reg()

Obt_Array()

Cmd = New SqlCommand("Select TOP 1 * FROM tbl_Usuario Order By ID ASC",
SqlConnection)

Muestra_Datos()

End Sub

Public Sub Muestra_Datos()

Dr = Cmd.ExecuteReader()

If Dr.Read = True Then

Me.lblRegistro.Text = "Usuario ID: " & Dr.Item("ID").ToString

Me.txtNombre.Text = Dr.Item("Nombre").ToString

Me.txtAp_Pat.Text = Dr.Item("Ap_Pat").ToString

Me.txtAp_Mat.Text = Dr.Item("Ap_Mat").ToString

Me.txtLogin.Text = Dr.Item("Login").ToString

Me.txtPassword.Text = Dr.Item("Password").ToString

End If

Dr.Close()

End Sub

Gracias por su ayuda

Salu2 :-)))

(""'·._.·L.I. Daniel Villa·._.·'"")

"Daniel H. Villa" escribió en el mensaje
news:%
Mostrar la cita

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2 3

Busqueda sugerida