Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: hunter18 en 10 Diciembre 2010, 05:59 AM

Título: Como generar id's automaticamente
Publicado por: hunter18 en 10 Diciembre 2010, 05:59 AM
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


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