Visual Basic 6.0: código para botones agregar, eliminar

BIEN QUE CODIGO TAN LARGO xD E UTIL
AUN QUE PREFIERO USAR PROCEDIMIENTOS ALMACENADOS
CASI AL FINAL EL CODIGO DE SQL

CODIGO DE MODULO EN VISUAL BASIC
'---------------------------------------------------------------------------------
Imports System.Data.SqlClient
Imports System.Data

Module SERIEDETA
Private LFnD_ID As Long
Private LFnD_IDSD As Long
Private LFnD_DSCP As String

Private Sub CLEAR()
LFnD_IDSD = Nothing
LFnD_DSCP = Nothing
End Sub
Public Sub ASIGNAR(ByVal CODIGO As Long)
LFnD_ID = CODIGO
End Sub
Public Sub ASIGNAR(ByVal CODIGO As Long, ByVal ENCABEZADO As Long, ByVal DESCRIPCION As String)
LFnD_ID = CODIGO
LFnD_IDSD = ENCABEZADO
LFnD_DSCP = DESCRIPCION
End Sub
Private Function COD() As Long
Dim cmd As New SqlCommand
Dim dr As SqlDataReader, dt As New DataTable
With cmd
.Connection = Conexion.cn
.CommandType = CommandType.StoredProcedure
.CommandText = "SP_SERIEDOCDETA_FINDINDEX"
End With
Try
dr = cmd.ExecuteReader
dt.Load(dr)
If dt.Rows.Count = 0 Then
Return 0
End If
Return CLng(dt.Rows(0)(0).ToString)
Catch ex As Exception
Return 0 : Conexion.ShDesconect()
Err.Raise(vbObjectError + 514, , "DAO: " & ex.Message)
End Try
End Function
Private Sub INDEXUPDATE(ByVal indice As Long)
Dim cmd As New SqlCommand

With cmd
.Connection = Conexion.cn
.CommandType = CommandType.StoredProcedure
.CommandText = "SP_SERIEDOCDETA_UPDINDEX"
End With
Try
cmd.Parameters.AddWithValue("@valor", indice)
cmd.ExecuteNonQuery()
Catch ex As Exception
Conexion.ShDesconect()
Err.Raise(vbObjectError + 514, , "DAO: " & ex.Message)
End Try
End Sub
Function GUARDAR(ByVal NUEVO As Boolean) As Boolean
Try
If NUEVO = True Then
Conexion.ShConect()
LFnD_ID = SERIEDETA.COD() + 1
Conexion.ShDesconect()
End If

Dim SAVEAR As New SqlDataAdapter
SAVEAR.SelectCommand = New SqlCommand
Dim cmd As New SqlCommand("P_SERIEDOCDETA_INSERT", Conexion.cn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@INSERTED", SqlDbType.Bit).Value = NUEVO
cmd.Parameters.Add("@ID", SqlDbType.BigInt).Value = LFnD_ID
cmd.Parameters.Add("@USER", SqlDbType.BigInt).Value = SYSUSUARIO.IDUSER
cmd.Parameters.Add("@IDSD", SqlDbType.BigInt).Value = LFnD_IDSD
cmd.Parameters.Add("@DSCP", SqlDbType.Text).Value = LFnD_DSCP
Conexion.ShConect()
cmd.ExecuteNonQuery()
If NUEVO = True Then SERIEDETA.INDEXUPDATE(LFnD_ID)
Conexion.ShDesconect()
SERIEDETA.CLEAR()
Return True
Catch EX As Exception
Return False
End Try
End Function
Function ELIMINAR(ByVal LOGICAMENTE As Boolean) As Boolean
Try
Dim DELETE As New SqlDataAdapter
DELETE.SelectCommand = New SqlCommand
Dim cmd As New SqlCommand("P_SERIEDOCDETA_DELETE", Conexion.cn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@ID", SqlDbType.BigInt).Value = LFnD_ID
cmd.Parameters.Add("@USER", SqlDbType.BigInt).Value = SYSUSUARIO.IDUSER
cmd.Parameters.Add("@DLT", SqlDbType.Bit).Value = LOGICAMENTE
Conexion.ShConect()
cmd.ExecuteNonQuery()
Conexion.ShDesconect()
SERIEDETA.CLEAR()
Return True
Catch EX As Exception
Return False
End Try
End Function
Function RESTAURAR() As Boolean
Try
Dim RESTORE As New SqlDataAdapter
RESTORE.SelectCommand = New SqlCommand
Dim cmd As New SqlCommand("P_SERIEDOCDETA_RESTORE", Conexion.cn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@ID", SqlDbType.BigInt).Value = LFnD_ID
cmd.Parameters.Add("@USER", SqlDbType.BigInt).Value = SYSUSUARIO.IDUSER
Conexion.ShConect()
cmd.ExecuteNonQuery()
Conexion.ShDesconect()
SERIEDETA.CLEAR()
Return True
Catch EX As Exception
Return False
End Try
End Function
Public Function RETURN_ID() As Long
Return LFnD_ID
End Function
End Module

//////////////////////////////////////////////////////////////////////////////
FORMULARIO
//////////////////////////////////////////////////////////////////////////////


'GUARDAR
'* SI Lb_NEW=TRUE ENTONCES GUARDA UN NUEVO REGISTRO SI ESTA EN FALSE SOLO ACTUALIZA

SERIEDETA.ASIGNAR(Ll_CODIGO, Ll_header, Ls_DSCP)
SERIEDETA.GUARDAR(Lb_NEW)


'ELIMINAR LOGICAMENTE(SE MANTINEN EN LA BASE DE DATOS SOLO CAMBIA SU ESTADO)

SERIEDETA.ELIMINAR(FALSE)
' O FICICAMENTE( SE ELIMINA PERMANENTEMENTE DE LA BASE DE DATOS)
SERIEDETA.ELIMINAR(TRUE)

TAMBIEN ESTA RESTAURAR Y Y RECUPERAR ID Y LIMPIAR



///////////////////////////////////////////////////////////////////////////////////
SQL
///////////////////////////////////////////////////////////////////////////////////
-----------------------------------------

CREATE PROC P_SERIEDOCDETA_INSERT
(
@INSERTED BIT,
@ID BIGINT,
@USER BIGINT,
@IDSD BIGINT,
@DSCP TEXT
)
AS
IF @INSERTED=1
BEGIN
INSERT INTO SERIEDOCDETA VALUES
(
@ID,0,@USER,-2,-2,GETDATE(),GETDATE(),GETDATE(),
@IDSD,
@DSCP
)
END
ELSE
BEGIN
UPDATE SERIEDOCDETA SET
U_UPD=@USER,
F_UPD=GETDATE(),
IDSD=@IDSD,
DSCP=@DSCP
WHERE ID=@ID
END
GO

hola elinv vi ru post me parece interesante. Y veo q te mqnejas mbien con el tema te puedo hacer una consulta