Ayuda: Registros de Base de Datos Aleatorios

Thom
24 de Noviembre del 2005

Que tal, tengo que presentar un ejercicio que no tengo idea de como resolver, mi conocimiento sobre base de datos no es muy bueno que digamos, el ejercicio consiste en lo siguiente: Registrar mediante un cmd el nombre, apellido y direccion de un numero de personas definido por el usuario (Mediante un inputbox) y estos registros almacenarlos en una base de datos... otro cmd debe permitir al usuario modificar el nombre, el apellido o la direccion segun lo decida mediante otro inputbox... y por ultimo, otro cmd debe eliminar uno o varios registros (nombre, apellido, direccion) definidos por el usuario...
________________________________________________________

Estuve buscando tutoriales y encontre que existen varias formas de hacer un ejercicio asi, el problema es que debo hacerlo en una estructura semejante a esta:
_________________________________________________________

Private Sub cmdCambiar_Click()
'este procedimiento cmabia el tercer registro
Dim intArchivo As Integer
Dim intValor As Integer
intArchivo = FreeFile
Open "C:Aleatorio.dat" For Random As #intArchivo Len = 2
intValor = 9
'Cambiara; el; registro; 3; y; le; grabara; el; nuevo; valor
Put #intArchivo, 3, intValor 'Registro 3, valor:9
Close #intArchivo
End Sub
Private Sub cmdCrear_Click()
'Este procedimiento crea el archivo
Dim intArchivo As Integer
Dim intCtr As Integer
intArchivo = FreeFile
'len es igual a 2, porque una variable entera mide 2 bytes
Open "C:Aleatorio.dat" For Random As #intArchivo Len = 2
For intCtr = 1 To 5
Put #intArchivo, intCtr, intCtr '#registro de datos
Next intCtr
Close intArchivo
End Sub
Private Sub cmdDesplegar_Click()
'Este procedimiento crea el archivo
Dim intArchivo As Integer
Dim intCtr As Integer
Dim intVal As Integer
intArchivo = FreeFile
'len es igual a 2, porque una variable entera mide 2 bytes
Open "C:Aleatorio.dat" For Random As #intArchivo Len = 2
MsgBox "El archivo Aleatorio.dat ha sido abierto..."
'REcorre en bucle los registros y escribe archivo
For intCtr = 1 To 5
Get #intArchivo, intCtr, intVal
MsgBox "Recupero un " & intVal & " de Aleatrio.dat"
Next intCtr
Close intArchivo
MsgBox "Ahora el archivo Aleatorio.dat esta cerrado"
End Sub
______________________________________________________

Lo que quiero decir es que se trata de una base de datos aleatoria, no debe incluir modulos para llenar los registros, estos se deben hacer por inputbox y el ejercicio trabaja con el freefile y el "C:....dat", tambien debe imprimir los registros,
como lo dije, mi conocimiento no es muy amplio y ya he batallado bastante con este ejercicio, hasta ahora lo que he logrado es lo siguiente:
___________________________________________________________

Option Explicit
Dim NombreArchivo
Dim Nombre As String
Dim Direccion As String
Dim Apellido As String
Dim N As Integer
Dim Ciclo As Integer
Dim LineaTexto As String
Dim Archivo As Integer


Private Sub cmdCrear_Click()

Archivo = FreeFile
N = InputBox("¿Cuantas personas va a inscribir?")
NombreArchivo = 1
Open NombreArchivo For Random As #Archivo
For Ciclo = 1 To N
Nombre = InputBox("Ingrese un nombre: ")
Apellido = InputBox("Ingrese el Apellido: ")
Direccion = InputBox("Ingrese una direccion: ")

Print Nombre, Apellido, Direccion
Next Ciclo
Close Archivo
Open NombreArchivo For Input As #2

End Sub
_________________________________________________________

Realmente agradeceria mucho que me ayudaran con este ejercicio que he intentado por todos los medios (Al menos conocidos por mi)...