Duda...
Publicado por Jhonatan (14 intervenciones) el 18/07/2007 16:06:01
Hola, buen dia...
Anteriormente habia hecho una consulta en este mismo foro, para solicitarles apoyo en un problemilla que tengo.
Estoy haciendo una aplicacion sencilla de dos formularios, uno de ellos me permite seleccionar una base de datos por medio de un CommonDialog, la ruta que seleccione se pone en un Label, al dar clic en el botor "Abrir", me cierra es primer formulario y me abre el segundo, con este procedimiento el path que se grabo en el label, lo asigno a la propiedad DataBaseName de un Control DATA. Todo esto funciona perfectamente y puedo ver la informacion y editar, eliminar, modificar, etc.... El problema es cuando es cuando los usuarios vuelven a ejecutar la aplicacion, ya que debemos de buscar la base otra vez para enlazar nuestra informacion.
Lo que necesito es que la ruta o el path que se haya seleccionado se almacene en forma fija, para que cada vez que el usuario entre al programa, no sea necesario preguntar por la base, sino que se conecte directamente, y en todo caso que la base se mueva de lugar, el programa pregunte por ella. Quiza puedo utilizar un If Then Else sencillo para realizar la comprobacion, del "si esta o no esta" pero como hago para guardar la ruta y que cada vez que se modifique el path quede guardado el nuevo y elimine el anterior. EL codigo que me dieron fue este, si alguien me puede decir con precision como utilizarlo, en que parte del codigo meterlo, les agradeceria mucho. no soy experto en visual, pero quiero aprender:
Sub GuardaRuta( stLaRuta as String )
Open App.Path + "\Ruta.dat" For OutPut as #1
Print #1, stLaRuta
Close #1
End Sub
Necesitarás otro procedimiento o función para obtener la ruta desde el archivo mencionado en la rutina anterior:
Function LeerRuta() as String
Dim stRuta as string
Open App.Path + "\Ruta.dat" For Input as #1
Line Input #1, stRuta
Close #1
LeerRuta = stRuta
End Function
Jhonatan
Gracias
Anteriormente habia hecho una consulta en este mismo foro, para solicitarles apoyo en un problemilla que tengo.
Estoy haciendo una aplicacion sencilla de dos formularios, uno de ellos me permite seleccionar una base de datos por medio de un CommonDialog, la ruta que seleccione se pone en un Label, al dar clic en el botor "Abrir", me cierra es primer formulario y me abre el segundo, con este procedimiento el path que se grabo en el label, lo asigno a la propiedad DataBaseName de un Control DATA. Todo esto funciona perfectamente y puedo ver la informacion y editar, eliminar, modificar, etc.... El problema es cuando es cuando los usuarios vuelven a ejecutar la aplicacion, ya que debemos de buscar la base otra vez para enlazar nuestra informacion.
Lo que necesito es que la ruta o el path que se haya seleccionado se almacene en forma fija, para que cada vez que el usuario entre al programa, no sea necesario preguntar por la base, sino que se conecte directamente, y en todo caso que la base se mueva de lugar, el programa pregunte por ella. Quiza puedo utilizar un If Then Else sencillo para realizar la comprobacion, del "si esta o no esta" pero como hago para guardar la ruta y que cada vez que se modifique el path quede guardado el nuevo y elimine el anterior. EL codigo que me dieron fue este, si alguien me puede decir con precision como utilizarlo, en que parte del codigo meterlo, les agradeceria mucho. no soy experto en visual, pero quiero aprender:
Sub GuardaRuta( stLaRuta as String )
Open App.Path + "\Ruta.dat" For OutPut as #1
Print #1, stLaRuta
Close #1
End Sub
Necesitarás otro procedimiento o función para obtener la ruta desde el archivo mencionado en la rutina anterior:
Function LeerRuta() as String
Dim stRuta as string
Open App.Path + "\Ruta.dat" For Input as #1
Line Input #1, stRuta
Close #1
LeerRuta = stRuta
End Function
Jhonatan
Gracias
Valora esta pregunta


0