En esta ocasión realizaremos un caso en Visual Studio usando VBnet para generar consultas a la base de datos desde un formulario de Windows Forms.

Crear la base de datos PRACTICA1 con la tabla CLIENTES con los campos (código, nombre, apellidoPaterno, apellidoMaterno, telefono), ingresar 10 clientes, programar un formulario que permita visualizar todos los datos de un cliente y que permita BUSCAR clientes por código.

 USE MASTER
  
 CREATE DATABASE PRACTICA1
 GO
 USE PRACTICA1
 GO
 CREATE TABLE CLIENTES 
 (
        codigo varchar(50) primary key,
        nombre varchar(50),
        apellidoPaterno varchar(50),
        apellidoMaterno varchar(50),
        telefono varchar(15)
 )
  
  
 INSERT INTO CLIENTES values ('COD001','JUAN','HJH','ARONES','952452158');
 INSERT INTO CLIENTES values ('COD002','JOSE','MARTINEZ','','985785458');
 INSERT INTO CLIENTES values ('COD003','ALBERTO','GENARO','GUTIERREZ','9877667');
 INSERT INTO CLIENTES values ('COD004','JULIA','GARCIA','BELCAZAR','989564453');
 INSERT INTO CLIENTES values ('COD005','JIMENA','RODRIGUEZ','ESPINO','987454345');
 INSERT INTO CLIENTES values ('COD006','JUANA','ALFARO','JIMENEZ','964418989');
 INSERT INTO CLIENTES values ('COD007','MARIA','FERRER','ARONES','966366679');
 INSERT INTO CLIENTES values ('COD008','ROBERTO','ROSPIGLIOSI','ARONES','978777885');
 INSERT INTO CLIENTES values ('COD009','JORGE','HERARD','ARONES','997888888');
 INSERT INTO CLIENTES values ('COD010','ANDRES','YUMAN','JIMENEZ','996555578'); 

 Imports System.Data.SqlClient
  
 Public Class Form1
     Public cn As SqlConnection
     Public comando As SqlCommand
     Public data As SqlDataReader
  
     Private Sub BTNBuscar_Click(sender As Object, e As EventArgs) Handles BTNBuscar.Click
         Try
             cn.Open()
             comando = cn.CreateCommand()
             comando.CommandText = "select *from CLIENTES where codigo='" + TXTCodigo.Text + "'"
             data = comando.ExecuteReader()
             If (data.Read) Then
                 TXTNombre.Text = data(1)
                 TXTApellidoPaterno.Text = data(2)
                 TXTApellidoMaterno.Text = data(3)
                 TXTTelefono.Text = data(4)
             End If
             cn.Close()
  
         Catch ex As Exception
  
         End Try
  
  
     End Sub
  
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         cn = New SqlConnection("Data Source=.;Initial Catalog=PRACTICA1;Integrated Security=True")
  
     End Sub
 End Class 

En la base de datos PRACTICA1 crear una tabla PRODUCTOS con los campos (código, nombre, precio y stock) , ingresar 10  producto, programar un formulario que permita visualizar todos los datos de un producto y que permita buscar productos por código

 CREATE TABLE PRODUCTOS 
 (
        codigo varchar(50) primary key,
        nombre varchar(50),
        precio decimal(8,2),
        stock int
 );
  
 INSERT INTO PRODUCTOS values ('COD001','LEJIA',1,5);
 INSERT INTO PRODUCTOS values ('COD002','ACIDO ORGANICO',7,2);
 INSERT INTO PRODUCTOS values ('COD003','JABON',4,2);
 INSERT INTO PRODUCTOS values ('COD004','DETERGENTE',5,2);
 INSERT INTO PRODUCTOS values ('COD005','JABON LIQUIDO',4,2);
 INSERT INTO PRODUCTOS values ('COD006','LEJIA ROPA COLOR',3,3);
 INSERT INTO PRODUCTOS values ('COD007','ENJUAGUE',4,3);
 INSERT INTO PRODUCTOS values ('COD008','SHAMPOO',4,3);
 INSERT INTO PRODUCTOS values ('COD009','DESODORANTE',4,5);
 INSERT INTO PRODUCTOS values ('COD010','COLONIA',4,6); 

 Imports System.Data.SqlClient
  
 Public Class Form2
     Public cn As SqlConnection
     Public comando As SqlCommand
     Public data As SqlDataReader
     Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         cn = New SqlConnection("Data Source=.;Initial Catalog=PRACTICA1;Integrated Security=True")
     End Sub
  
     Private Sub BTNBuscar_Click(sender As Object, e As EventArgs) Handles BTNBuscar.Click
         Try
             cn.Open()
             comando = cn.CreateCommand()
             comando.CommandText = "select *from PRODUCTOS where codigo='" + TXTCodigo.Text + "'"
             data = comando.ExecuteReader()
             If (data.Read) Then
                 TXTNombre.Text = data(1)
                 TXTPrecio.Text = data(2)
                 TXTStock.Text = data(3)
             End If
             cn.Close()
  
         Catch ex As Exception
  
         End Try
  
     End Sub
 End Class