ramses
15 de Septiembre del 2005

Tengo un programa de visual basic relacionado con una base de datos en acces. La cuestion es la siguiente:

Quiero agregar un numero consecutivo a un dato "nombre de persona" que se agrege a la base de datos cada vez que se agregue a otra persona y a su vez a otra. osea cada que agregue a una persona se le asigne un numero consecutivo, para al final tener un total de personas contabilizadas en un LABEL
Podrian decirme en cual parte del codigo ponerlo o en un boton. Muchas gracias

ELSHADDAI
15 de Septiembre del 2005

Si lo que necesitas es saber cuantas personas estàn registradas, puedes hacer lo siguiente:

suponiendo que tengas una variable tipo recordset:

label1=Cstr(nombrevariable.Recordcount)

Ojo: si estas usando DAO, el recordset debe ser del tipo dbOpenSnapshot, si es a travès de ADO, el recorset debe ser Static y dbLockReadyOnly.

Espero que te pueda servir de algo...

Saludos !!!

Pablo Mereles
15 de Septiembre del 2005

Fijate usando indices autonumericos en la bdd.
salu2

SERENO
15 de Septiembre del 2005

hola: en efecto puede ser en automatico el contador en la bd. o crear un contador en una variable y hacerlo desde codigo

rodri123
15 de Septiembre del 2005

hola
espero que esto te sirva:

Data1.Recordset.MoveLast \'con esto se mueve hasta el ultimo reguistro
va = Data1.Recordset.num \'agrego el valor de del ultimo reguistro a una variable

Data1.Recordset.AddNew \'agrego un nuevo reguistro
Data1.Recordset.a = va + 1 \'incrementa el valor de el ultimo reguistro
Data1.Recordset.Update \'guarda los cambios

bueno esto iria en el boton de guardar nuevo reguistro ademas trendrias que colocar el codigo de los otros campos que guardarias

este codigo es muy sencilo pero puedes enriqueserlo mas es cosa tuya.
adios y salu2

rodri123
15 de Septiembre del 2005

osi perdon en el codigo aparece /' omite la diagonal porfavor recuerda que la ' es para cololar comentarias a tu codigo
y por lo del label puedes hacer lo mismo

data1.recorset.movelast ' muevete al ultimo registro
label1.caption=data1.recorset.num 'con esto el label dira el valor del ultimo reguistro
el ".num" es el nombre del campo que utilisas para guardar el balor en la base de datos.