Foros del web, para los que viven de bits

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.

puedes crear un parametro del tipo output en el procedimiento de tal forma que al llamarlo se lo envias por referencia y asi logras rescatar el valor

saludos si tienes dudas con lo que te dije te pongo un ejemplo

bueno necesito el ejemplo :)

gracias amigo hay lo solucuione

SELECT SCOPE_IDENTITY()

Dim id As Integer = CInt(cmd.ExecuteScalar())
Label10.Text = id