Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Noviembre 21, 2008, 02:29:46
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: problem manejo de archivos... 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: problem manejo de archivos...  (Leído 157 veces)
Rexix
Colaborador
*****
Desconectado Desconectado

Mensajes: 483


xoy del rojo, ex un xentimiento no puedo parar!!


Ver Perfil Email
« en: Julio 22, 2007, 11:15:51 »

buenas, tengo un problema para el manejo de archivos...

pues la verdad no seque pueda ser... estoy manejando archivos de tipo aleatorio para guardar registros de una estructura. y la verdad no se si no me esta guardando o si tengo problemas al querer visualizar el registro.

de todas maneras ahi les dejo el code y puedan ver que error pueda tener...

un saludo

Código:
Option Explicit
Dim k As Integer

Private Type registro
    nombre As String
    telefono As String
End Type
Private rex As registro

Private Sub cmdGuardar_Click()
    k = k + 1
    Dim size, mensaje As String
    size = Len(rex)
    Open "C:\registro.txt" For Random As #1 Len = size
    Put #1, k, size
    Close #1
    mensaje = MsgBox("REGISTRO GUARDADO CORRECTAMENTE", 0 + 0 + vbInformation)
End Sub


Private Sub cmdVer_Click()
    Dim size As String
    size = Len(rex)
    Open "C:\registro.txt" For Random As #1 Len = size
    Get #1, 1, size
    txtVerRegistro.Text = "nombre: " & rex.nombre & vbCrLf & "telefono: " & rex.telefono
    Close #1
End Sub

Private Sub txtNombre_LostFocus()
    rex.nombre = txtNombre.Text
End Sub

Private Sub txtTel_LostFocus()
    rex.telefono = txtTel.Text
End Sub
En línea



my page:

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion

problemas para Recordar tus contraseñas? aqui tienes la solucion

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
Rexix
Colaborador
*****
Desconectado Desconectado

Mensajes: 483


xoy del rojo, ex un xentimiento no puedo parar!!


Ver Perfil Email
« Respuesta #1 en: Julio 26, 2007, 04:40:55 »
 

NADIE???

 Angry
En línea



my page:

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion

problemas para Recordar tus contraseñas? aqui tienes la solucion

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
NeoSystem
Recien Llegado
*
Desconectado Desconectado

Mensajes: 11


Ver Perfil Email
« Respuesta #2 en: Agosto 01, 2007, 09:54:57 »
que quieres hacer? consultarlo?
En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: problem manejo de archivos... « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.7 | SMF © 2006-2007, Simple Machines LLC