practicanueva adicional sobre empresas

Bueno

1. Práctica Empresa Mgr . Kilbert chusi

2. ( Insert SQL)

3. Insertar Registro Imports System.Data.SqlClient Public Class Form1 Dim conexion As SqlConnection Dim comando As SqlCommand Private Sub Form1_Load(sender As Object , e As EventArgs ) Handles MyBase .Load conexion = New SqlConnection ( "server=KIROTOBC; database= empresa;integrated security=true" ) End Sub Private Sub Button1_Click(sender As Object , e As EventArgs ) Handles Button1.Click conexion.Open () Dim consulta As String = " insert into cliente ( codigo,nombre,apellido,direccion ) values (" & TextBox1.Text & ",'" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')" comando = New SqlCommand (consulta, conexion ) comando.ExecuteNonQuery () MessageBox.Show ( "los datos han ingresado correctamente" ) conexion.Close () End Sub End Class

4. Crea la base de datos empresa create database empresa use empresa create table cliente ( codigo int primary key , nombre varchar ( 50 ), apellido varchar ( 50 ), direccion varchar ( 100 ), )

5. Visualizamos los registros select * from cliente

6. Delete SQl

7. Borrar un registro Private Sub Button2_Click(sender As Object , e As EventArgs ) Handles Button2.Click conexion.Open () Dim consulta As String = " delete from cliente where codigo =" & TextBox1.Text & "" comando = New SqlCommand (consulta, conexion ) Dim cant As Integer cant = comando.ExecuteNonQuery If cant = 1 Then TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" MessageBox.Show ( "El registro se ha eliminado" ) Else MessageBox.Show ( " ese registro no existe" ) End If conexion.Close () End Sub

8. Select SQL

9. Buscar registros Dim lector As SqlDataReader Private Sub Button4_Click(sender As Object, e As EventArgs ) Handles Button4.Click conexion.Open () Dim consulta As String = "select * from cliente where codigo =" & TextBox1.Text & "" comando = New SqlCommand (consulta, conexion ) lector = comando.ExecuteReader () If ( lector.Read ()) Then TextBox2.Text = lector("nombre") TextBox3.Text = lector("apellido") TextBox4.Text = lector(" direccion ") Else MessageBox.Show ("No existen registros con ese codigo ") TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox1.Focus() End If conexion.Close () End Sub

10. Update sql

11. Actualizar registros Private Sub Button3_Click(sender As Object , e As EventArgs ) Handles Button3.Click conexion.Open () Dim consulta As String = " update cliente set nombre='" & TextBox2.Text & "',apellido='" & TextBox3.Text & "', direccion ='" & TextBox4.Text & "' where codigo =" & TextBox1.Text & "" comando = New SqlCommand (consulta, conexion ) Dim cant As Integer cant = comando.ExecuteNonQuery If cant = 1 Then TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" MessageBox.Show ( "se modificaron los datos" ) Else MessageBox.Show ( "no existe ese codigo " ) End If conexion.Close () End Sub

12. Gracias por su atención

13. Uso de DATAGRIDVIEW Mgr. Kilbert Chusi Huamani

14. Llenar el grib y visualización en los Textbox llenar_grid () Public Sub llenar_grid () Dim consulta As String = " select * from cliente" Dim adaptador As New SqlDataAdapter (consulta, conexion ) Dim dt As New DataTable adaptador.Fill ( dt ) DataGridView1.DataSource = dt End Sub Private Sub DataGridView1_CellClick( sender As Object , e As DataGridViewCellEventArgs ) Handles DataGridView1.CellClick TextBox1.Text = DataGridView1.SelectedCells(0).Value TextBox2.Text = DataGridView1.SelectedCells(1).Value TextBox3.Text = DataGridView1.SelectedCells(2).Value TextBox4.Text = DataGridView1.SelectedCells(3).Value End Sub

15. Uso de los procedimientos Almacenados en SQL Mgr. Kilbert Chusi Huamani

16. PROCEDIMIENTO ALMACENADO ( Insert SQL)

17. CREACION DE CLASES Y FUNCIONES Public Function InsertarCliente (cod As String , nomb As String , ape As String , direc As String ) Dim da As New SqlCommand ( " vai_nuevo_cliente " , conexion ) da.CommandType = CommandType.StoredProcedure da.Parameters.AddWithValue( "@codigo" , cod) da.Parameters.AddWithValue ( "@nombre" , nomb ) da.Parameters.AddWithValue ( "@ apellido " , ape) da.Parameters.AddWithValue ( "@ direcion " , direc ) conexion.Open () Dim resp As Integer resp = da.ExecuteNonQuery MsgBox( "Registrado con exito " + nomb ) conexion.Close () Return resp End Function

18. Procedimiento Almacenado SQL create proc vai_nuevo_cliente @codigo varchar ( 11 ), @nombre varchar ( 50 ), @apellido varchar ( 50 ), @direcion varchar (100), as insert into cliente values ( @codigo , @nombre , @apellido , @direcion )