Ir para conteúdo

POWERED BY:

Arquivado

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

marcelocardoso

Select penultimo registro

Por , em ASP Clássico

Recommended Posts

marcelocardoso    6

marcelocardoso
Postado

Amigos de Plantão!

 

Estou tentando fazer algo assim:

 

Tenho este select abaixo:

<%

'SELECIONAMOS O ULTIMO ACESSO

SET UltimoAcesso = ObjCX.Execute("SELECT * FROM Usuarios ORDER BY IDAcesso DESC")

AcessoData = FormatandoDatas(UltimoAcesso("AcessosData"))

%>

 

Onde seleciono o ultimo acesso, ou seja a data em que o cara acessou o sistema anteriormente.... ok, MAS oque eu precisava mesmo, não era a ultima data e SIM a PENULTIMA DATA....

 

Tem como fazer isso, no SELECT, ou de outro jeito????

 

 

 

Se alguém puder me ajudar, e me esclarem quanto a isso.

 

 

 

Obrigado!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

tenta dessa forma, pelo menos comigo funcionou.

 

SELECT TOP (2) * FROM tabela WHERE ID IN(SELECT TOP (2) ID FROM mesmatabela ORDER BY ID DESC ) ORDER BY ID ASC

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

Olá JIVAN!Funcionou joia!Só tive que tirar do SELECT o () do (2), e retirar o 2 por 1, e funcionou perfeitamente. okObrigado!Nem sabia que dava para fazer select com mais um SELECT dentro dele através desta instrução IN..,..valeu mesmo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Só se o script estiver sendo executado mais de uma vez.

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

Vou postar!

<!--#include file="../no-cache.asp" --><!--#include file="../conexao.asp" --><HTML><HEAD><TITLE><%=ObjRS("EmpresaSistema")%></TITLE><LINK HREF="../css.css" REL="stylesheet" TYPE="text/css"></HEAD><%'RECUPERAMOS DADOS DOS FORMULARIOS campo1 = Replace(Request.Form("usuario_seguro"),"'","") campo2 = Replace(Request.Form("senha_seguro"),"'","") campo3 = Request.ServerVariables("REMOTE_ADDR") campo4 = Date() campo5 = Time()'REFORMATAREMOS A DATA PARA O MODO CORRETO   FUNCTION FormataData(campodata)	dia = day   (campodata)	mes = month (campodata)	ano = year  (campodata)		  FormataData = ano&"/"&mes&"/"&dia END FUNCTION   campo6 = FormataData(campo4)  'MUDAMOS AS VARIAVEIS PARA TERMOS MAIS SEGURANÇA User = campo1 Pass = campo2 'SELECIONAMOS O USUARIO E SENHA PARA VER SE BATEM COM AS DO BANCO DE DADOS SET ObjRS = ObjCX.Execute("SELECT * FROM Usuarios1 WHERE LoginUsuario='"& User &"' AND LoginSenha='"& Pass &"'")'VERIFICAMOS SE O LOGIN CONFERE  IF ObjRS.EOF THEN 		   ERRO = ERRO & "<table width=""100%"" height=""100%"" border=""0"" cellpadding=""2"" cellspacing=""2"">"		   ERRO = ERRO & "  <tr>"		   ERRO = ERRO & "	<td valign=""middle""><table width=""300"" height=""230"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""Tabela_Borda1""><tr><td valign=""middle"" class=""Promocao_FonteDados1""><center><div align=""center"">Sua senha ou usuário devem   estar incorretos!<br />Retorne e tente novamente.</div></center><center><br><br><a href=""default.asp"" target=""_parent"" class=""Promocao_FonteDados7""><strong>Retornar</strong></a></center></td></tr></table></td>"		   ERRO = ERRO & "  </tr>"		   ERRO = ERRO & "</table>"	   Response.Write ERRO	   Response.End    END IF'RESGATAMOS DADOS DO BANCO DE DADOS E GUARDAMOS NA SESSION Session("COD")	= ObjRS("LoginNivel") Session("NAME")   = ObjRS("LoginNome")	   'INSERIMOS AGORA SE TUDO ESTIVER OK NA TABELA DE CONTROLE DE ACESSOS  SET LOGIN = ObjCX.Execute("INSERT INTO Usuarios2 (AcessosUser,AcessosData,AcessosHora,AcessosIP) VALUES ('"&User&"','"&campo6&"','"&campo5&"','"&campo3&"')")'FECHAREMOS AS CONEXÕES	 ObjCX.Close SET ObjCX = Nothing'SE TUDO ESTIVER OK, REDIRECIONAMOS PARA A PÁGINA A SEGUIR	 Response.Redirect "default.asp"%></BODY></HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

birobirosk8    0

birobirosk8
Postado

Tenta assim fio, falowww

 

<!--#include file="../no-cache.asp" --><!--#include file="../conexao.asp" --><HTML><HEAD><TITLE><%=ObjRS("EmpresaSistema")%></TITLE><LINK HREF="../css.css" REL="stylesheet" TYPE="text/css"></HEAD><%'RECUPERAMOS DADOS DOS FORMULARIOScampo1 = Replace(Request.Form("usuario_seguro"),"'","")campo2 = Replace(Request.Form("senha_seguro"),"'","")campo3 = Request.ServerVariables("REMOTE_ADDR")campo4 = Date()campo5 = Time()'REFORMATAREMOS A DATA PARA O MODO CORRETO  FUNCTION FormataData(campodata)	dia = day   (campodata)	mes = month (campodata)	ano = year  (campodata)		  FormataData = ano&"/"&mes&"/"&diaEND FUNCTION  campo6 = FormataData(campo4)  'MUDAMOS AS VARIAVEIS PARA TERMOS MAIS SEGURANÇAUser = campo1Pass = campo2'SELECIONAMOS O USUARIO E SENHA PARA VER SE BATEM COM AS DO BANCO DE DADOSSET ObjRS = ObjCX.Execute("SELECT * FROM Usuarios1 WHERE LoginUsuario='"& User &"' AND LoginSenha='"& Pass &"'")'VERIFICAMOS SE O LOGIN CONFERE  IF ObjRS.EOF THEN		   ERRO = ERRO & "<table width=""100%"" height=""100%"" border=""0"" cellpadding=""2"" cellspacing=""2"">"		   ERRO = ERRO & "  <tr>"		   ERRO = ERRO & "	<td valign=""middle""><table width=""300"" height=""230"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""Tabela_Borda1""><tr><td valign=""middle"" class=""Promocao_FonteDados1""><center><div align=""center"">Sua senha ou usuário devem   estar incorretos!<br />Retorne e tente novamente.</div></center><center><br><br><a href=""default.asp"" target=""_parent"" class=""Promocao_FonteDados7""><strong>Retornar</strong></a></center></td></tr></table></td>"		   ERRO = ERRO & "  </tr>"		   ERRO = ERRO & "</table>"	   Response.Write ERRO  ELSE  	   'RESGATAMOS DADOS DO BANCO DE DADOS E GUARDAMOS NA SESSION	   Session("COD")	= ObjRS("LoginNivel")	   Session("NAME")   = ObjRS("LoginNome")	   	   'INSERIMOS AGORA SE TUDO ESTIVER OK NA TABELA DE CONTROLE DE ACESSOS 	   SET LOGIN = ObjCX.Execute("INSERT INTO Usuarios2 (AcessosUser,AcessosData,AcessosHora,AcessosIP) VALUES ('"&User&"','"&campo6&"','"&campo5&"','"&campo3&"')")	   'FECHAREMOS AS CONEXÕES			ObjCX.Close	   SET ObjCX = Nothing	   'SE TUDO ESTIVER OK, REDIRECIONAMOS PARA A PÁGINA A SEGUIR		   Response.Redirect "default.asp"  END IF%></BODY></HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

Amigo, funcionou sim.... okEu é que vi errado.....Mas quanto ao que o JIVAN me postou:SELECT TOP (2) * FROM tabela WHERE ID IN(SELECT TOP (2) ID FROM mesmatabela ORDER BY ID DESC ) ORDER BY ID ASCUsei isso na primeira vez, e ele fez o que tinha que fazer no meu código, mas agora não está mais fazendo isso....Teria algum outro jeito de fazer isso, para selecionar os 2 ultimos USUARIOS e pegar a penultima data de acesso do camarada.....Como faço isso, pois esta instrução acima não está fazendo?Peço ajuda aos colegas e administradores....

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