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

RicardoC

[Dúvida]ASP Base de dados - Urgente :(

1 mensagem neste tópico

Eu gostava de saber como consigo listar qualquer dados que tenham números como datas de nascimento ou código postal por exemplo.

Aqui fica o exemplo que eu fiz e que pelos vistos deu erro.

<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

nome=request.form("nome")

%>

<%

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

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

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

set rapelido=server.CreateObject("ADODB.recordset")

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

rapelido.open saplido,conn

apelido=request.form("apelido")

%>

<-- Nome -->

<form method="post">

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

<% 

     

    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">

<% 

    do until rs1.EOF

    response.write("<option")

    if rapelido.fields("apelido")=Apelido then

      response.write(" selected ")

    end if

    response.write(">")

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

    rapelido.MoveNext

loop

rapelido.Close

set rapelido=Nothing

%>

</select>

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

<%

if apelido<>"" then

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

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

  rapelido.Open sapelido,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 rapelido.EOF

  response.write("<tr>")

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

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

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

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

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

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

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

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

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

  response.write("</tr>")

  rapelido.MoveNext

loop

rapelido.close

conn.Close

set rapelido=Nothing

set connapelido=Nothing

%>

</table>

<%End If %>

</body>

</html>

O erro é:

Tipo de erro:

Microsoft JET Database Engine (0x80040E10)

Não foi fornecido nenhum valor para um ou mais parâmetros necessários.

/DatadeNascimento.asp, linha 11

Estou a fazer em Access a base de dados

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