Ir para conteúdo

POWERED BY:

Arquivado

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

Tosta

Verificar último registro

Por , em ASP Clássico

Recommended Posts

Tosta    0

Tosta
Postado

Estou com um projeto que tem vários códigos em uma tabela. Ex.:

ID | COD

1 | 1000

2 | 1000

3 | 1000

4 | 1000

5 | 1000

 

Fiz um método para gravar o COD e ir ao próximo registro em branco e se o próximo estiver realmente em branco irá aparecer um botão CADASTRAR, mas caso já tenha todos sido preenchidos quero que apareça um botão ESGOTADO.

 

Consegui chegar ao último registro, mas não consigo comparar se ele é o último registro para aparecer o botão esgotado.

 

Meu select para listagem dos dados é:

strSQL1 = "SELECT TOP 1 * FROM tblCUPONS WHERE IDSITES = "& intSiteIDNo &" ORDER BY COD DESC"

 

Alguém pode me dar uma luz para este caso?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Motta    645

Motta
Postado

Nao sei se e isto mas

 

 

 

Select max(id) from tabela

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

vc pode antes recuperar o ultimo registro incluído, usar o SQL Last()
A função Last() retorna o último valor da coluna selecionada.

SELECT LAST(column_name) FROM table_name

existem alguns tópicos sobre este assunto no fórum, da´uma pesquisada...

no SQL SERVER, você pode recuperar essa valor com

SELECT @@IDENTITY

no MySQL vc pode usar o LAST_INSERT_ID()

OU último registro e somar + 1 e inserir no bd

<%@ Language=VBScript %>
<% Option Explicit %>
<%
'conexao teste com mdb
Dim localbd, bd

Set bd = Server.CreateObject("ADODB.Connection")
localbd = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("banco.mdb")
bd.Open localbd

Dim sql, rs
Dim cd_pedido

Set rs = Server.CreateObject("ADODB.RecordSet")

if Request.Form("btenvia") = "Gerar Numero" then
'Novo numero
SQL = "SELECT MAX(N_PEDIDO)+1 AS ULITMO_PEDIDO FROM PEDIDO"
Set rs = bd.Execute (sql)
cd_pedido = rs.Fields("ULITMO_PEDIDO").Value

'inserindo novo numero
bd.Execute ("INSERT INTO PEDIDO (N_PEDIDO) VALUES (" & cd_pedido & ")")
rs.Close

end if

'verificando numero
SQL = "SELECT MAX(N_PEDIDO) AS ULITMO_PEDIDO FROM PEDIDO"
Set rs = bd.Execute (sql)
cd_pedido = rs.Fields("ULITMO_PEDIDO").Value


rs.Close
Set rs = Nothing

bd.Close
Set bd = Nothing
%>
<html>
<head>
<title>Numero Sequencial</title>
</head>
<body>
<center>
<form id="frm" action="Numero_Sequencial.asp" method="post">
Numero do ultimo pedio:<%=cd_pedido%><br>
<input type="submit" id="btenvia" name="btenvia" value="Gerar Numero" />
</form>
</center>
</body>
</html>

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