Mensajes

Gracias Ha sido Gran Ayuda

Que Dios te bendiga hermano

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

Código (vb) [Seleccionar] Expandir


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

Bueno te ayudo en algo

Código (vb) [Seleccionar] Expandir


primero dibujas 3 labels y 3 textbox

ejemplo:
Nombre <---Label txtnombre <---- Textbox
Apellido           txtapellido
Edad                 txtedad

If txtnombre = "Andre" And txtapellido = "Silvo" And txtedad = "20" Then
lblpass = "Ramon"


Intenta con   Unload me


No entendi ni una palabra

Esto ase lo q qiero pero  al cerrar a y echecar en el Admi de Tar  el programa esta abierto en 2do plano

Esto hace lo que quiero pero al cerrar ("A") y no  entiendo lo que dice ahi

Estaba tratando  Asi Pero Todavia

Código (vb) [Seleccionar] Expandir


Private Sub List1_Click()
For i = 0 To List1.ListCount - 1 Step 1
If List1.Selected(i) = True Then
Valor1 = List1.List(i) * val(List5.text)
End If
Next i
End Sub


tengo un listbox con   y otro lisbox con

listbox1(4,3,2,1) y listbox5(3,2) Estilo Checked

como yo Multiplico Los listbox

Código (vb) [Seleccionar] Expandir


Private Sub List1_Click()
For i = 0 To List1.ListCount - 1 Step 1
If List1.Selected(i) = True Then
Valor1 = List1.List(i) * List5.List(i)
End If
Next i
End Sub


Solo Me Multplica 4 por 3  y no el dos



Alguien Me Puede Ayudar Por Favor!

Ya Esta Resuelto

Alguien Sabe Como Poner Notas En Select Case

Código (vb) [Seleccionar] Expandir


Nota=me.combo2.text
Select Case Nota
Case A
me.combo2.text="4"


Seria Algo Asi ?

Problema Resuelto


Informe=Todavia Me Salio A lo Primero Ahora No me quiere salir

Código (vb) [Seleccionar] Expandir

TXTprecio = Format(Val(TXTprecio.Text), "Currency")
Form4.lblprecio = Form2.TXTprecio.Text

Precio = Format(Val(Precio.Text), "Currency")
Form4.lblprecio = Form2.Precio.Text

TextPrecio = Format(Val(TextPrecio.Text), "Currency")
Form4.lblprecio = Form2.TextPrecio.Text

preciotext = Format(Val(preciotext.Text), "Currency")
Form4.lblprecio = Form2.preciotext.Text

Tengo Un Problemita Con Los Textbox

tengo 3 textbox  con diferentes nombre

Código (vb) [Seleccionar] Expandir

TXTprecio = Format(Val(TXTprecio.Text), "Currency")
Form4.lblprecio = Form2.TXTprecio.Text

en el form4 me sale el precio pero si le agrego otro textbox no me sale
y asi sucesivamente

Código (vb) [Seleccionar] Expandir

TXTprecio = Format(Val(TXTprecio.Text), "Currency")
Form4.lblprecio = Form2.TXTprecio.Text

Precio = Format(Val(Precio.Text), "Currency")
Form4.lblprecio = Form2.Precio.Text



Estaba Pensando en poner if y then a cada uno

Código (vb) [Seleccionar] Expandir

if Precio = Format(Val(Precio.Text), "Currency") then
Form4.lblprecio = Form2.Precio.Text


mi pregunta es como hago para que  los que yo digito en los textbox's me salen en el form(4)

Código (vb) [Seleccionar] Expandir


Form4.lbldinero = Form2.precio.Text
Form4.lblprecio = Form2.textprecio.Text
Form4.lblprecio = Form2.txtprecio.Text


solo me sale lblprecio=0 con los 3  pero si tengo 1 me sale el precio en form4