Passando valor do select para uma variável

[asp.net 0]

Tenho o seguinte código, trabalhando com a variável id_solicitacao

 

::CODIGO:::::::::::::::::::::::::::::

 

Dim id_solicitacao as string

 

public sub detalha_solicitacao(Obj as Object, e as CommandEventargs)

Dim sql_detalha as string

sql_detalha="SELECT solicitacao.codigo, usado.veiculo, usado.placa, usado.preco, usado.cor, solicitacao.solicitante, solicitacao.email, solicitacao.telefone, solicitacao.texto FROM solicitacao INNER JOIN usado ON usado.codigo = solicitacao.veiculo where solicitacao.codigo="&e.CommandArgument

Dim ds_detalha as DataSet

Dim obj_detalha as New Executa_busca()

ds_detalha = obj_detalha.executa_busca_dataset(sql_detalha)

pl_detalhe.visible=true

pl_lista.visible=false

id_solicitacao = ds_detalha.tables(0).rows(0)("codigo").tostring

'Vejam q estou passando o valor para a string id_solicitacao, e que uso novamente duas linhas depois esta string

lb_detalhe.text = "<strong>Solicitação de N° "

lb_detalhe.text+=id_solicitacao+"</strong><br><br>"

lb_detalhe.text+="<strong>Veículo:</strong> "+ds_detalha.tables(0).rows(0)("veiculo").tostring+" "+ds_detalha.tables(0).rows(0)("cor").tostring+" <strong>Placa</strong> "+ds_detalha.tables(0).rows(0)("placa").tostring+" <strong>Preço</strong> "+FormatCurrency(ds_detalha.tables(0).rows(0)("preco").tostring)+"<BR>"

lb_detalhe.text+="<strong>Solicitante:</strong> "+ds_detalha.tables(0).rows(0)("solicitante")+"<BR>"

lb_detalhe.text+="<strong>Email:</strong> "+ds_detalha.tables(0).rows(0)("email")+"<BR>"

lb_detalhe.text+="<strong>Telefone:</strong> "+ds_detalha.tables(0).rows(0)("telefone")+"<BR>"

lb_detalhe.text+="<strong>Mensagem:</strong> "+ds_detalha.tables(0).rows(0)("texto")+"<BR>"

end sub

 

Porém quando chego nesta sub para inserir o valor da string id_solicitacao

 

Public Sub solicitacao_atendida(obj as object, e as eventargs)

Dim sql_atende as String

lb_detalhe.text=Len(id_solicitacao)

sql_atende = "Insert into atende(solicitacao, funcionario, data, situacao) values('"& Cint(id_solicitacao) &"', '"& session("001") &"', '"& Now() &"', '1')"

executa.executa_sql(sql_atende)

end sub

 

Eu não tenho nada na string id_solicitacao, o que pode ser isto?

[rOcKLoCo 0]

cara, coloca um breakpoint e veja passo a passo o q está acontecendo... falows

[asp.net 0]

O que está acontecendo é que ele perde as informações quando eu passo para outra sub. Veja outro exemplo que está acontecendo.

 

Dim str_cliente as String

Sub logar(Obj as Object, e as Eventargs)

Dim str_sql as String

Dim str_usuario as DataSet

Dim str_executa as New Executa_busca()

str_sql = "Select nome, cpf, sobrenome from cliente where email='"& tb_login.text &"' and senha='"& tb_senha.text &"'"

str_usuario = str_executa.executa_busca_dataset(str_sql)

if str_usuario.tables(0).rows.count <> 0 then

lb_data.visible=false

pl_login.visible=false

pl_registro.visible=true

str_cliente = str_usuario.tables(0).rows(0)("cpf")

lb_resposta.text = "Olá, "+ str_usuario.tables(0).rows(0)("nome") +" "+ str_usuario.tables(0).rows(0)("sobrenome") +", a data de revisão escolhida foi "+ lb_data_revisao.text +"<br><br>"

else

 

end if

str_usuario = nothing

end sub

 

Se eu der um response.write dentro desta sub, ele me retorna o valor do cpf do usuário, mas se eu tentar usar esta variavel em outra sub, mesmo que dentro da mesma página, não possuo nenhum valor.

 

sub registrar_revisao(Obj as Object, e as Eventargs)

Dim str_insere as String

response.write(str_cliente)

.............

end sub

[rOcKLoCo 0]

Certo... então 1º ele executa o Logar e logo depois já executa o registrar_revisao?os dados estão vindo corretamente do banco né?falows