• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

8 mensagens neste tópico

Por favor preciso mesmo de ajuda aqui nisto..um pouco de urgência também... :D

O objectivo é:(vou tentar explicar bem)

Tipo queres saber o apelido de uma pessoa mas só sabes o nome...Então...eu gostava de ter algo igual ao do nome...para saber o apelido

Como eu gostava que aparecesse...

semttulopm0.th.jpg

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

O objectivo é:(vou tentar explicar bem)

Tipo queres saber o apelido de uma pessoa mas só sabes o apelido...então tem de haver algo. Eu gostava de ter algo igual ao do nome...

Não percebi nada do que disseste. E já agora, queres isso em Access?? Ou em SQL?? Tens de ser mais específico.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

cruzes  :biggrin: tens mesmo de explicar melhor porque mesmo com a imagem ao lado não entendo

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

e já agora, coloca um título que dê uma ideia de qual é a tua dúvida.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

1. Já está.

2. Eu quando selecciono um nome na lista e carrego no botão Mostrar Nomes, aparece os dados. Por isso o objectivo é o mesmo para os apelidos....ou seja aparecer os dados.

3. Foi feito em access

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Podem mandar isto abaixo ???

A política do P@P é não eliminar os posts. Não te preocupes. :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

<html>

<body>

<title>Dados</title>

<%

set conn=Server.CreateObject("ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open(Server.Mappath("apai.mdb"))

set rs=Server.CreateObject("ADODB.recordset")

sql="SELECT DISTINCT Nome FROM Pessoal ORDER BY Nome"

rs.Open sql,conn

set conn=Server.CreateObject("ADODB.recordset")

sql1="select distinct apelido from pessoal order by apelido"

rs1.open sql1,conn

nome=request.form("nome")

apelido=request.Form("apelido")

%>

<-- Nome -->

<form method="post">

Escolhe o Nome: <select name="Nome"  id="1">

<% 

      if form.id="1" then    <---- Linha 15

    do until rs.EOF

    response.write("<option")

    if rs.fields("Nome")=Nome then

      response.write(" selected ")

    end if

    response.write(">")

    response.write(rs.fields("nome"))

    rs.MoveNext

loop

rs.Close

set rs=Nothing %>

</select>

<input type="submit" value="Mostrar Pessoal"></form>

<%

if nome<>"" then

  sql="SELECT Nome, Apelido, Morada, datadenascimento, localidade, cpostal, zona, CTT, Email FROM Pessoal WHERE Nome='" & nome & "'"

  set rs=Server.CreateObject("ADODB.Recordset")

  rs.Open sql,conn

%>

  <table width="100%" cellspacing="1" cellpadding="2" border="1">

  <tr>

    <th>Nome</th>

    <th>Apelido</th>

    <th>Morada</th>

    <th>Data de Nascimento</th>

    <th>Localidade</th>

    <th>Código Postal</th>

    <th>Zona</th>

    <th>CTT</th>

    <th>Email</th>

  </tr>

<%

do until rs.EOF

  response.write("<tr>")

  response.write("<td>" & rs.fields("nome") & "</td>")

  response.write("<td>" & rs.fields("apelido") & "</td>")

  response.write("<td>" & rs.fields("morada") & "</td>")

  response.write("<td>" & rs.fields("datadenascimento") & "</td>")

  response.write("<td>" & rs.fields("localidade") & "</td>")

  response.write("<td>" & rs.fields("cpostal") & "</td>")

  response.write("<td>" & rs.fields("zona") & "</td>")

  response.write("<td>" & rs.fields("CTT") & "</td>")

  response.write("<td>" & rs.fields("Email") & "</td>")

  response.write("</tr>")

  rs.MoveNext

loop

rs.close

conn.Close

set rs=Nothing

set conn=Nothing%>

</table>

<%  end if %>

<-- Apelido -->

<form method="post">

Escolhe o Apelido: <select name="Apelido" id="2">

<% 

      if form.id="2" then

    do until rs1.EOF

    response.write("<option")

    if rs1.fields("apelido")=Nome then

      response.write(" selected ")

    end if

    response.write(">")

    response.write(rs1.fields("apelido"))

    rs1.MoveNext

loop

rs1.Close

set rs1=Nothing %>

</select>

<input type="submit" value="Mostrar Pessoal"></form>

<%

if apelido<>"" then

  sql="SELECT Nome, Apelido, Morada, datadenascimento, localidade, cpostal, zona, CTT, Email FROM Pessoal WHERE apelido='" & apelido & "'"

  set rs1=Server.CreateObject("ADODB.Recordset")

  rs1.Open sql1,conn

%>

  <table width="100%" cellspacing="1" cellpadding="2" border="1">

  <tr>

    <th>Nome</th>

    <th>Apelido</th>

    <th>Morada</th>

    <th>Data de Nascimento</th>

    <th>Localidade</th>

    <th>Código Postal</th>

    <th>Zona</th>

    <th>CTT</th>

    <th>Email</th>

  </tr>

<%

do until rs1.EOF

  response.write("<tr>")

  response.write("<td>" & rs1.fields("nome") & "</td>")

  response.write("<td>" & rs1.fields("apelido") & "</td>")

  response.write("<td>" & rs1.fields("morada") & "</td>")

  response.write("<td>" & rs1.fields("datadenascimento") & "</td>")

  response.write("<td>" & rs1.fields("localidade") & "</td>")

  response.write("<td>" & rs1.fields("cpostal") & "</td>")

  response.write("<td>" & rs1.fields("zona") & "</td>")

  response.write("<td>" & rs1.fields("CTT") & "</td>")

  response.write("<td>" & rs1.fields("Email") & "</td>")

  response.write("</tr>")

  rs1.MoveNext

loop

rs1.close

conn.Close

set rs1=Nothing

set conn=Nothing

%>

</table>

<%End If %>

<% end if %>

<% end if %>

</body>

</html>

//O erro que tem dado é:

Tipo de erro:

Erro em tempo de execução do Microsoft VBScript (0x800A01A8)

Objecto necessário: ''

/dados.asp, linha 15

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora