estoy iniciando en ado.net

"gracias" wrote in message
news:

If registronuevo Then
inst.CommandText = "INSERT IN TO
[...]

inst.ExecuteNonQueryecuteNonQuery: no se ha inicializado la propiedad
CommandText

Tiene toda la pinta de que "registronuevo" es False, por lo que no se
asigna el CommandText de inst. ¿Has comprobado con el debugger si
efectivamente pasa por esa linea?

Alberto : muchas gracias... ya le di una revisada
gracias por tu atencion...


"Alberto Poblacion" wrote:

"gracias" wrote in message
news:
> If registronuevo Then
> inst.CommandText = "INSERT IN TO
> [...]
>
> inst.ExecuteNonQueryecuteNonQuery: no se ha inicializado la propiedad
> CommandText

Tiene toda la pinta de que "registronuevo" es False, por lo que no se
asigna el CommandText de inst. ¿Has comprobado con el debugger si
efectivamente pasa por esa linea?

Lo que pasa es que olvidaste inicializar el objeto connection y abrirlo antes
de ejecutar:

Private Sub BTNgrabar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BTNgrabar.Click
Dim inst As SqlCommand
inst = New SqlCommand
inst.Connection = conSQL
If registronuevo Then
inst.CommandText = "INSERT IN TO
COOPERATIVAS(NUMERO_COOPERATIVA,NOMBRE_COOPERATIVA,REPRESENTANTE) VALUES
(@numcoop,@nomcoop,@repcoop)"
End If
inst.Parameters.Add("numcoop", SqlDbType.VarChar)
inst.Parameters.Add("nomcoop", SqlDbType.VarChar)
inst.Parameters.Add("repcoop", SqlDbType.VarChar)

inst.Parameters("numcoop").Value = Me.TXTnumcoop.Text
inst.Parameters("nomcoop").Value = Me.TXTnomcoop.Text
inst.Parameters("repcoop").Value = Me.TXTrepcoop.Text

Try
conSQL.Open
inst.ExecuteNonQuery
conSQL.Close
Catch ex As Exception
'pasos si error
Finally
conSQL.Close
End Try

"gracias" wrote:

Alberto : muchas gracias... ya le di una revisada
gracias por tu atencion...


"Alberto Poblacion" wrote:

>
> "gracias" wrote in message
> news:
> > If registronuevo Then
> > inst.CommandText = "INSERT IN TO
> > [...]
> >
> > inst.ExecuteNonQueryecuteNonQuery: no se ha inicializado la propiedad
> > CommandText
>
> Tiene toda la pinta de que "registronuevo" es False, por lo que no se
> asigna el CommandText de inst. ¿Has comprobado con el debugger si
> efectivamente pasa por esa linea?
>
>
>
>
>

Claudio, mil gracias... si era lo que me escribiste.
Gracias amigo
Charly
Mexico



"Claudio" wrote:

Lo que pasa es que olvidaste inicializar el objeto connection y abrirlo antes
de ejecutar:

Private Sub BTNgrabar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BTNgrabar.Click
Dim inst As SqlCommand
inst = New SqlCommand
inst.Connection = conSQL
If registronuevo Then
inst.CommandText = "INSERT IN TO
COOPERATIVAS(NUMERO_COOPERATIVA,NOMBRE_COOPERATIVA,REPRESENTANTE) VALUES
(@numcoop,@nomcoop,@repcoop)"
End If
inst.Parameters.Add("numcoop", SqlDbType.VarChar)
inst.Parameters.Add("nomcoop", SqlDbType.VarChar)
inst.Parameters.Add("repcoop", SqlDbType.VarChar)

inst.Parameters("numcoop").Value = Me.TXTnumcoop.Text
inst.Parameters("nomcoop").Value = Me.TXTnomcoop.Text
inst.Parameters("repcoop").Value = Me.TXTrepcoop.Text

Try
conSQL.Open
inst.ExecuteNonQuery
conSQL.Close
Catch ex As Exception
'pasos si error
Finally
conSQL.Close
End Try

"gracias" wrote:

> Alberto : muchas gracias... ya le di una revisada
> gracias por tu atencion...
>
>
> "Alberto Poblacion" wrote:
>
> >
> > "gracias" wrote in message
> > news:
> > > If registronuevo Then
> > > inst.CommandText = "INSERT IN TO
> > > [...]
> > >
> > > inst.ExecuteNonQueryecuteNonQuery: no se ha inicializado la propiedad
> > > CommandText
> >
> > Tiene toda la pinta de que "registronuevo" es False, por lo que no se
> > asigna el CommandText de inst. ¿Has comprobado con el debugger si
> > efectivamente pasa por esa linea?
> >
> >
> >
> >
> >

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
Todos

codigo 1: este es el codigo que vi en esta pagina y que midifique , sin
embargo, como les contaba, a pesar que la pagina corre no guarda len la base
de datos.

Me.SqlNotificacion.ConnectionString es un SqlDataSource que he agregado en
la pagina, como ven ahí pido los datos de la conexion

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(FechaNotificacion,
ReceptorNotificacion, ComentarioNotificacion, RutCliente) Values
(@txtFechaNotificacion,@txtReceptor, @txtComentario, @txtBuscar)"
cmd.Parameters.Add("txtFechaNotificacion", SqlDbType.DateTime)
cmd.Parameters.Add("txtReceptor", SqlDbType.Char)
cmd.Parameters.Add("txtComentario", SqlDbType.Char)
cmd.Parameters.Add("txtBuscar", SqlDbType.Char)

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
Try
cnn.Open()
cmd.ExecuteNonQuery()
cnn.Close()

Catch ex As Exception
Finally
cnn.Close()

End Try

End Sub

Codigo 2: Este codigo lo encontre en una popular pagina de programación, sin
embargo, me arroja error en cmd.ExecuteNonQuery() por cuanto declara que no
he definido commandText

Protected Sub btnAgregar_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnAgregar.Click

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

cnn.Open()
cmd.Parameters.AddWithValue("@RutCliente", txtBuscar.Text)
cmd.Parameters.AddWithValue("@FechaNotificacion", txtFecha.Text)
cmd.Parameters.AddWithValue("@ReceptorNotificacion",
txtReceptor.Text)
cmd.Parameters.AddWithValue("@ComentarioNotificacion",
txtComentario.Text)
cmd.ExecuteNonQuery()


End Using

End Sub