[Resolvido] Select Max NãO Passa Do 10

#1 regitronic

Novato no fórum

Usuários
23 posts

Sexo:Não informado

Posted 17/11/2009, 14:34

Gente usei o select max para gerar numero sequenciais e gravar no BD mas quando chega no 10 ele so grava 10,10,10,10 num passa pro 11 alguem sabe pq?
abaixo está o codigo:

<%
If IsEmpty(Session("login")) Then
Response.redirect("index.asp")
End if

constr=server.mappath("bd1.mdb")
banco="dbq="&constr&";driver={microsoft access driver (*.mdb)}"
set conexao=server.createobject("adodb.connection")
conexao.open banco

set ri = conexao.execute("INSERT INTO controle_acesso (usuario, data, hora, pagina) VALUES ('"&request.QueryString("nome")&"', '"&date&"', '"&time&"', 'cod_abrecliente.asp')")
rs2 = conexao.execute("SELECT max(num_pedido) +1 AS cod FROM pedidos")
%>

Edição feita por: Renan L. Queiroz, 18/11/2009, 09:06.

#2 DiegoCoruja

12 Horas

Usuários
178 posts

Sexo:Masculino
Localidade:São Vicente - SP
Interesses:PROGRAMAÇÃO, WEB DESIGN, ESPORTE,

Posted 17/11/2009, 15:26

Ola amigo,
cade o insert do numero do pedido ? nesse codigo voce só está fazendo um select que vai continuar no mesmo resultado!

====================================================
Diego M.
Html, CSS, Javascript, Asp, Asp.net, Php, Sql Server, Mysql, Oracle, VB.NET, VBA
====================================================

#3 regitronic

Novato no fórum

Usuários
23 posts

Sexo:Não informado

Posted 17/11/2009, 15:43

sim, o valor que e gerado no select é mostrado em uma text field que e inserida no banco em outra pagina, o porem e que quando é gerado o valor na text box quando chega no 10 ele num gera mais, ele gera normal 1,2,3,4,5,6,7,8,9,10 mas num gera 11,12,13,14..... tendeu?

#4 DiegoCoruja

12 Horas

Usuários
178 posts

Sexo:Masculino
Localidade:São Vicente - SP
Interesses:PROGRAMAÇÃO, WEB DESIGN, ESPORTE,

Posted 17/11/2009, 16:40

Humm, então criei uma pagina simples com um insert em uma tabela access e deu certo

[codebox]<%@ 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>
[/codebox]

====================================================
Diego M.
Html, CSS, Javascript, Asp, Asp.net, Php, Sql Server, Mysql, Oracle, VB.NET, VBA
====================================================

#5 regitronic

Novato no fórum

Usuários
23 posts

Sexo:Não informado

Posted 18/11/2009, 09:00

aewwwwwwwwwwwwwwwww valeuuu cara! adaptei o seu codigo pro meu deu certinhoo abraçoss e brigadoo

#1 regitronic

#2 DiegoCoruja

#3 regitronic

#4 DiegoCoruja

#5 regitronic

1 user(s) are reading this topic

Entrar