| Más

Últimos miembros

JuanEl yisusSayriYaelSamuel MedinaGualberto

COMO MODIFICAR UN REGISTRO DE LA BD

Esto es la parte final del tutorial desarrollado en youtube, fue la parte que me olvide.










PASO UNO:
CREAMOS NUESTRO PROCEDIMIENTO ALMACENADO "MODIFICAR"
LES MOSTRARE TODA LA PEQUEÑA BASE DE DATOS QUE HICE PARA ESTE TUTORIAL

CREANDO LA BASE DE DATOS "PRRUEBAPAYOUTUBBE"
____________________


USE MASTER 
CREATE DATABASE PRRUEBAPAYOUTUBBE
GO
USE 
DROP DATABASE PRRUEBAPAYOUTUBBE
 
 
CREATE TABLE CLIENTE
(
CODIGO INT IDENTITY (1,1) PRIMARY KEY,
NOMBRE VARCHAR(50),
APELLIDO VARCHAR (50),
DIREECCION VARCHAR (50),
FOTO NVARCHAR(MAX)
)
GO
 
INSERT INTO CLIENTE VALUES ('ERWIN JESUS','RODRIGUEZ HUAYCAMA','LAS ORQUIDEAS','')
INSERT INTO CLIENTE VALUES ('FAUUSTIINO ','MOZOMBITE CHOTA','LOSALAMOS 457','')
INSERT INTO CLIENTE VALUES ('MARIA ROGGELIIA','MANIHURITORRES','HUUERTOS DE MNCHAY 125','')
INSERT INTO CLIENTE VALUES ('MARCOERNESTOOOO','PAREDES CHOTA','LAS MALVINAS 6984','')
 
_____________
UNA VEZ CREADO LA BASE DE DATOS Y LA TABLA CLIENTE.. PASAMOS A CREAR EL STORED PROCEDURE PARA MODIFICAR UN REGISTRO.
__________________________

CREATE PROCEDURE MODIFICAR_CLIENTE
(
@CODIGO INT ,
@NOMBRE VARCHAR(50),
@APELLIDO VARCHAR (50),
@DIREECCION VARCHAR (50),
@FOTO NVARCHAR(MAX)
)
AS
IF NOT EXISTS(SELECT * FROM CLLIENTE
WHERE CODIGO=@CODIGO)
BEGIN
RETURN
END
BEGIN TRANSACTION
UPDATE  CLLIENTE SET
 
NOMBRE =  @NOMBRE,
APELLIDO =@APELLIDO,
DIREECCION=@DIREECCION,
FOTO = @FOTO
WHERE
CODIGO=@CODIGO
IF @@ERROR<>0
BEGIN
ROLLBACK TRAN
RETURN
END
COMMIT TRANSACTION
GO
_____________________________
AHORA LES REGALARE EL CODIGO DEL STORED  PROCEDURE PARA INSERTAR..
_____________________

CREATE PROCEDURE INGRESAR_CLIENTE
(
 
@NOMBRE VARCHAR(50),
@APELLIDO VARCHAR (50),
@DIREECCION VARCHAR (50),
@FOTO NVARCHAR(MAX)
)
AS
INSERT INTO  CLLIENTE
 VALUES
(
 
@NOMBRE,
@APELLIDO,
@DIREECCION,
@FOTO
)
GO
 
--___EXECUTANDO EL STORED--_
EXEC INGRESAR_CLIENTE 'JOSE FERNANDA','ALAYA TORRES','LAS MALCRIADAS 541','NO TIENE'
 
_________________
UN REGALO MAS UN STORED PROCEDURE PARA CARGAR TODA LA TABLA CLIENTE EN UN DTAGRIDVIEW
EL CODIGO ES EL SIGUIENTE.
____________________

CREATE PROCEDURE MOSTRAR_TABLA
 
AS
SELECT * FROM CLLIENTE
GO
 
EXEC MOSTRAR_TABLA
____________________________

AHORA QUE YA TENEMOS CREADO TODO LO QUE NECESITAMOS, CLARO ESTO SE HACE EN SQL SERVER 2005..FIJANDOSE QUE TODO ESTE CORRECTAMENTE BIEN..PASAREMOS A LLAMAR EL STORED PROCEDURE DESDE VISUAL ESTUDIO 2010.

* NO OLVIDAR QUE PRIMERO TENEMOS QUE HACER LA CONEXION DE NUESTRA BASE DE DATOS..LES DEJO COMO HACER LA CONEXION PARA AQUELLOS QUE AUN NO SABEN COMO HACERLO.
_______________________

Imports System.Data.SqlClient
 
Public Class Numerosiguales
    Dim imagen As String
    Dim N As Integer = 0
 
    Dim cn As New SqlConnection("server=ERWIN_JESUSSQLEXPRESS; database=PRRUEBAPAYOUTUBBE;integrated security= true;")
_____________
BIEN ESE ES EL CODIGO.QUE NOS PERMITIRA CONECTAR NUESTRA BASE DE DATOS CON VISUAL ESTUDIO.
NO OLVIDAR QUE DEBEN CAMBIAR EL NOMBRE DEL SERVIDOR,.
Y CON RESPECTO A LAS VARIABLES QUE VEM AHI..LE PUSE DE UNA VEZ PORKE MAS ADELANTE LO USREMOS.
AHORA PASAREMOS A CARGAR LA TABLA CLIENTE EN UN DATAGRIDVIEW., EL CODIGO ES EL SIGUIENTE ESTA DENTRO DE UN PROCEDIMIENTO
________________________

Sub CARGAR_TABLAS()
        Dim DA As New SqlDataAdapter("MOSTRAR_TABLA", cn)
        Dim DS As New DataSet
        DA.Fill(DS, "CLLIENTE")
        DataGridView1.DataSource = DS.Tables("CLLIENTE")
 
    End Sub
________________________
BIEN , AHORA QUE YA TIENEN EL CODIGO PARA LLAMARLO LE TIENEN QUE DAR DOBLE CLIC AL FORMULARIO Y EN EL EVENTO LOAD , PONEN EL NOMBRE DE ESTE PROCEDIMIENTO (CARGAR_TABLAS), Y ESO ES TODO..LO EJECUTAN Y VERAN DE COMO LA TABLA ESTARA CARGADA EN EL DATAGRID.
BIEN AHORA LO MAS IMPORTANTE..
 EL CODIGO PARA LLAMAR AL STORED PROCEDURE MODIFICAR....LO LLAMAREMOS DESDE UN PROCEDIMIENTO
EL CODIGO ES EL SIGUIENTE.
_________________________________

Sub modificar()
        Try
            cn.Open()
            Dim CMD As New SqlCommand("MODIFICAR_CLIENTE", cn)
            CMD.CommandType = CommandType.StoredProcedure
            With CMD
                .Parameters.AddWithValue("@CODIGO", Me.Txt_cod.Text.Trim)
                .Parameters.AddWithValue("@NOMBRE", Me.Txt_nom.Text.Trim)
                .Parameters.AddWithValue("@APELLIDO", Me.Txt_ape.Text.Trim)
                .Parameters.AddWithValue("@DIREECCION", Me.Txt_dire.Text.Trim)
                .Parameters.AddWithValue("@FOTO", Me.imagen)
                .ExecuteNonQuery()
            End With
            MsgBox("CLIENTE MODIFICADO SATISFACTORIAMENTE")
            cn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        cn.Close()
        N = 2
    End Sub
____________________________
BIEN AHORA SI...COMO UN REGALO MAS...LE PONDRE EL CODIGO DE COMO LLAMAR A UN SOTRED PROCEDURE PARA INSERTAR..
_____________________________

Sub NUEVO_CLIENTE()
        Try
            cn.Open()
            Dim CMD As New SqlCommand("INGRESAR_CLIENTE", cn)
            CMD.CommandType = CommandType.StoredProcedure
            With CMD
                .Parameters.AddWithValue("@NOMBRE", Me.Txt_nom.Text.Trim)
                .Parameters.AddWithValue("@APELLIDO", Me.Txt_ape.Text.Trim)
                .Parameters.AddWithValue("@DIREECCION", Me.Txt_dire.Text.Trim)
                .Parameters.AddWithValue("@FOTO", Me.imagen)
                .ExecuteNonQuery()
            End With
            MsgBox("CLIENTE AGREGADO SATISFACTORIAMENTE")
            cn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        cn.Close()
        N = 1
    End Sub
____________________________________________________
AHORA SI..SI DE DAN CUENTA..AL FINAL DEL CODIGO HAY UNA N=1 CIERTO?..BIEN
 ESO ES PARA PODER DIFERENCIAR EL UNO DEL OTRO..PORQUE EL BOTON GUARDAR CUMPLIRA DOS FUNCIONES..Y NOSOTROS LE DEBEMOS DECIR CUANDO ES UN "INSERT" Y CUANDO UN "UPDATE", POR ESO ES QUE SE ME OCURRIO HACER ESO..YA SI UD QUIERE USA RADIOBUTTONS NOSE LO QUE QUIERA..
AHORA SI ...
PARA HACER QUE ESTO FUNCIONE..EN EL BOTON GUARDAR..ESCRIBIREMOS EL SIGUIENTE CODIGO...
_______________

 If N = 1 Then
            Call NUEVO_CLIENTE()
        ElseIf N = 2 Then
            Call modificar()
        End If
_____________
CON ESO CREO KE YA TERMINE..NO HAY NADA MAS QUE EJECUTAR EL PROGRAMA Y VER SI FUNCIONA
ES ASI COMO DEBE DE QUEDARTE ESTA PEQUEÑA APLICACION...
NO OLVIDAR QUE PARA LOS BOTONES NUEVO Y CANCELAR...SOLO DEBE LIMPIAR LOS CONTROLES NADA MAS..PERO DE IGUAL FORMA AQUI LES DEJO..
PARA EL BOTON NUEVO:

N = 1
        Txt_ape.Clear()
        Txt_cod.Clear()
        Txt_dire.Clear()
        Txt_nom.Clear()
        Btn_guar.Enabled = True
        Btn_modi.Enabled = False
__________________________

PARA EL BOTON CANCELAR_:

Txt_ape.Clear()
        Txt_cod.Clear()
        Txt_dire.Clear()
        Txt_nom.Clear()
        Btn_guar.Enabled = False
        Btn_modi.Enabled = True
________________________
Y PARA EL BOTON ACTUALIZAR NO HAY CODIGO ..DEBIDO AQUE EN EL EVENTO LOAD..TAMBIEN SE LE INCLUYO EL BOTON ACTUALIZAR...
PERO DE TODAS FORMA AQUI LES DEJO:

Private Sub Numerosiguales_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load, Btn_actua.Click
        CARGAR_TABLAS()
        PictureBox1.Load(Application.StartupPath & "siluetaPersona.PNG")
    End Sub
__________

 

como modificar un registro de sql server 2005 en visual .net


 

 

© 2020 Multiservicios Erwin