Problemas de inserción de Datos y ASP.net

04/04/2007 - 11:42 por Claudio S | Informe spam
Hola a toda la comunidad, hace un buen tiempo llevo probando ingresar datos
en una bdd a través de vb y asp.net, sin embargo, no he podido por ABC
motivo, vi el tema e intenté acomodarlo según mis necesidades, sin embargo,
si bien ahora no hay error con el comando nonquery, ahora simplemente no hace
nada, si bien corre la pagina sin problema cuando hago click en el boton, no
guarda los datos en la base
quisiera pedirles que me ayuden en esto porfavor, desde ya muchas gracias a

Codigo 1: no hay errores de programación, sin embargo, no guarda en base de
datos, y se dispara el msgbox de error.
Protected Sub btnAgregar_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnAgregar.Click

Dim cnn As New SqlConnection(Me.SqlNotificacion.ConnectionString)
Dim cmd As New SqlCommand()


cmd.Connection = cnn

cmd.CommandText = "Insert Into Notificaciones(IdNotificacion,
FechaNotificacion, ReceptorNotificacion, ComentarioNotificacion, RutCliente)
Values (@txtNotificacion, @txtFechaNotificacion,@txtReceptor, @txtComentario,
@txtBuscar)"
cmd.Parameters.Add("txtFechaNotificacion", SqlDbType.DateTime)
cmd.Parameters.Add("txtReceptor", SqlDbType.VarChar)
cmd.Parameters.Add("txtComentario", SqlDbType.VarChar)
cmd.Parameters.Add("txtBuscar", SqlDbType.VarChar)
cmd.Parameters.Add("txtNotificacion", SqlDbType.VarChar)

cmd.Parameters("txtFechaNotificacion").Value = Me.txtFecha.Text
cmd.Parameters("txtReceptor").Value = Me.txtReceptor
cmd.Parameters("txtComentario").Value = Me.txtComentario
cmd.Parameters("txtBuscar").Value = Me.txtBuscar
cmd.Parameters("txtNotificacion").Value = Me.txtNotificacion.Text

Try
cnn.Open()
cmd.ExecuteNonQuery()
cnn.Close()
MsgBox("datos ingresado")

Catch ex As Exception
Finally
cnn.Close()
MsgBox("ERROR")

End Try

End Sub
 

Leer las respuestas

#1 Jorgebg
08/04/2007 - 00:00 | Informe spam
Hola Claudio,
El problema que encuentro es que el nombre de los parametros debería incluir
el "@", por ejemplo: "@txtFechaNotificacion".
Por otro lado, el bloque try...catch...finally no está bien redactado.
Tienes que tener en cuenta que el bloque finally se ejecuta
independientemente si hay error en el bloque try o no, por lo que, en el caso
de que se ejecute correctamente, estarías cerrando 2 veces la conección.

Saludos,

Jorgebg - MCSD.NET


"Claudio S" wrote:

Hola a toda la comunidad, hace un buen tiempo llevo probando ingresar datos
en una bdd a través de vb y asp.net, sin embargo, no he podido por ABC
motivo, vi el tema e intenté acomodarlo según mis necesidades, sin embargo,
si bien ahora no hay error con el comando nonquery, ahora simplemente no hace
nada, si bien corre la pagina sin problema cuando hago click en el boton, no
guarda los datos en la base
quisiera pedirles que me ayuden en esto porfavor, desde ya muchas gracias a

Codigo 1: no hay errores de programación, sin embargo, no guarda en base de
datos, y se dispara el msgbox de error.
Protected Sub btnAgregar_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnAgregar.Click

Dim cnn As New SqlConnection(Me.SqlNotificacion.ConnectionString)
Dim cmd As New SqlCommand()


cmd.Connection = cnn

cmd.CommandText = "Insert Into Notificaciones(IdNotificacion,
FechaNotificacion, ReceptorNotificacion, ComentarioNotificacion, RutCliente)
Values (@txtNotificacion, @txtFechaNotificacion,@txtReceptor, @txtComentario,
@txtBuscar)"
cmd.Parameters.Add("txtFechaNotificacion", SqlDbType.DateTime)
cmd.Parameters.Add("txtReceptor", SqlDbType.VarChar)
cmd.Parameters.Add("txtComentario", SqlDbType.VarChar)
cmd.Parameters.Add("txtBuscar", SqlDbType.VarChar)
cmd.Parameters.Add("txtNotificacion", SqlDbType.VarChar)

cmd.Parameters("txtFechaNotificacion").Value = Me.txtFecha.Text
cmd.Parameters("txtReceptor").Value = Me.txtReceptor
cmd.Parameters("txtComentario").Value = Me.txtComentario
cmd.Parameters("txtBuscar").Value = Me.txtBuscar
cmd.Parameters("txtNotificacion").Value = Me.txtNotificacion.Text

Try
cnn.Open()
cmd.ExecuteNonQuery()
cnn.Close()
MsgBox("datos ingresado")

Catch ex As Exception
Finally
cnn.Close()
MsgBox("ERROR")

End Try

End Sub

Preguntas similares