BANCO DE DADOS

USUARIO.EXCLUIDOS 16/09/2005 10:50:32
#104578
Me ajudem........
Como faço um campo de auto numeração para código(meu bd é em access)
Valew pessoalll


icon_boy@msn.com
LIONHEART 16/09/2005 10:54:40
#104579
na hora de inserir um registro, vc faz assim

sql = "select max(codigo) + 1 from tabela"

assim, vc tem sempre o proximo registro a ser inserido
USUARIO.EXCLUIDOS 16/09/2005 12:24:54
#104604 
  
Private Sub CMDADDNEW_Click()
dim wvalor as integer 

ado.recordsource="select * from tabela order by codigo" 'Ordena os códigos
ado.refresh 'Atualiza a tabela para ordenar

ado.recordset.movenext 'Move para o ultimo registro
wvalor=ADO.Recordset.Fields("Camponumérico") 'Pega o valor do codigo do ultimo registro

ado.recordset.addnew 'Adiciona um novo registro
ADO.Recordset.Fields("Camponumérico") = wvalor + 1 'Faz a autonumeração
ado.recordset.update 'Grava

End Sub


Tenta isso aew cara...
Tópico encerrado , respostas não são mais permitidas
Voltar