Pegar valor de um select - Inserir

[hpires24 0]

Boa noite agradecia ajuda no seguinte eu tenho duas tabelas uma de Actividades e outra de Actividades01 onde na tabela actividade01 tenho a chave da tabela Actividade e o que eu pretendo é ao estar a preencher o formulario que envia os dados para a tabela Actividade entao eu guardar o id_actividade e depois fazer um redirect para o actividade01 logo com o id_actividade preenchido eu tou a fazer isso do seguinte modo:

CODE

Protected Sub ButtonAdicionarAcTiV_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonAdicionarAcTiV.Click

If Page.IsValid Then

Dim conn As New SqlConnection(ConfigurationManager.ConnectionStrings("SLConnectionString").ToString)

 

Dim strQuery As String

Dim objCommand As SqlCommand

Dim Hora, Minuto, Segundo, Inp

Hora = Hour(Now)

Minuto = Minute(Now)

Segundo = Second(Now)

If Hora < 10 Then

Hora = "0" & Hour(Now)

Else

Hora = " " & Hour(Now)

End If

If Minuto < 10 Then

Minuto = ":0" & Minute(Now)

Else

Minuto = ":" & Minute(Now)

End If

If Segundo < 10 Then

Segundo = ":0" & Second(Now)

Else

Segundo = ":" & Second(Now)

End If

Inp = Hora

Inp = Inp & Minuto

Inp = Inp & Segundo

 

 

 

strQuery = "usp_inserirActividades"

 

objCommand = New SqlCommand(strQuery, conn)

objCommand.CommandType = CommandType.StoredProcedure

TextBoxhorainicio.Text = Inp

objCommand.Parameters.Add(New SqlParameter("@propriedade", DropdownlistpROPRIEDADE.SelectedValue))

objCommand.Parameters.Add(New SqlParameter("@sector", ListBxsECTOR.SelectedValue))

objCommand.Parameters.Add(New SqlParameter("@funcionario", ListBxFuncionario.SelectedValue))

objCommand.Parameters.Add(New SqlParameter("@linha", Dropdownlistlinha.SelectedValue))

objCommand.Parameters.Add(New SqlParameter("@tipoacaco", TipodeAcacao.Text))

objCommand.Parameters.Add(New SqlParameter("@responsavelaccao", responsavelAccao.Text))

objCommand.Parameters.Add(New SqlParameter("@datainicio", TextBoxdatainicio.Text))

objCommand.Parameters.Add(New SqlParameter("@horainicio", TextBoxhorainicio.Text))

objCommand.Parameters.Add(New SqlParameter("@datafim", TextBoxdatafim.Text))

objCommand.Parameters.Add(New SqlParameter("@horafim", TextBoxhorafim.Text))

objCommand.Parameters.Add(New SqlParameter("@maqunna1", TextBoxmaquina1.Text))

objCommand.Parameters.Add(New SqlParameter("@maquina2", TextBoxmaquina2.Text))

objCommand.Parameters.Add(New SqlParameter("@acacaocontinuada", TextBoxContAccao.Text))

objCommand.Parameters.Add(New SqlParameter("@falginterrupcao", TextBoxFlagInterrActiv.Text))

objCommand.Parameters.Add(New SqlParameter("@acacaocontinuadafilho", TextBoxaccaoencadeada.Text))

objCommand.Parameters.Add(New SqlParameter("@acacaocontinuadapai", TextBoxacacoencadeou.Text))

objCommand.Parameters.Add(New SqlParameter("@taginicio", TextBoxtaginicialvalidado.Text))

objCommand.Parameters.Add(New SqlParameter("@tagfim", TextBoxtagfinalvalidado.Text))

'objCommand.Parameters.Add(New SqlParameter("tagfimgps", TextBoxconteudoinicio.Text))

'objCommand.Parameters.Add(New SqlParameter("taginicioda linha falta", TextBoxconteudofim.Text))

objCommand.Parameters.Add(New SqlParameter("@taginicidata", TextBoxiniciodata.Text))

objCommand.Parameters.Add(New SqlParameter("@tagfimdata", TextBoxtafimdata.Text))

 

 

 

conn.Open()

 

 

objCommand.ExecuteNonQuery()

conn.Close()

 

DropdownlistpROPRIEDADE.ClearSelection()

ListBxsECTOR.ClearSelection()

ListBxFuncionario.ClearSelection()

Dropdownlistlinha.ClearSelection()

 

TipodeAcacao.ClearSelection()

'responsavelAccao.Text() = ""

responsavelAccao.ClearSelection()

TextBoxdatainicio.Text() = ""

TextBoxhorainicio.Text() = ""

TextBoxdatafim.Text() = ""

TextBoxhorafim.Text() = ""

TextBoxmaquina1.Text() = ""

TextBoxmaquina2.Text() = ""

TextBoxContAccao.Text() = ""

TextBoxFlagInterrActiv.Text() = ""

TextBoxaccaoencadeada.Text() = ""

TextBoxacacoencadeou.Text() = ""

TextBoxtaginicialvalidado.Text() = ""

TextBoxtagfinalvalidado.Text() = ""

TextBoxiniciodata.Text() = ""

' TextBox2.Text() = ""

'TextBox3.Text() = ""

TextBoxtafimdata.Text() = ""

 

 

' BinData()

 

 

Me.PanelcriarACTIVIDADES.Visible = False

Me.DataGridAreaInvestigacao.Visible = True

'Me.Panel1.Visible = False

Me.Label5.Visible = True

Me.Label6.Visible = False

Me.Button3.Visible = True

'devolveactivdiade_id(CInt(linha.text, func, propriedade, sector, User, dataini, horainicio, datafim, horafim, maq1, maq2, contid, interr, ByValtagini, tagfin, taginidata, tagfimdata, finterr) = Session("Actividade")

 

Response.Redirect("Actividade01.aspx")

 

' Me.DataGridAreaInvestigacao.DataBind()

 

 

End If

End Sub

 

e o que estava pensando para inserir os dados depois na tabela Actividade 01 guardar o id_actividadenuma variavel sessao para tal estou a fazer o seguinte que nao sei se estará correcto?

 

CODE

Public Sub devolveactivdiade_id(ByVal linha As Integer, ByVal func As Integer, ByVal propriedade As Integer, ByVal sector As Integer, ByVal user As Char, ByVal dataini As Char, ByVal horainicio As Char, ByVal datafim As Char, ByVal horafim As Char, ByVal maq1 As Char, ByVal maq2 As Char, ByVal cont As Char, ByVal contid As Char, ByVal interr As Char, ByVal ByValtagini As Char, ByVal tagfin As Char, ByVal taginidata As Char, ByVal tagfimdata As Char, ByVal finterr As Char)

 

Dim conn As New SqlConnection(ConfigurationManager.ConnectionStrings("SLConnectionString").ToString)

Dim cmd As New SqlCommand("select ACT_ID as act_id from ACTIVIDADE where LIN_ID = @linha and ID_FUNC = @funci and PROP_ID = @propriedade and ID_SECTOR = @sector and ACT_USR= @user and ACT_DT_INI = @dataini and ACT_HR_INI = @horainicio and ACT_DT_END = @datafim and ACT_HR_END = @horafim and ACT_ID_MAQ1 = @maq1 and ACT_ID_MAQ2 = @maq2 and ACT_CONTIN = @cont and ACT_CONTIN_ACT_ID = @contid and AC_TCONTIN_ACT_ID_I = @interr and ACT_TAG_INI_ID_VAL = @tagini and ACT_TAG_FIN_ID_VAL =@tagfin and ACT_TAG_INI_DATA = @taginidata and ACT_TAG_FIN_DATA = @tagfimdata and ACT_FLAG_INTERRUP = @finterr and ACT_TYP= @acttip", conn)

Dim dr As SqlDataReader

 

conn.Open()

dr = cmd.ExecuteReader()

 

If dr.Read Then

 

Session("actid") = dr("act_id").ToString()

 

End If

conn.Close()

 

 

End Sub

 

se isto esta correcto depois como uso este metodo no primeiro codigo ou seja neste sub----

Protected Sub ButtonAdicionarAcTiV_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonAdicionarAcTiV.Click

 

Agradecia ajuda Urgente

 

Se nao entenderam a minha duvida eu tento ser mais esclarecedir mas agradecia ajuda, obrigado

[quintelab 91]

Se eu entendi, você quer chamar um evento de um botão de dentro de uma Sub é isso?

 

Abraços...