COMO USAR EL INSER INTO
Publicado por edith (5 intervenciones) el 09/03/2007 01:16:40
Hola a tod@s
Y Tengo un codigo en visual basic.net para agregar a mi base de datos lo que pone el usuario en el formulario.
Pero al momento de hacer click en enviar me marca el error de que :
No se encuentra la página
Puede que se haya quitado la página que está buscando, que haya cambiado su nombre o que no esté disponible temporalmente.
y lo que tengo en mi codigo es lo siguiente
Public usu As String
Public canal As SqlDataAdapter
Dim tabla As DataSet
Public cmd As SqlCommand
Public cadena As String
Public CN2 As SqlConnection
Sub Form1_Load
cadena = ConfigurationSettings.AppSettings("coneccion") ***CONTIENE LA UBICACION DE LA BD"
CN2 = New SqlConnection(cadena)
CN2.Open()
END SUB
Public Sub cmdenviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdenviar.Click
Dim q As String
q = "insert into cap_captura(nom_polleria)values(@USU)"
cmd = New SqlCommand(q, CN2)
cmd.Parameters.Add(New SqlParameter("@USU", OleDbType.Char))
cmd.Parameters("@USU").Value = txtpoll.Text
'Dim rs As New SqlDataAdapter(cmd)
Dim oDataSet As New DataSet
cmd.Connection.Open()
cmd.ExecuteNonQuery()
cmd.Connection.Close()
Label5.Text = "Ingresados"
CN2.Close()
End Sub
Y Tengo un codigo en visual basic.net para agregar a mi base de datos lo que pone el usuario en el formulario.
Pero al momento de hacer click en enviar me marca el error de que :
No se encuentra la página
Puede que se haya quitado la página que está buscando, que haya cambiado su nombre o que no esté disponible temporalmente.
y lo que tengo en mi codigo es lo siguiente
Public usu As String
Public canal As SqlDataAdapter
Dim tabla As DataSet
Public cmd As SqlCommand
Public cadena As String
Public CN2 As SqlConnection
Sub Form1_Load
cadena = ConfigurationSettings.AppSettings("coneccion") ***CONTIENE LA UBICACION DE LA BD"
CN2 = New SqlConnection(cadena)
CN2.Open()
END SUB
Public Sub cmdenviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdenviar.Click
Dim q As String
q = "insert into cap_captura(nom_polleria)values(@USU)"
cmd = New SqlCommand(q, CN2)
cmd.Parameters.Add(New SqlParameter("@USU", OleDbType.Char))
cmd.Parameters("@USU").Value = txtpoll.Text
'Dim rs As New SqlDataAdapter(cmd)
Dim oDataSet As New DataSet
cmd.Connection.Open()
cmd.ExecuteNonQuery()
cmd.Connection.Close()
Label5.Text = "Ingresados"
CN2.Close()
End Sub
Valora esta pregunta


0