Programación General > Visual Basic 6.0 e inferiores
Como Crear Un Archivo ?
sircuit:
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:
No entendi nada....
sircuit:
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 ---Dim confiCanal = FreeFileconf = MsgBox("Desea añadir la ficha de " & Text1.Text & " a la base de datos ?", vbInformation + vbYesNo, "Información")If conf = vbNo ThenExit SubElseOpen "C:\Documents and Settings\usuario\Escritorio\datos.dat" For Input As 1Do While Not EOF(iCanal)Input #1, namecInput #1, dircInput #1, telcInput #1, emcInput #1, concSelect Case Text1.TextCase Is = namecMsgBox "La ficha ingresada ya existe en la base de datos", vbInformation + vbOKOnly, "Información"Text1 = namecText2 = dircText3 = telcText4 = emcText5 = concLabel8.Caption = "Ficha existente:"Case Is <> namecOpen "C:\Documents and Settings\usuario\Escritorio\datos2.dat" For Append As 2Write #2, Text1.TextWrite #2, Text2.TextWrite #2, Text3.TextWrite #2, Text4.TextWrite #2, Text5.TextClose #2End SelectLoopClose #1End IfEnd Sub
gracias
Brroz:
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:
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 ---x = Dir(App.Path & "\datos.dat")If x <> "" ThenGoTo addbaseElsequest = MsgBox("La base de datos no existe." & vbCrLf & "Desea crear una nueva ?", vbYesNo + vbQuestion, "Información")If quest = vbNo ThenExit SubElseaddbase:Dim confcanalf = FreeFileconf = MsgBox("Desea añadir la ficha de " & Text1.Text & " a la base de datos ?", vbInformation + vbYesNo, "Información")If conf = vbNo ThenExit SubElseOpen App.Path & "\datos.dat" For Append As canalfWrite #canalf, Text1.TextWrite #canalf, Text2.TextWrite #canalf, Text3.TextWrite #canalf, Text4.TextWrite #canalf, Text5.TextClose canalfEnd IfEnd IfEnd If
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
Navegación
[#] Página Siguiente
Ir a la versión completa