• Lunes 18 de Noviembre de 2024, 02:28

Autor Tema:  Como Crear Un Archivo ?  (Leído 2517 veces)

sircuit

  • Miembro activo
  • **
  • Mensajes: 31
    • Ver Perfil
Como Crear Un Archivo ?
« en: Miércoles 9 de Febrero de 2005, 21:30 »
0
Buenas
saben que me ha surgido otro rollo
como les contaba a alguno estaba creando una mini agenda y ya solucione el apartado para buscar una ficha pero ahora tengo otro para añadir una ficha
consiste en que, inicualemente se añadia una ficha sin ningun problema sin comprobar si el archivo existia y ademas si la ficha tb existia

para hacerla mas completa estube tratando de buscar la forma que me leyera la base de datos de manera que si las variables leidas son igual a los textos apareciera un msg mencionando que esa ficha ya existe

el problema surge que tengo como primero que me abra el archivo en modo INPUT... pero QUE VA A LEER SI ES PRIMERA VEZ QUE EJECUTO EL PROGRAMA....

ENTONCES
Como pueo allar la forma de que primero cree el archivo y de ahi me lea las variables, que si es igual al primer textbox, que aparesca el msgbox, de lo contrario que abra el archivo en modo APPEND para poder escribirlo...

osea algo asi

me cree el archivo ya sea . dat o txt
hasta que no llegue al final de archivo
que me lea todas las variables como cuantos text allan dentro del form
si el text1 es igual a la primera variable me salga el msgbox
de lo contrario
que me abra el MISMO ARCHIVO en modo append para que pueda escribir en el todo los text que allan dentro del form
end

Jose Arriagada

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Re: Como Crear Un Archivo ?
« Respuesta #1 en: Miércoles 9 de Febrero de 2005, 21:41 »
0
No entendi nada....

sircuit

  • Miembro activo
  • **
  • Mensajes: 31
    • Ver Perfil
Re: Como Crear Un Archivo ?
« Respuesta #2 en: Miércoles 9 de Febrero de 2005, 22:03 »
0
mira
yo recien lo pude lograr pero que me creo dos archivos totalmente distintos y de forma erronea, por lo que yo quiero es que sea el mismo archivo (si se puede)

lo que tengo es algo asi: TENIENDO EN CUENTA EL ARCHIVO EXISTE CON NOMBRES YA INGRESADOS PERO LO QUE QUIERO es QUE LO ABRA PERO EN BLANCO EN LA PRIMERA EJECUCION Y ESCRIBA LOS CAMPOS"

Código: Text
  1. Dim conf
  2. iCanal = FreeFile
  3. conf = MsgBox("Desea añadir la ficha de " & Text1.Text & " a la base de datos ?", vbInformation + vbYesNo, "Información")
  4. If conf = vbNo Then
  5. Exit Sub
  6. Else
  7. Open "C:\Documents and Settings\usuario\Escritorio\datos.dat" For Input As 1
  8. Do While Not EOF(iCanal)
  9. Input #1, namec
  10. Input #1, dirc
  11. Input #1, telc
  12. Input #1, emc
  13. Input #1, conc
  14. Select Case Text1.Text
  15. Case Is = namec
  16. MsgBox "La ficha ingresada ya existe en la base de datos", vbInformation + vbOKOnly, "Información"
  17. Text1 = namec
  18. Text2 = dirc
  19. Text3 = telc
  20. Text4 = emc
  21. Text5 = conc
  22. Label8.Caption = "Ficha existente:"
  23. Case Is <> namec
  24. Open "C:\Documents and Settings\usuario\Escritorio\datos2.dat" For Append As 2
  25. Write #2, Text1.Text
  26. Write #2, Text2.Text
  27. Write #2, Text3.Text
  28. Write #2, Text4.Text
  29. Write #2, Text5.Text
  30. Close #2
  31. End Select
  32. Loop
  33. Close #1
  34. End If
  35. End Sub
  36.  

gracias

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Como Crear Un Archivo ?
« Respuesta #3 en: Viernes 18 de Febrero de 2005, 10:00 »
0
Antes de nada comprueba que exista el archivo. Si el archivo existe, busca la ficha. Si no existe escribe directamente en el archivo. Cuando escribas, abre el archivo siempre para append.

Acostumbrate a saber en qué número de archivos (canal) estas escribiendo, freefile sirve para obtener un número de canal libre. No te olvides de cerrar los archivos adecuadamente.

Chao.

sircuit

  • Miembro activo
  • **
  • Mensajes: 31
    • Ver Perfil
Re: Como Crear Un Archivo ?
« Respuesta #4 en: Martes 22 de Febrero de 2005, 17:22 »
0
mira
alle la forma de comprobar si el archivo existia o no y le di "prolijidad" al codigo quedandode la siguiente forma:

Código: Text
  1. x = Dir(App.Path & "\datos.dat")
  2. If x <> "" Then
  3. GoTo addbase
  4. Else
  5. quest = MsgBox("La base de datos no existe." & vbCrLf & "Desea crear una nueva ?", vbYesNo + vbQuestion, "Información")
  6. If quest = vbNo Then
  7. Exit Sub
  8. Else
  9. addbase:
  10. Dim conf
  11. canalf = FreeFile
  12. conf = MsgBox("Desea añadir la ficha de " & Text1.Text & " a la base de datos ?", vbInformation + vbYesNo, "Información")
  13. If conf = vbNo Then
  14. Exit Sub
  15. Else
  16. Open App.Path & "\datos.dat" For Append As canalf
  17. Write #canalf, Text1.Text
  18. Write #canalf, Text2.Text
  19. Write #canalf, Text3.Text
  20. Write #canalf, Text4.Text
  21. Write #canalf, Text5.Text
  22. Close canalf
  23. End If
  24. End If
  25. End If
  26.  

Ahora viene el tema en cuestion: COMO PUEDO HACER PARA QUE ME COMPRUEBE QUE SI LOS DATOS INGRESADOS (ESPECIFICAMENTE DEL PRIMER TEXT) YA EXISTE EN EL ARCHIVO DATOS.DAT

salu2

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Como Crear Un Archivo ?
« Respuesta #5 en: Miércoles 23 de Febrero de 2005, 17:11 »
0
Hola

Citar
como les contaba a alguno estaba creando una mini agenda y ya solucione el apartado para buscar una ficha pero ahora tengo otro para añadir una ficha
... Pues eso, utiliza el 'apartado' para buscar una ficha, ¿no?

Adeus.

sircuit

  • Miembro activo
  • **
  • Mensajes: 31
    • Ver Perfil
Re: Como Crear Un Archivo ?
« Respuesta #6 en: Miércoles 23 de Febrero de 2005, 18:00 »
0
:lol: emmm solo tengo que dar las gracias
todo solucionado :kicking:
salu2 y ojala no moleste tanto jaja