enlazar dos procedimientos en un boton? hola amigos, quiero enlazar dos procedimientos almacenados que tengo en un boton que se
llama agregar, cada proce. guarda en tablas separadas los registros pero necesito rescatar
el id del primero para pasarselo al segundo me explico:
primer procedure:
CREATE procedure spAgregaContratista
(
@cont_fantasia nvarchar(50)
)
as
insert into contratista (cont_fantasia)
values(@cont_fantasia)
que agrega a la tabla :
contratista
cont_codigo int pk,<----------------- este es autonumeriko por eso no lo pongo en el procedure spAgregaContratista "es el ke kiero rescatar"
cont_fantasia nvarchar(50)
segundo procedure:
CREATE procedure spAgregaContxProyecto
(
@cxp_proyecto nvarchar(50),
@cxp_contratista int
)
as
insert into contxproyecto (cxp_proyecto ,cxp_contratista)
values(@cxp_proyecto ,@cxp_contratista)
GO
que agrega a la tabla :
contxproyecto
cxp_id int, autonumeriko
cxp_proyecto nvarchar(50),
cxp_contratista int fk_de_contratista <-------------------------- aqui es donde kiero dejar el valor ke rescate de arriba
ahora el boton agregar:
cmd = New SqlCommand
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "spAgregaContratista"
cmd.Connection = cn
Dim da As New SqlDataAdapter
da.InsertCommand = cmd
Dim cont_fantasia As New SqlParameter("@cont_fantasia", SqlDbType.VarChar, 50)
da.InsertCommand.Parameters.Add(cont_fantasia)
da.InsertCommand.Parameters(0).Value = txtNombre.Text
Try
Using cn
cn.Open()
da.InsertCommand.ExecuteNonQuery()
da.Dispose()
cmd.Dispose()
End Using
Catch ex As Exception
End Try
cmd = New SqlCommand
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "spAgregaContxProyecto"
cmd.Connection = cn
Dim da As New SqlDataAdapter
da.InsertCommand = cmd
Dim cxp_proyecto As New SqlParameter("@cxp_proyecto", SqlDbType.NVarChar, 50)
Dim cxp_contratista As New SqlParameter("@cxp_contratista", SqlDbType.Int)
da.InsertCommand.Parameters.Add(cxp_proyecto)
da.InsertCommand.Parameters(0).Value = Label9.Text
da.InsertCommand.Parameters.Add(cxp_contratista)
da.InsertCommand.Parameters(1).Value = "aqui es donde kiero mandar el cont_codigo de contratista" si lo pudiera rescatar delguna manera !!!!!!
Try
Using cn
cn.Open()
da.InsertCommand.ExecuteNonQuery()
da.Dispose()
cmd.Dispose()
End Using
Catch ex As Exception
End Try
bueno amigos ojala me puedan dar una ayuda gracias.
