elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Ayuda
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda  (Leído 2,200 veces)
javierjava

Desconectado Desconectado

Mensajes: 19


Ver Perfil
Ayuda
« en: 3 Noviembre 2008, 21:08 pm »

Que tal Disculpen por la ignorancia estoy haciendo una peque base de datos en vb 2005 y sql ya tengo el boton guardar pero ya no se como hacer el modificar y el eliminar y el buscar registro,sera que alguien me puede ayudar de como hacerlo. desde agradezco sus comentarios. este es el codigo que estoy usando

Imports System.Data.SqlClient
PublicClass Form1
Private oConexion As SqlConnection
Private oDataSet As DataSet
Private oDapter As SqlDataAdapter

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

oConexion = New SqlConnection
oConexion.ConnectionString = "server=(local)\SQLEXPRESS;" & _
"integrated security=sspi;" & _
"database=Prueva"

oDapter = New SqlDataAdapter
Dim oComandInsercion AsNew SqlCommand("INSERT INTO Personal " & _
"(Codigo,Nombre,Apellido) VALUES(@Codigo,@Nombre,@Apellido)", oConexion)
oDapter.InsertCommand = oComandInsercion
oDapter.InsertCommand.Parameters.Add(New SqlParameter("@Codigo", SqlDbType.Int))
oDapter.InsertCommand.Parameters.Add(New SqlParameter("@Nombre", SqlDbType.VarChar))
oDapter.InsertCommand.Parameters.Add(New SqlParameter("@Apellido", SqlDbType.VarChar))
Dim oCmdCon AsNew SqlCommand("SELECT * FROM Personal", oConexion)
oDapter.SelectCommand = oCmdCon
oDataSet = New DataSet
Me.CargarDatos()
EndSub
PrivateSub CargarDatos()
oDataSet.Clear()
oConexion.Open()
oDapter.Fill(oDataSet, "Personal")
oConexion.Close()
Me.DataGridView1.DataSource = oDataSet
Me.DataGridView1.DataMember = "Personal"
EndSub


PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim iResultado AsInteger
oDapter.InsertCommand.Parameters("@Codigo").Value = Me.TextBox1.Text
oDapter.InsertCommand.Parameters("@Nombre").Value = Me.TextBox2.Text
oDapter.InsertCommand.Parameters("@Apellido").Value = Me.TextBox3.Text
oConexion.Open()
iResultado = oDapter.InsertCommand.ExecuteNonQuery()
oConexion.Close()
Me.CargarDatos()
MessageBox.Show("El Registro a sido Guardado" & iResultado)
oConexion.Close()
EndSub
EndClass


En línea

Hadess_inf
Desesperado
Colaborador
***
Desconectado Desconectado

Mensajes: 2.048


Nueva Vida


Ver Perfil WWW
Re: Ayuda
« Respuesta #1 en: 5 Noviembre 2008, 00:30 am »

Hola que tal, antes de ayudarte debo decirte que seria bueno que leas las normas, tienes que ser un poco mas descriptivo en el titulo de tu post. Como podras entender no basta con poner como titulo"Ayuda", en fin... con lo que respecta a tu problema para un eliminar y/o actualizar tienes que hacer casi lo mismo que con el insertar,es simplemente cambiar la consulta en el sqlcommand, es decir:

Para Insertar
Dim oComandInsercion As New SqlCommand("INSERT INTO Personal (Codigo,Nombre,Apellido) VALUES(@Codigo,@Nombre,@Apellido)", oConexion)

Para Actualizar
Dim oComandInsercion As New SqlCommand("UPDATE personal SET nombre=@nombre WHERE codigo=@codigo", oConexion)

Para Eliminar
Dim oComandInsercion As New SqlCommand("DELETE personal WHERE codigo=@codigo", oConexion)


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines