Problemas Com Auto Numeração

[avontzdnb]

Antes de tudu..

Feliz natal para todos

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

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

t+!

[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

[Guest Guest]

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

[.Andreia.]

se está como autonumeração, num precisa criar um contador para atribuir ao banco... ele auto incrementa. Lembrando que se você deletar registros... ele não vai repor o numero faltando.

[Guest Guest]

mas mesmo assim eu tenho que jogar algo no campo codigomesmo que seja em branco ?

[kuroi]

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.

[.Andreia.]

mas mesmo assim eu tenho que jogar algo no campo codigomesmo que seja em branco ?

não, nem coloca ele na instrução INSERT... automaticamente ele insere.

[Guest Guest]

valeuz