Foro de elhacker.net

Soy Nuevo en lo de vb6 vinculado con base de datos

pero quiera saber si me pueden ayudar  tengo 4 labels  cada label tiene su propio nombre que seria  matricula,nombre,apellido,carrera  y tengo un label que dice clave  ya la base de datos estan vinculado con vb6  cada label tiene su propio datafield.

 estoy haciendo algo como un registro de   estudiantes de nuevo ingreso

 mi pregunta es como le pongo una clave a cada estudiante cuando se registre quisiera que  la clave  cambia automaticamente  cada vez que se registra un nuevo estudiante

estaba pensando algo como un for pero como dije soy un poco nuevo en lo de vb6 y base de datos

mas o menos mi codigo es asi   me sale todo perfecto menos la clave  para cambiar la clave de dicho estudiante tengo que estar parando el programa y cambiar la clave en lblpass cada vez

Private Sub Command1_Click()
If txtnombre = Me.txtnombre.Text Then
lblpass = "4321"
End If
 
End Sub
 
Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub
 
Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub
 
Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveNext
End If
End Sub
 
Private Sub Form_Load()
lblmensaje.Visible = False
End Sub
 
Private Sub txtedad_Change()
lblmensaje.Visible = True
End Sub

haber utiliza esto y me dices

Dim aleatorio As String
aleatorio = Str(Int(Rnd(1000) * 1000))
 
Private Sub Command1_Click()
If txtnombre = Me.txtnombre.Text Then
lblpass = aleatorio
End If
 
End Sub
 
Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub
 
Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub
 
Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveNext
End If
End Sub
 
Private Sub Form_Load()
lblmensaje.Visible = False
End Sub
 
Private Sub txtedad_Change()
lblmensaje.Visible = True
End Sub

Gracias Ha sido Gran Ayuda

Que Dios te bendiga hermano


 ;D ;D ;D ;D ;D ;D