Consultar apos incluir no banco

[paulojorge3l 0]

Olá Pessoal lá vem eu com minhas duvidas locas.. hehehehe Bom to fazendo uma ramificação para um sistema de controle de ferramenta cadastrar as ferramentas editar tudo beleza agora to fazendo um esquema para emprestar essa ferramenta bom o cara seleciona o cadastro dele em uma pagina a ferramenta q ele quer e beleza registra isso apos ele incluir no banco quero q ele veja uma pagina com os dados de quem pegou a ferramenta e qual ferramenta foi essa ai mora a duvida incluir no banco foi beleza mais não ta dando certo pegar o ultimo registro e passar no redrect segue o codigo pra aguem me ajudar abraços

 

<% Response.expires = 0Response.Buffer=TrueSet conn = Server.CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../../cx-preta/nucleo.mdb")idferramenta = Request("ferramenta")idfuncionario = Request("funcionario")cautela = Request("cautela")qtd = Request("qtd")[/b][b]sql = "INSERT INTO locacao (idferramenta, idfuncionario, cautela, qtd) VALUES ('"& idferramenta &"' , '"& idfuncionario &"' , '"& cautela &"' , '"& qtd &"') " Set Rs = Conn.Execute(SQL)[/b][b]Response.expires = 0Response.Buffer=TrueSet conn = Server.CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../../cx-preta/nucleo.mdb")[/b][b]SQL = "SELECT * FROM LOCACAO ORDER BY IDLOCACAO asc"Set Rs = Conn.Execute(SQL)[/b][b]funciorario = (Rs("idfuncionario"))ferramenta = (Rs("idferramenta"))locacao = (Rs("idlocacao"))[/b][b]Response.Redirect("../relatorio.asp?idfuncionario="&funcionario&"?idferramenta="&ferramenta&"?idlocacao="&locacao&"")[/b][b]rs.closeset rs = nothingconn.closeset conn=nothing%>

[Alexandre B. 0]

Cria duas recordset

 

<% Response.expires = 0Response.Buffer=TrueSet conn = Server.CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../../cx-preta/nucleo.mdb")idferramenta = Request("ferramenta")idfuncionario = Request("funcionario")cautela = Request("cautela")qtd = Request("qtd")sql = "INSERT INTO locacao (idferramenta, idfuncionario, cautela, qtd) VALUES ('"& idferramenta &"' , '"& idfuncionario &"' , '"& cautela &"' , '"& qtd &"') " Set rsInsert = Conn.Execute(SQL)sql = "SELECT * FROM LOCACAO ORDER BY IDLOCACAO asc"Set rsSelect = Conn.Execute(SQL)funciorario = (rsSelect ("idfuncionario"))ferramenta = (rsSelect ("idferramenta"))locacao = (rsSelect ("idlocacao"))Response.Redirect("../relatorio.asp?idfuncionario="&funcionario&"?idferramenta="&ferramenta&"?idlocacao="&locacao&"")rsInsert .closeset rsInsert = nothingrsSelect.closeset rsSelect  = nothing conn.closeset conn=nothing%>

[Salgado 4]

Utilize extamente os mesmos parâmetros que utilizou para inserir para fazer o seu SELECT após.

[paulojorge3l 0]

Bom dia Galera,Ae Salgado e Alexandre B. deu certinho só tive que mudar a linha do Response que tava assimResponse.Redirect("../relatorio.asp?idfuncionario="&funcionario&"?idferramenta="&ferramenta&"?idlocacao="&locacao&"")e tava com um monte de ? e não é é com & para funcionar ficou assimResponse.Redirect("../relatorio.asp?idfuncionario="&funcionario&"&idferramenta="&ferramenta&"&idlocacao="&locacao&"")Valew pessoal pela ajuda demais deu tudo certo