Ir para conteúdo
Fórum Script Brasil
  • 0

Problemas Com Auto Numeração


avontzdnb

Pergunta

Antes de tudu..

Feliz natal para todos smile.gif

seguinte...

Estou com um pequeno problema..

o meu sistema de autonumeração não esta seguindo legal...

NO meu banco de dados acess, o campo codigo esta como autonumeração e que não pode se repetir..

O problema esta quando vou deletar um campo.

tipo, quando já estou na numeração 10.. e deleto o codigo 5... quando vou fazer uma nova entrada na tabela, ele não vai como numero 11.. mas sim como numero 5...

eis o codigo

dim temp01, temp02

cond=request.QueryString("cond")

lote=request.QueryString("lote")

    codigo=request.QueryString("codigo")

gen= request.QueryString("gen")

texto = request.QueryString("texto")

minimo = request.QueryString("minimo")

img = request.QueryString("img")

obs = request.QueryString("obs")

dono = request.QueryString("dono")

criador =request.QueryString("criador")

coment = request.QueryString("coment")

touro = request.QueryString("touro")

data = "" & now

temp01 = 0 ***parte do autonumeração, começa com zero e faz contagem até chegar no espaço aberto.. gostaria que chega-se no espaço aberto..... e verifica-se se é o ultimo numero, e não um buraco., entenderam? ***

ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\xsa\dados\base.mdb;"

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open ConnString

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

sql = "SELECT * FROM [principal]"

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

    rs.Open sql, Conexao

On Error Resume Next

rs.MoveFirst

do while Not rs.eof

  temp01 = temp01 + 1

rs.MoveNext

loop

temp01 = temp01 + 1

    sql = "INSERT INTO Principal (Codigo,Data,Lote,Gen,Cond,Texto,Img,Minimo,Obs,Dono,Criador,Touro,Coment,Lances) values ('" & temp01 & "','" & data & "','" & lote & "','" & gen & "','" & cond & "','" & texto & "','" & img & "','" & minimo & "','" & obs & "','" & dono & "','" & criador & "','" & touro & "','" & coment & "','0')"

Set rs = Conexao.execute(sql)

response.Write sql

rs.close

set rs = Nothing

  Conexao.close

Set Conexao=Nothing

biggrin.gif

Se alguém puder dar uma força.. valeuz smile.gif

t+!

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0
Guest - André -

Cara não entendi uma coisa...

Se o campo está como autonumeração no banco, porque na instrução sql você insere um valor pra ele?

porque se no banco está como autonumeração, não precisa mandar inserir valor nele, o banco cuida disso

falow

valeu

Link para o comentário
Compartilhar em outros sites

  • 0

então.. eu posso tirar o contador de post que o banco cuida disso sozinho?

sim.

e so fazer:

    sql = "INSERT INTO Principal (Data,Lote,Gen,Cond,Texto,Img,Minimo,Obs,Dono,Criador,Touro,Coment,Lances) values (data & "','" & lote & "','" & gen & "','" & cond & "','" & texto & "','" & img & "','" & minimo & "','" & obs & "','" & dono & "','" & criador & "','" & touro & "','" & coment & "','0')"
Set rs = Conexao.execute(sql)
response.Write sql

não precisa ter o trabalho d ficar contando os registros.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...