Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

razstec

buscar dados a tabela atravez da session

Por , em ASP Clássico

Recommended Posts

razstec    0

razstec
Postado

Pessoal tenho de ir a tabela utilizadores buscar os dados de um username igual ao username da session e fiz isto assim, mas da-me 1 erro no "Conn.Execute(sql)" de que sera?<%Session.TimeOut = 30If Session("username") = "" ThenResponse.Redirect "login.asp"End If %><%DataPath = Server.MapPath("dbsniffit/dbsniffitdb.mdb")Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataPath & ";Persist Security Info=False"set rs=server.createobject("adodb.recordset")sql = "select * FROM utilizadores WHERE username = " & Session("username")& ";"Conn.Execute(sql)%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

seria essencial você dizer o código e a mensagem do errose o campo Username for do tipo texto o sql fica assimsql = "select * FROM utilizadores WHERE username = '" & Session("username")& "';" e você deve definir um recordset para Selectset rs = conn.execute(sql)

Compartilhar este post

Link para o post
Compartilhar em outros sites

razstec    0

razstec
Postado

o campo username e memo, o erro que da nao consigo agora ver mas ontem pesquisei no google e la dizia que era qualquer coisa da ligacao a base de dados.Se eu defenir:dim usrusr=Session("username")sql = "select * FROM utilizadores WHERE username = " & usr & ";"Sera que assim da??

Compartilhar este post

Link para o post
Compartilhar em outros sites

razstec    0

razstec
Postado

To completamente a dar em doido com isto... eu so quero que ele chame todos os dados da tabela utilizadores em que o username é igual ao da session e da-me este erro

 

Microsoft JET Database Engine error '80040e07'

 

Data type mismatch in criteria expression.

 

/pantufas/Sniff/profile.asp, line 21

 

a linha 21 esta entre ******

 

se alguem me der uma ajuda é que nao a maneira de atinar com isto

 

<%Session.TimeOut = 30If Session("username") = "" ThenResponse.Redirect "login.asp"End If %><html><head><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><title></title></head><%DataPath = Server.MapPath("dbsniffit/dbsniffitdb.mdb")Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataPath & ";Persist Security Info=False"set rs=server.createobject("adodb.recordset")sql = "select * FROM utilizadores WHERE username = " & Session("username")& " " 	 ******Conn.Execute(sql)*********%><body><div style="position: absolute; top: 32px; left: 149px; width: 410px; height: 65px; z-index: 9" align="center"><table border="0" id="table1" width="565"><tr><td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">Username:</td><td text=black style="border: 3px double #C0C0C0"><%=rs.Fields("username")%></td></tr><tr><td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">Password:</td><td text=black style="border: 3px double #C0C0C0"><%=rs.Fields("password")%></td></tr><tr><td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right"> </td><td >  </td></tr><tr><td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">Nome:</td><td text=black style="border: 3px double #C0C0C0" ><%=rs.Fields("nome")%></td></tr><td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">Morada:</td><td text=black style="border: 3px double #C0C0C0"><%=rs.Fields("morada")%></td></tr><td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">Localidade:</td><td text=black style="border: 3px double #C0C0C0"><%=rs.Fields("localidade")%></td></tr><td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">Cod. Postal:</td><td text=black style="border: 3px double #C0C0C0" ><%=rs.Fields("codpostal")%></td></tr><td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">País:</td><td text=black style="border: 3px double #C0C0C0" ><%=rs.Fields("pais")%></td></tr><tr><td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right"> </td><td >  </td></tr><td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">Data Nascimento:</td><td text=black style="border: 3px double #C0C0C0"><%=rs.Fields("datanasc")%></td></tr><td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">Telefone:</td> <td text=black style="border: 3px double #C0C0C0"><%=rs.Fields("telefone")%></td></tr><tr><td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">E-mail:</td><td text=black style="border: 3px double #C0C0C0"><%=rs.Fields("email")%></td></tr><tr><td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">Data:</td><td text=black style="border: 3px double #C0C0C0"><%=rs.Fields("data")%></td></tr><tr><td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">Hora:</td><td text=black style="border: 3px double #C0C0C0"><%=rs.Fields("hora")%></td></tr></tr></table></div></body></html><%conn.close%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

aparentemente faltam as aspas simplessql = "select * FROM utilizadores WHERE username = '" & Session("username")& "'"

Compartilhar este post

Link para o post
Compartilhar em outros sites

razstec    0

razstec
Postado

fiz a alteracao que disseste mas continua a dar erro :(Username: ADODB.Recordset error '800a0cc1' Item cannot be found in the collection corresponding to the requested name or ordinal. /pantufas/Sniff/profile.asp, line 38

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Agora é o nome de algum campo que deve estar com algum erro.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Não é na SQL, é mais abaixo, você deve estar requisitando algum campo que não existe nessa tabela, note que a descrição e linha do erro já mudaram na mensagem de erro. A sua SQL aparentemente já está funcionando.

Compartilhar este post

Link para o post
Compartilhar em outros sites

razstec    0

razstec
Postado

sim, eu tava a falar da tabela que chama os campos, eu ja verifiquei e os nomes dos campos batem todos certo com os da tabela.p****, to lixado... bate tudo certo com a bd

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o qeu tem exatamente nesta linha?

Compartilhar este post

Link para o post
Compartilhar em outros sites

razstec    0

razstec
Postado

<td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">Username:</td><td text=black style="border: 3px double #C0C0C0"><%=rs.Fields("username")%></td>

Compartilhar este post

Link para o post
Compartilhar em outros sites

razstec    0

razstec
Postado

Pessoal ja funciona :)

 

<%Session.TimeOut = 30If Session("username") = "" ThenResponse.Redirect "login.asp"End If %><html><head><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><title></title></head><%DataPath = Server.MapPath("db/dbsniffitdb.mdb")Set DBCon = Server.CreateObject("ADODB.Connection")DBCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataPathset rs = Server.CreateObject("ADODB.Recordset")sql = "select * FROM utilizadores WHERE username = '" & Session("username")& "'" rs.open sql, DBCon, 3%><body><div align="left">	<table border="0" id="table1" width="439">		<tr>			<td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">			<font size="2" face="Verdana">Username:</font></td><% if not rs.eof then %><% if not rs.eof then %><td text=black style="border: 3px double #C0C0C0">			<font size="2" face="Verdana"><%=rs.Fields("username")%></font></td><% end if %>		</tr>		<tr>			<td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">			<font size="2" face="Verdana">Password:</font></td><% if not rs.eof then %><td text=black style="border: 3px double #C0C0C0">			<font size="2" face="Verdana"><%=rs.Fields("password")%></font></td><% end if %>		</tr>		<tr>			<td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right"> </td>			<td ></td>		</tr>		<tr>			<td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">			<font size="2" face="Verdana">Nome:</font></td><% if not rs.eof then %><td text=black style="border: 3px double #C0C0C0" >			<font size="2" face="Verdana"><%=rs.Fields("nome")%></font></td><% end if %>		</tr>		<td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">		<font size="2" face="Verdana">Morada:</font></td><% if not rs.eof then %><td text=black style="border: 3px double #C0C0C0">		<font size="2" face="Verdana"><%=rs.Fields("morada")%></font></td><% end if %>		</tr>		<td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">		<font size="2" face="Verdana">Localidade:</font></td><% if not rs.eof then %><td text=black style="border: 3px double #C0C0C0">		<font size="2" face="Verdana"><%=rs.Fields("localidade")%></font></td><% end if %>		</tr>		<td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">		<font size="2" face="Verdana">Cod. Postal:</font></td><% if not rs.eof then %><td text=black style="border: 3px double #C0C0C0" >		<font size="2" face="Verdana"><%=rs.Fields("codpostal")%></font></td><% end if %>		</tr>		<td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">		<font size="2" face="Verdana">País:</font></td><% if not rs.eof then %><td text=black style="border: 3px double #C0C0C0" >		<font size="2" face="Verdana"><%=rs.Fields("pais")%></font></td><% end if %>		</tr>		<tr>			<td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right"> </td>			<td > </td>		</tr>		<td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">		<font size="2" face="Verdana">Data Nascimento:</font></td><% if not rs.eof then %><td text=black style="border: 3px double #C0C0C0">		<font size="2" face="Verdana"><%=rs.Fields("datanasc")%></font></td><% end if %>		</tr>		<td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">		<font size="2" face="Verdana">Telefone:</font></td> <% if not rs.eof then %><td text=black style="border: 3px double #C0C0C0">		<font size="2" face="Verdana"><%=rs.Fields("telefone")%></font></td><% end if %>		</tr>		<tr>			<td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">			<font size="2" face="Verdana">E-mail:</font></td><% if not rs.eof then %><td text=black style="border: 3px double #C0C0C0">			<font size="2" face="Verdana"><%=rs.Fields("email")%></font></td><% end if %>		</tr>		<tr>			<td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">			<font size="2" face="Verdana">Data:</font></td><% if not rs.eof then %><td text=black style="border: 3px double #C0C0C0">			<font size="2" face="Verdana"><%=rs.Fields("data")%></font></td><% end if %>		</tr>		<tr>			<td text=black bgcolor="#FFFFFF" width="131" bordercolor="#C0C0C0" align="right">			<font size="2" face="Verdana">Hora:</font></td><% if not rs.eof then %><td text=black style="border: 3px double #C0C0C0">			<font size="2" face="Verdana"><%=rs.Fields("hora")%></font></td><% end if %>		</tr></tr>	</table></div></body></html><%DBCon.CloseSet DBCon = Nothingend if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito