Caso en Visual Studio Practica1 haciendo consultas a la Base de Datos
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
Publicar un comentario
0 Comentarios