Título: Ayuda Publicado por: javierjava 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 Título: Re: Ayuda Publicado por: Hadess_inf 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) |