Ayuda con lingo
Hola, tengo un ejemplo de una base de datos con la que se crea y consulta, funciona todo bien, solo que cada vez que se ejecuta el programa el usuario debe primero abrir la base de datos para poder hacer búsquedas y lo que necesito es que esta este abierta de manera automática.
Este es el código que ocupo:
-- open an existing database file
on openDatabase
-- ask user for a file
global fileObj
fileObj = new(Xtra "FileIO")
filename = displayOpen(fileObj)
if filename = "" then exit
-- open the file and read the text
openFile(fileObj, filename, 1)
text = readFile(fileObj)
closeFile(fileObj)
-- try to convert the text to a list
database = value(text)
if not listP(database) then
-- not a list
alert "Not a valid database file."
else
-- is a list, set database
gDatabase =database
end if
La verdad no entindo mucho, ¿qué puedo hacer?
Gracias,
Este es el código que ocupo:
-- open an existing database file
on openDatabase
-- ask user for a file
global fileObj
fileObj = new(Xtra "FileIO")
filename = displayOpen(fileObj)
if filename = "" then exit
-- open the file and read the text
openFile(fileObj, filename, 1)
text = readFile(fileObj)
closeFile(fileObj)
-- try to convert the text to a list
database = value(text)
if not listP(database) then
-- not a list
alert "Not a valid database file."
else
-- is a list, set database
gDatabase =database
end if
La verdad no entindo mucho, ¿qué puedo hacer?
Gracias,
1 respuesta
Respuesta de baronclo
1