---ANA AQUI T MANDO UN EJEMPLO DE COMO PUEDES GENERA UN SP DESDE VB6 espero t sirva
Saludos
*** SQL***
CREATE Proc Sp_embalaje_ime
@emb_codigo char(2),
@emb_nombre varchar(50),
@accion int
as
begin tran
if @accion=1 --inserta
begin
insert embalaje select @emb_codigo,@emb_nombre
end
if @accion=2 --modifica
begin
update embalaje set emb_nombre=@emb_nombre where emb_codigo=@emb_codigo
end
if @accion=3 --elimina
begin
delete embalaje where emb_codigo=@emb_codigo
end
commit tran
return(0)
*** VBASIC ****
Set Qry = New ADODB.Command
Set parm = New ADODB.Parameter
Qry.ActiveConnection = Con
Qry.CommandType = adCmdStoredProc
Qry.CommandText = "Sp_Embalaje_ime" 'ime=inserta, modifica o elimina
Set parm = Qry.CreateParameter("codigo", adVarChar, adParamInput, 2, Trim(Temb_codigo))
Qry.Parameters.Append parm
Set parm = Qry.CreateParameter("nombre", adVarChar, adParamInput, 50, Trim(Temb_nombre))
Qry.Parameters.Append parm
Set parm = Qry.CreateParameter("accion", adInteger, adParamInput, 1, Maccion)
Qry.Parameters.Append parm
Qry.Execute