2 replies to this topic

[Reluviari]

caras tenho q fazer uma consulta onde.....

os resultados da consulta sejam linkeados para seus dados

tipo.... eu faço uma busca pelo nome do cara, (DANILO)
apareceram varios (DANILO) mais o que quero é o (DANILO SILVA)
dai eu tenho q saber quais os dados desse cara (só desse cara)
tipo tenho q clicar duas vezes no nome dele e os dados dele deveram aparecer ...
como faço isso

por favor me ajudemmmmm
valewwww

[ESPIA]

Ué! Partindo-se do princípio q vc conheça ASP e SQL o esqueletão é:

1. Carregue um recordset com o NOME e o ID dos caras like "DANIEL*".
2. Jogue isto pra um objeto listbox onde o ID fique oculto e apareça pro usuário só o NOME (pra ele clicar em um).
3. Quando o usuário der um duplo clique, pegue o ID selecionado e preencha um novo recordset com todos os dados q vc precisa daquele ID.
4. Mostre o resultado num novo form ou algo assim...

Era isto?

[<% developer %>]

lembre-se que o campo id é do tipo autonumeração

<%
SQL = "Select * From tabela where nome = '" & Replace(Request.Form("nome"),"'","''") "' "
Set con = Server.CreateObject("ADODB.Connection")
con.Open 'escreva aqui o driver, loc. do banco, usuário e senha...
Set RS = con.Execute(SQL)

if RS.eof then
Response.write "não há usuários cadastrados com esse nome
end if

do while not rs.eof
response.write "<a href=link.asp?id=" & RS.Fields("id") & ">" &_
 "" & Rs.Fields("nome") & "</a><br>"
rs.movenext
loop

'feche os objetos...
%>

página link.asp

<%
id = Request.form("id")

if isNumeric(id)<>true then
Response.Redirect("default.asp")
end if

SQL = "Select * From tabela where id = "" & id & "" "

Set con = Server.CreateObject("ADODB.Connection")
con.Open 'escreva aqui o driver, loc. do banco, usuário e senha...
Set RS = con.Execute(SQL)

Response.Write "Nome: " & Rs.Fields("nome") & vbNewline &_
 "<br>Sobrenome: " & Rs.Fields("sobrenome") & vbNewline
'.... e etc!

'feche os objetos
%>