relação a tabelas e seus valores

[GuilhermeT 0]

Boa tarde.

 

estou montando um sistema de visualização de chamados de um banco de dados em uma tabela simples e gostaria de saber de como pegar o valor de determinada linha e passar para outra página (tentei com Session mas não da)

 

 

<tr>
<td><%=tbAcha2("Codigo")%></td>
<td><%=tbAcha2("Data")%></td>
<td><%=tbAcha2("Hora")%></td>
<td><%=tbAcha2("NomeChamado")%></td>
<td><%=tbAcha2("Usuario")%></td>
<td><a href="visualizarchamado.asp" target="_blank" title="Visualizar"><img src="imagens/view_icon.png"></a> <a href="deletarchamado.asp" title="Deletar"><img src="imagens/delete_icon.png"></a></td>
</tr>

sql = "SELECT * from Chamados WHERE Codigo ='" & AQUIAVARIAVEL & "'"

 

Exemplo:

 

O usuário clica no botão view_icon na linha 1 e passa para outra página onde tem um select no bd que é preciso usar o valor do código da linha em que o ícone foi clicado pelo usuário.

 

qualquer coisa eu explico mais, agradeceria mto quem pudesse ajudar

 

 

 

 

[Gilberto Jr 26]

Boa tarde.

 

No icone que voce coloca pra clicar pra ver o restante basta criar uma querystring().

<a href="viwechamado.asp?id=<%=rs("id")%>">view</a>

 

Na outra pagina voce faz o select com base na sua querystring.

select * from chamado where id='"&request.querystring("id")&"'

 

 

https://www.facebook.com/webprogramation

 

Att;

[GuilhermeT 0]

<table>


<tr>
<td><strong>Código</strong></td>
<td><strong>Data</strong></td>
<td><strong>Hora</strong></td>
<td><strong>Assunto</strong></td>
<td><strong>Solicitante</strong></td>
<td><strong>Opções</strong></td>
</tr>


<% 
<!--#include file="_conexao.asp" -->
Dim tbAcha2, sql2, rs
call abrir_conexao


sql2 = "SELECT * from Chamados WHERE CPFCNPJ ='" & session("cpfcnpj3") & "'"


set tbAcha2=Server.CreateObject("ADODB.Recordset")
tbAcha2.Open sql2, bd


If tbAcha2.EOF then
%>
<tr>
<td>N/A</td>
<td>N/A</td>
<td>N/A</td>
<td>N/A</td>
<td>N/A</td>
<td>N/A</td>
</tr>
<%
End If


do while not tbacha2.EOF
%>


<tr>
<td><%=tbAcha2("Codigo")%></td>
<td><%=tbAcha2("Data")%></td>
<td><%=tbAcha2("Hora")%></td>
<td><%=tbAcha2("NomeChamado")%></td>
<td><%=tbAcha2("Usuario")%></td>
<td><a href="visualizarchamado.asp?id=<%=rs("id")%>" target="_blank" title="Visualizar"><img src="imagens/view_icon.png"></a> <a href="http:\\www.google.com.br" title="Deletar"><img src="imagens/delete_icon.png"></a></td>
</tr>
<%
tbAcha2.movenext
loop 
%>


</table>

Código do meuschamados.asp

 

Microsoft SQL Server Native Client 10.0 error '80040e07'

Conversion failed when converting the varchar value ' <font face=' to data type int.

/intranet/visualizarchamado.asp, line 9

 

Erro que dá ao clicar no visualizarchamado.asp /\

 

intranet/visualizarchamado.asp?id=%20%3Cfont%20face=

 

Link que ficou o visualizar chamados

 

 

<!--#include file="_conexao.asp" -->
<%
Dim sql, tbAcha, sql2, tbAcha2, nomecliente, finalidade, fina
call abrir_conexao
sql = "SELECT * from Chamados WHERE Codigo ='" & request.querystring("id") & "'"
set tbAcha=Server.CreateObject("ADODB.Recordset")
tbAcha.Open sql, bd


sql2 = "select Clientes.NomeCliente from Clientes where Clientes.CPFCNPJ = '" & session("cpfcnpj3") &"'"
set tbAcha2=Server.CreateObject("ADODB.Recordset")
tbAcha2.Open sql2, bd

If tbAcha2.EOF Then
Else
	nomecliente = tbAcha2("NomeCliente")
End If

If tbAcha("Finalidade") = 0 Then
	finalidade = "Atendimento"
Else
	finalidade = "Solicitação"
End If
%>

linha 9 em destaque sql = "SELECT * from Chamados WHERE Codigo ='" & request.querystring("id") & "'"

 

obrigado desde ja

[Gilberto Jr 26]

Veja se agora vai funcionar.

 

O "rs" foi só de exemplo que eu coloquei.

 

Agora eu alterei da forma deve ficar.

<table>


<tr>
<td><strong>Código</strong></td>
<td><strong>Data</strong></td>
<td><strong>Hora</strong></td>
<td><strong>Assunto</strong></td>
<td><strong>Solicitante</strong></td>
<td><strong>Opções</strong></td>
</tr>


<% 
<!--#include file="_conexao.asp" -->
Dim tbAcha2, sql2, rs
call abrir_conexao


sql2 = "SELECT * from Chamados WHERE CPFCNPJ ='" & session("cpfcnpj3") & "'"


set tbAcha2=Server.CreateObject("ADODB.Recordset")
tbAcha2.Open sql2, bd


If tbAcha2.EOF then
%>
<tr>
<td>N/A</td>
<td>N/A</td>
<td>N/A</td>
<td>N/A</td>
<td>N/A</td>
<td>N/A</td>
</tr>
<%
End If


do while not tbacha2.EOF
%>


<tr>
<td><%=tbAcha2("Codigo")%></td>
<td><%=tbAcha2("Data")%></td>
<td><%=tbAcha2("Hora")%></td>
<td><%=tbAcha2("NomeChamado")%></td>
<td><%=tbAcha2("Usuario")%></td>
<td><a href="visualizarchamado.asp?id=<%=tbAcha2("Codigo")%>" target="_blank" title="Visualizar"><img src="imagens/view_icon.png"></a> <a href="http:\\www.google.com.br" title="Deletar"><img src="imagens/delete_icon.png"></a></td>
</tr>
<%
tbAcha2.movenext
loop 
%>


</table>

 

 

https://www.facebook.com/webprogramation

 

Att;

[GuilhermeT 0]

Putz Gilberto, sensacional! Muito obrigado pela sua ajuda, mta coisa que eu n sabia estou podendo aprender, obg.

[Gilberto Jr 26]

Valeu,

 

+1 resolvido.

 

Se puder curtir a pagina no facebook Programação Web eu agradeço.

 

https://www.facebook.com/webprogramation

 

Att;