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