Hallo Enno, ja, der Ordner in dem die .exe-Datei liegt.
Mit der Funktion f = getfolderItem("ini.txt") geht das Programm davon aus,
dass ini.txt im selben Ordner liegt wie das Programm selbst.
Aber Vorsicht: Wenn das Programm noch nicht kompiliert ist und nur getestet
werden soll, legt RealStudio das zum Testen kompilierte Programm in einem
neuen Ordner Debug.myprogramm ab, sodass ini.txt also nicht im selben Ordner
liegt und deshalb nicht gefunden wird. Also: Am besten das Programm auch zum
Testen gleich richtig kompilieren.
Gruß, Christian Hahn.
----- Original Message -----
From: "nobe" <[email protected]>
To: "Realbasic NUG German" <[email protected]>
Sent: Sunday, July 15, 2012 5:42 PM
Subject: Re: Database unter Windows 7 öffnen
Hallo Christian, verstehe ich das richtig, dass du mit _programmordner_
den des mit RS erstellten programms meinst ?
enno
Am 15.07.12 12:26, schrieb Christian Hahn:
...
Was die Einbindung der Datenbank betrifft, mache ich das immer so: Im
Programm-Ordner muss immer eine Text-Datei vorhanden sein, die heißt
ini.txt (eine ganz simple Textdatei). Ohne das Vorhandensein der
ini-Datei läuft das Programm nicht, das gilt bei mir immer als
Vorschrift. In der ini-Datei steht nichts weiter als:
#Pfad zur Datenbank
C:\dideldadeldudelAsAbsolutePath
...
----- Original Message ----- From: "nobe" <[email protected]>
To: "German REALbasic-NUG" <[email protected]>
Sent: Saturday, July 14, 2012 6:15 PM
Subject: Database unter Windows 7 öffnen
Hallo,
mein programm soll unter Windows 7 laufen und das tut es auch bis auf
die einbindung der database. Dazu folgende angaben: da ich ein 'fauler
mensch' bin, lege ich meine arbeitsordner immer auf dem schreibtisch an.
So befindet sich also die RealSqlDatabase in einem ordner auf dem
schreibtisch. Ich möchte das nun gerne per remote debugger stub auf dem
pc testen, bekomme es aber mit der pfadangabe nicht hin. Per
absolutepath weiss ich, dass sich meine datenbank an folgendem ort
befindet:
festplatte:users:ebussmann:desktop:projektordner:datenbank.rsd.
Ferner habe ich folgenden code um auf die windowsversion umzuschalten:
if targetwin32 then
dim f as folderitem = specialfolder.applicationdata
if f <> nil then
msgbox f.absolutepath
end
datenbank.databasefile = getfolderitem(f.absolutepath +
"????\datenbank.rsd")
else
datenbank.databasefile = getfolderitem("datenbank.rsd")
end
Die ???? signalisieren die stelle, wo ich nicht weiter weiss.
hier kommt gerade die sonne raus. Vielleicht 'erleuchtet' die mich ja
noch vor euren (immer) geschätzten tips.
In diesem sinne,
enno
