Formulaios

Procedimientos
CREATE TABLE [dbo].[pariente]
(
id_PERSONA int IDENTITY(1,1),
NOMBRE varchar (20),
APELLIDO VARchar(20),
parentesco varchar(20)
)

CREATE PROCEDURE[dbo].[SP_REGISTRAR_PARIENTE]
@NOMBRE VARCHAR(20),
@APELLIDO VARCHAR(20),
@PARENTESCO VARCHAR(20)
AS
BEGIN
INSERT INTO pariente
(nombre, apellido, parentesco)
VALUES(@NOMBRE,@APELLIDO,@PARENTESCO)
END

CREATE PROCEDURE [dbo].[SP_ACTUALIZA_PARIENTE]
@NOMBRE VARCHAR(20),
@APELLIDO VARCHAR(20),
@PARENTESCO VARCHAR(20),
@ID INT
AS
BEGIN
UPDATE pariente
SET nombre =@NOMBRE, apellido = @APELLIDO, parentesco = @PARENTESCO
WHERE ID_PARIENTE=@ID
END

ALTER PROCEDURE [dbo].[SP_ELIMINA_PARIENTE]
@ID INT
AS
BEGIN
DELETE FROM pariente
WHERE (id_pariente =@ID)
END

------------------------------------------------------------------------------------

Public Class Form1
'PARA EL LLENADO MDE DATOS
Dim DTPARIENTE As NewDataSet1.parienteDataTable
'COPIA DE LA BD
Dim TAPATIENTE As New DataSet1TableAdapters.parienteTableAdapter
'RELIZAR LOS PROCEDIMIENTOS ALMACENADOS
Dim PROCESOS As NewDataSet1TableAdapters.QueriesTableAdapter
Dim NUEVO As Boolean

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'LLENAR DATOS
DTPARIENTE =TAPATIENTE.GetData()
Me.DataGridView1.DataSource = DTPARIENTE

End Sub

Private Sub BTNGUARDAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNGUARDAR.ClickIf NUEVO = True Then
'PROCEDIMEITO QUE REGISTRA
PROCESOS.SP_REGISTRAR_PARIENTE(Me.TXTNOMBRE.Text, Me.TXTAPELLIDO.Text, Me.TXTPARENTESCO.Text)
Else' PROCEDIMIENTO DE ACTULIZACIN
PROCESOS.SP_ACTUALIZA_PARIENTE(Me.TXTNOMBRE.Text, Me.TXTAPELLIDO.Text, Me.TXTPARENTESCO.Text, Me.LBCODIGO.Text)
End If
'ACTULIZ EL...