elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Temas
Páginas: 1 [2] 3 4
11  Programación / Programación Visual Basic / Alguien Sabe Por Que Me Da Error? VB6 en: 22 Julio 2015, 08:07 am
Tengo Un Base de datos con control data

hize el index en access 2010 y lo formatie a 2000

no se porque me sale  error si le puse el index A Codigo

Código
  1. Data1.Recordset.Index = "COD"
  2. Data1.Recordset.Seek "=", COD
  3. If Data1.Recordset.NoMatch = True Then
  4. Data1.Recordset.AddNew
  5. Data1.Recordset.Fields("Codigo") = txtcodigo
  6. Data1.Recordset.Fields("Descripción") = txtdescripcion
  7. Data1.Recordset.Fields("Aula") = txtaula
  8. Data1.Recordset.Update
  9. MsgBox ("Registro Agregado")
  10. Call Limpiar
  11. txtcodigo.SetFocus
  12. Else
  13. MsgBox ("Registro Exsitente")
  14.  
12  Programación / Programación Visual Basic / Data Control VB6? en: 21 Julio 2015, 22:08 pm
Alguien puede decir por que me sale error    este codigo lo tengo en un solo commando cada vez que le doy me sale error

Código
  1. Private Sub Command2_Click()
  2. Data1.Recordset.FindFirst ("Codigo='" & TXTCodigo & "'")
  3. If Data1.Recordset.NoMatch = True Then
  4. Data1.Recordset.AddNew
  5. Data1.Recordset!Codigo = TXTCodigo
  6. Data1.Recordset!Descripcion = TXTDescripcion
  7. Data1.Recordset!Aula = TXTAula
  8. Data1.Recordset.Update
  9. MsgBox "Registro Adicionado"
  10. Else
  11. Data1.Recordset.Edit
  12. MsgBox "Registro Editado"
  13. Data1.Recordset.AddNew
  14. Data1.Recordset!Codigo = TXTCodigo
  15. Data1.Recordset!Descripcion = TXTDescripcion
  16. Data1.Recordset!Aula = TXTAula
  17. Data1.Recordset.Update
  18.  
  19.  
13  Programación / Programación Visual Basic / Ayuda Por Favor VB6 Con Base De Datos? en: 19 Julio 2015, 05:47 am
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
  1. Private Sub Command1_Click()
  2. If txtnombre = Me.txtnombre.Text Then
  3. lblpass = "4321"
  4. End If
  5.  
  6. End Sub
  7.  
  8. Private Sub Command2_Click()
  9. Adodc1.Recordset.AddNew
  10. End Sub
  11.  
  12. Private Sub Command3_Click()
  13. Adodc1.Recordset.Update
  14. End Sub
  15.  
  16. Private Sub Command4_Click()
  17. Adodc1.Recordset.MovePrevious
  18. If Adodc1.Recordset.BOF Then
  19. Adodc1.Recordset.MoveNext
  20. End If
  21. End Sub
  22.  
  23. Private Sub Form_Load()
  24. lblmensaje.Visible = False
  25. End Sub
  26.  
  27. Private Sub txtedad_Change()
  28. lblmensaje.Visible = True
  29. End Sub
14  Programación / Programación Visual Basic / Listbox en VB6 en: 9 Julio 2015, 04:49 am
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
  1. Private Sub List1_Click()
  2. For i = 0 To List1.ListCount - 1 Step 1
  3. If List1.Selected(i) = True Then
  4. Valor1 = List1.List(i) * List5.List(i)
  5. End If
  6. Next i
  7. End Sub
  8.  

Solo Me Multplica 4 por 3  y no el dos



Alguien Me Puede Ayudar Por Favor!
15  Programación / Programación Visual Basic / Como Puedo Poner Notas En Select Case ? en: 8 Julio 2015, 20:05 pm
Alguien Sabe Como Poner Notas En Select Case


Código
  1. Nota=me.combo2.text
  2. Select Case Nota
  3. Case A
  4. me.combo2.text="4"
  5.  

Seria Algo Asi ?
16  Programación / Programación Visual Basic / Problemita Con Los TextBox en VB6 en: 6 Julio 2015, 19:53 pm
Tengo Un Problemita Con Los Textbox
 
 tengo 3 textbox  con diferentes nombre

Código
  1. TXTprecio = Format(Val(TXTprecio.Text), "Currency")
  2. 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
  1. TXTprecio = Format(Val(TXTprecio.Text), "Currency")
  2. Form4.lblprecio = Form2.TXTprecio.Text
  3.  
  4. Precio = Format(Val(Precio.Text), "Currency")
  5. Form4.lblprecio = Form2.Precio.Text
  6.  
  7.  

Estaba Pensando en poner if y then a cada uno
 
Código
  1. if Precio = Format(Val(Precio.Text), "Currency") then
  2. Form4.lblprecio = Form2.Precio.Text
  3.  

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

Código
  1. Form4.lbldinero = Form2.precio.Text
  2. Form4.lblprecio = Form2.textprecio.Text
  3. Form4.lblprecio = Form2.txtprecio.Text
  4.  

solo me sale lblprecio=0 con los 3  pero si tengo 1 me sale el precio en form4
17  Programación / Programación Visual Basic / Ayuda Duda Sobre Los Msgbox En VB6??? en: 6 Julio 2015, 02:46 am
Como Hago Cuando Yo Termino de digitar el precio me salga este mensaje   

 msgbox"La Transferencia Ha Sido Completada"

seria en un evento change   text1change()

Cuando Digito algo siempre me sale el mensaje  si quiero poner 4,000 me  sale cada vez que voy digitando un numero   no me deja poner el precio total

Código
  1. Private Sub text1_Change()
  2. text1.text=text1.text
  3. MsgBox "La Transferencia Ha Sido Completada"
  4.  
18  Programación / Programación Visual Basic / Los Botones De Comando En VB6? en: 5 Julio 2015, 06:34 am
Si Yo Tengo Un Boton Comando Llamado Agua    En Un Formulario(Form2) A Darle Click Se Podria Pasar a un Label El Formulario 4?

Como Con Los Textbox Y Labels    Lo que yo Pongo en el textbox (form2)  me sale en el label (form3)




Mi Pregunta es se Puede Hacer Esto Con Un  Boton Comando  y un listbox ?????



19  Programación / Programación Visual Basic / Ayuda Con MsgBox???? en: 5 Julio 2015, 00:31 am
Como Hago Para que cuando yo termino lo que digite me salga este mensaje

sin usar comandos

Código
  1. Private Sub TXTprecio_Change()
  2. If TXTprecio = TXTprecio Then
  3. TXTprecio.SetFocus
  4. End If
  5. MsgBox "La Transferencia Ha Sido Completada"
  6. End Sub
20  Programación / Programación Visual Basic / Combo Box Con Textbox Y Label ? en: 3 Julio 2015, 22:01 pm
Tengo Un Combo box con 5 frutas    cuando doy ejemplo a manzana  que aparezca en el textbox y en el label? Pero en otro Formulario


Código
  1. combo1.additem "Manzana"
  2. combo1.additem"Naranja"
  3. combo1.additem "Uvas"
  4. combo1.additem "Guineos"
  5. combo1.additem "Pera"
Páginas: 1 [2] 3 4
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines