Imprimir Página - Como generar id's automaticamente

Utilizo una bd en access2003 como podria optimizar este codigo para que NO haya duplicidad de primary key's

Seria mejor utilizar id's con tipo de dato auto en access2003 o cambiar a sqlserver pero la situacion actual es la que tengo.

El sistema no lo desarrolle yo pero me han encargado hacer alguno cambios, actualmente esta asi la generacion de id's

Código:

Private Sub Command1_Click()
Dim z As String
z = F_codigo

dbConex.Execute ("INSERT INTO Cliente VALUES('" & z & "','" & .Text2.Text & "')")

End Sub

Function F_codigo()
Dim zPlus As String
  
  Set rsAcumulador = dbConex.Execute("SELECT autoEmp FROM acumulador")

  zPlus = 0
  rsAcumulador.MoveLast
  zPlus = rsAcumulador(0) + 1
  zPlus = Format(Val(zPlus), "00")

  dbConex.Execute "UPDATE acumulador SET autoEmp='" & Trim(zPlus) & "'"
  F_codigo = zPlus

End Function

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: hunter18 en 10 Diciembre 2010, 05:59 am