Used() [ERLEDIGT]
Moderator: Moderatoren
- Koverhage
- Der Entwickler von "Deep Thought"
- Beiträge: 2470
- Registriert: Fr, 23. Dez 2005 8:00
- Wohnort: Aalen
- Hat sich bedankt: 102 Mal
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Used() [ERLEDIGT]
Ich habe ein Problem damit.
Laut Beschreibung kann ich damit feststellen ob eine Datei mit dem Alias geöffnet ist.
Falls die Funktion ohne Alias Operator verwendet wird ...
1. Versuch funktioniert nicht, da den ALIAS nicht gibt.
IF KDImportDatei->Used()
ENDF
2. Versuch funktioniert nicht
IF Used("KDImportDatei")
ENDF
oError:description : Datenbank-Alias existiert nicht/ist ungltig
oError:filename :
oError:genCode : 66
oError:operation : ->
oError:osCode : 0
oError:severity : 2
oError:subCode : 8022
Wie kann ich feststellen ob ein Alias vergeben ist, d.h. eine Datei geöffnet ist ?
Habe das mit IF SELECT"KDImportDatei") > 0
gelöst. Aber für was soll den USED gut sein ?
Laut Beschreibung kann ich damit feststellen ob eine Datei mit dem Alias geöffnet ist.
Falls die Funktion ohne Alias Operator verwendet wird ...
1. Versuch funktioniert nicht, da den ALIAS nicht gibt.
IF KDImportDatei->Used()
ENDF
2. Versuch funktioniert nicht
IF Used("KDImportDatei")
ENDF
oError:description : Datenbank-Alias existiert nicht/ist ungltig
oError:filename :
oError:genCode : 66
oError:operation : ->
oError:osCode : 0
oError:severity : 2
oError:subCode : 8022
Wie kann ich feststellen ob ein Alias vergeben ist, d.h. eine Datei geöffnet ist ?
Habe das mit IF SELECT"KDImportDatei") > 0
gelöst. Aber für was soll den USED gut sein ?
Zuletzt geändert von Koverhage am Di, 17. Feb 2015 7:29, insgesamt 1-mal geändert.
Gruß
Klaus
Klaus
- Wolfgang Ciriack
- Der Entwickler von "Deep Thought"
- Beiträge: 2935
- Registriert: Sa, 24. Sep 2005 9:37
- Wohnort: Berlin
- Hat sich bedankt: 13 Mal
- Danksagung erhalten: 34 Mal
- Kontaktdaten:
Re: Used()
Mit Used() kannst du feststellen, ob ein Selectbereich benutzt ist, z.B.
Code: Alles auswählen
select ("kunden")
if used()...
Viele Grüße
Wolfgang
Wolfgang
- Tom
- Der Entwickler von "Deep Thought"
- Beiträge: 9361
- Registriert: Do, 22. Sep 2005 23:11
- Wohnort: Berlin
- Hat sich bedankt: 101 Mal
- Danksagung erhalten: 361 Mal
- Kontaktdaten:
Re: Used()
Du kannst das Used() aber auch mit dem (automatischen) Alias als Parameter verwenden:
oder so:
Laufzeitfehler:
Code: Alles auswählen
USE MeineDatei NEW
? Used('MeineDatei') // .T.
Code: Alles auswählen
? MeineDatei->(Used()) // .T.
Code: Alles auswählen
? IrgendeineDatei->(Used())
Code: Alles auswählen
? Used('IrgendeineDatei') // .F.
Herzlich,
Tom
Tom
- brandelh
- Foren-Moderator
- Beiträge: 15696
- Registriert: Mo, 23. Jan 2006 20:54
- Wohnort: Germersheim
- Hat sich bedankt: 66 Mal
- Danksagung erhalten: 33 Mal
- Kontaktdaten:
Re: Used()
genau deshalb ruft man USED() nicht mit dem Alias auf, denn wenn er nicht existiert knallt esTom hat geschrieben: Laufzeitfehler:Code: Alles auswählen
? IrgendeineDatei->(Used())
Der Code mit dem Alias als TextString müsste aber funktionieren, daher prüfe ob die Fehlerzeile wirklich hier liegt !
Ich selbst merke mir ja den Select-Bereich, und da ist es immer möglich auf used() abzufragen:
Code: Alles auswählen
use Kunde ...
if ! neterr()
nSelect := select()
... hier könnte der Code die Datei auch schließen ...
// zur Sicherheit ...
if (nSelect)->(used())
(nSelect)->(dbCloseArea())
endif
endif
Code: Alles auswählen
IF Used("KDImportDatei")
ENDF
Gruß
Hubert
Hubert
- Tom
- Der Entwickler von "Deep Thought"
- Beiträge: 9361
- Registriert: Do, 22. Sep 2005 23:11
- Wohnort: Berlin
- Hat sich bedankt: 101 Mal
- Danksagung erhalten: 361 Mal
- Kontaktdaten:
Re: Used()
Used() mit Alias-Operator hat nicht den geringsten Sinn. Man will ja über Used() herausfinden, ob der Alias gültig bzw. in Verwendung ist.
Herzlich,
Tom
Tom
- Koverhage
- Der Entwickler von "Deep Thought"
- Beiträge: 2470
- Registriert: Fr, 23. Dez 2005 8:00
- Wohnort: Aalen
- Hat sich bedankt: 102 Mal
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Re: Used()
Hubert,
ich bekomme diverse Dateien zum Import.
Aufgrund einer Umstellung ist die Anzahl aber nicht mehr fix.
z.B.
Danach wollte ich
ich bekomme diverse Dateien zum Import.
Aufgrund einer Umstellung ist die Anzahl aber nicht mehr fix.
z.B.
Code: Alles auswählen
my_ziel := cDirectory + "\nkkihome.dbf"
my_ind1 := cDirectory + "\nkkihome.ntx"
IF Fexists( my_ziel )
use my_ziel alias nkkh NEW
endif
Code: Alles auswählen
IF Used("nkph")
nkph->(DbCloseArea())
ENDIF
Da bekomme ich die Fehlermeldung.
Gruß
Klaus
Klaus
- Koverhage
- Der Entwickler von "Deep Thought"
- Beiträge: 2470
- Registriert: Fr, 23. Dez 2005 8:00
- Wohnort: Aalen
- Hat sich bedankt: 102 Mal
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Re: Used()
Tom,
Die ganze Hilfe zu Used() ist sehr verworrenUsed() mit Alias-Operator hat nicht den geringsten Sinn. Man will ja über Used() herausfinden, ob der Alias gültig bzw. in Verwendung ist.
Gruß
Klaus
Klaus
- Rudolf
- Programmier-Gott
- Beiträge: 1418
- Registriert: Mo, 02. Jan 2006 23:03
- Wohnort: Salzburg/Österreich
- Kontaktdaten:
Re: Used()
Hallo,
ich habe mit
keine Probleme, funtioniert auch wenn es den Alias nicht gibt
Grüße
Rudolf
ich habe mit
Code: Alles auswählen
function dbused(cAlias)
***************************************************************************
return SELECT (cAlias) > 0
Grüße
Rudolf
Rudolf Reinthaler
http://www.formcommander.net
http://www.formcommander.net
- brandelh
- Foren-Moderator
- Beiträge: 15696
- Registriert: Mo, 23. Jan 2006 20:54
- Wohnort: Germersheim
- Hat sich bedankt: 66 Mal
- Danksagung erhalten: 33 Mal
- Kontaktdaten:
Re: Used()
in welcher Zeile genau !
Bei DbCloseArea() oder bei if used(...)
Im Beispiel oben hast du beim öffnen einen anderen Alias als bei used ... aber das ist sicher nur ein Übertragungsfehler oder ?
Hast du dir mal mit ALIAS() anzeigen lassen, ob der Inhalt dem entspricht, was du erwartest ?
Bei DbCloseArea() oder bei if used(...)
Im Beispiel oben hast du beim öffnen einen anderen Alias als bei used ... aber das ist sicher nur ein Übertragungsfehler oder ?
Hast du dir mal mit ALIAS() anzeigen lassen, ob der Inhalt dem entspricht, was du erwartest ?
Gruß
Hubert
Hubert
- brandelh
- Foren-Moderator
- Beiträge: 15696
- Registriert: Mo, 23. Jan 2006 20:54
- Wohnort: Germersheim
- Hat sich bedankt: 66 Mal
- Danksagung erhalten: 33 Mal
- Kontaktdaten:
Re: Used()
Code: Alles auswählen
if ! used("MD")
...
endif
if ! used("USERVERW")
...
endif
Gruß
Hubert
Hubert
- brandelh
- Foren-Moderator
- Beiträge: 15696
- Registriert: Mo, 23. Jan 2006 20:54
- Wohnort: Germersheim
- Hat sich bedankt: 66 Mal
- Danksagung erhalten: 33 Mal
- Kontaktdaten:
Re: Used()
Code: Alles auswählen
IF Fexists( my_ziel )
use my_ziel alias nkkh NEW
endif
Gruß
Hubert
Hubert
- Wolfgang Ciriack
- Der Entwickler von "Deep Thought"
- Beiträge: 2935
- Registriert: Sa, 24. Sep 2005 9:37
- Wohnort: Berlin
- Hat sich bedankt: 13 Mal
- Danksagung erhalten: 34 Mal
- Kontaktdaten:
Re: Used()
Hallo Klaus,
ist das ein Schreibfehler ?
nkkh hast du geöffnet, danach prüfst du nkph ???
ist das ein Schreibfehler ?
nkkh hast du geöffnet, danach prüfst du nkph ???
Viele Grüße
Wolfgang
Wolfgang
- Koverhage
- Der Entwickler von "Deep Thought"
- Beiträge: 2470
- Registriert: Fr, 23. Dez 2005 8:00
- Wohnort: Aalen
- Hat sich bedankt: 102 Mal
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Re: Used()
Hallo Wolfgang,
nein kein Schreibfehler, wie Hubert schon anmerkte ein "Übertragungsfehler"
Ich verwende jetzt wie bereits geschrieben SELECT
nein kein Schreibfehler, wie Hubert schon anmerkte ein "Übertragungsfehler"
Ich verwende jetzt wie bereits geschrieben SELECT
Gruß
Klaus
Klaus