Visual Basic?

Question

Estoy con un programa de visual basic 6 y visData
Data1.Recordset lo que quiero hacer es generar un autoincremento como clave cada vez q haya una nueva captura esta se incremente no se q propiedad utilizar se q se debe buscar el ultimo registro e incrementar al ser un nuevo registro pero no se como?

Alguien podria decirme como hacerle
gracias
y por cierto felices fiestas

Answer 1

puedes usar algo como esto:

Private Sub Command1_Click()
Dim nUltimoNumero As Integer

Data1.Recordset.MoveLast
nUltimoNumero = 0 & Data1.Recordset.Fields(0)

Data1.Recordset.AddNew
Data1.Recordset.Fields(0) = nUltimoNumero + 1
Data1.Recordset.Update
End Sub

En "Fields(0)", el cero corresponde al primer campo en la BD, asi que debes sustituirlo por el numero de posicion en que se encuentre el campo que quieres ir incrementando.
Tambien quizas tengas que cambiar el tipo de dato de la variable "nUltimoNumero"

Answer 2

Debes tener un campo que se de autoincremento. Para esto, debes definirlo al momento de crear la base de datos.

Si lo defines utilizando DDL, lo haces así:

DDL_Instruction = "CREATE TABLE EMPRESAS " & _
"(EMP_ID AUTOINCREMENT, " & _
"EMP_Nombre TEXT (80), " & _
"EMP_Clave TEXT (80), " & _
"EMP_Direccion TEXT (80), " & _
"EMP_RFC TEXT (15) );"
dbCentral.Execute DDL_Instruction


Si creas la tabla en ACCESS, pues, desde allí lo indicas en el tipo de campo .

Este campo se incrementará en uno de manera automática cada vez que se agregue un registro.