Ensayos

BASE DE DATOS EN SQL SERVER
USE master
GO
IF(DB_ID('SUPER) is not null)
drop database SUPER
GO
CREATE DATABASE SUPER
GO
USE SUPER
GO
CREATE TABLE PRODUCTO
(ID_PROD CHAR(3) PRIMARY KEY,NOMBRE VARCHAR(35)NOT NULL,
PROCEDENCIA VARCHAR(10) CHECK (PROCEDENCIA='Nacional' or PROCEDENCIA='Importado'),
precio money,
presentacion varchar(15) CHECK (presentacion='Caja' or presentacion='Caja'or presentacion='Lata'),
stock int,
fecha_venc date)
create proc RegistrarProducto(
@ID_PRODUCTO CHAR(3),@NOMBRE VARCHAR(35),@PROCEDENCIA VARCHAR(10)@PRECIO MONEY,@PRESENTACION varchar(15),@STOCK INT,@FV DATE,@MSJE VARCHAR(70)OUTPUT)
As
Begin

IF ((SELECT COUNT (*) FROM PRODUCTO WHERE ID_PROD=@ID_PRODUCTO)<>0)
SET @MSJE='PRODUCTO CON CODIGO '+ @ID_PRODUCTO+' YA EXISTE
elseBegin
INSERT INTO PRODUCTO VALUES(@ID_PRODUCTO,@NOMBRE,@PROCEDENCIA,@PRECIO,@PRESENTACION,@STOCK,@FV)SET @MSJE='PRODUCTO '+@NOMBRE+' REGISTRADO EN EL SISTEMA!!!'
END
End
FORMULARIO EN VISUAL BASICImports System.Data
Imports System.Data.SqlClient
Public Class Supermercado
' ESTABLECER LA CADENA DE CONEXION
Dim año As String
Dim conexion As NewSqlConnection("DataBase=super;Server=.;Integrated Security=yes")

Sub abrirConexion()
If conexion.State = 0 Then
conexion.Open()
End If
End Sub
Sub CerrarConexion()
Ifconexion.State = 1 Then
conexion.Close()
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try'INTENTAR HACER
abrirConexion()
' DECLARAR UN OBJETO PARA UTILIZAR EL SP DE SQL
Dim cmd As New SqlCommand("RegistrarProducto", conexion)
'INDICAR EL TIPO DECOMANDO QUE SE UTILIZA(SP ---> 4)
cmd.CommandType = 4

' ENVIAR LOS VALORES CAPTURADOS DE LOS CONTROLES COMO PARAMETROSPARA EL SP,
'UTILIZAMOS WITH PARA NO REPETIR LA ESCRITURA DE...