Code: Alles auswählen
USE KUNDEN NEW
? Alias() // Kunden
USE PRODUKTE NEW
? Alias() // Produkte
CLOSE
? Alias() // leer - Kunden ist NICHT selektiert
SELECT KUNDEN
? Alias() // Kunden
Moderator: Moderatoren
Code: Alles auswählen
USE KUNDEN NEW
? Alias() // Kunden
USE PRODUKTE NEW
? Alias() // Produkte
CLOSE
? Alias() // leer - Kunden ist NICHT selektiert
SELECT KUNDEN
? Alias() // Kunden
Code: Alles auswählen
LOCAL cAlias := Alias()
? cAlias --> "DRUDAT"
? Alias() --> "DRUDAT"
DBSelectArea("DRUDAT") -> Fehler
DBSelectArea( cAlias) --> Fehler
Code: Alles auswählen
LOCAL cAlias := Alias()
Select( 0 )
Use ( "DRUDAT" )
? cAlias --> "DRUDAT"
? Alias() --> "DRUDAT"
DBSelectArea("DRUDAT") -> Fehler
DBSelectArea( cAlias) --> Fehler
Und du hast (hattest) auch nicht die Exe oder zugehörige DLLs komprimiert?
Code: Alles auswählen
FUNCTION NetUse( cDatabase, lOpenMode, nSeconds ,lNumsel )
LOCAL lForever
lForever = (nSeconds = 0)
do while (lForever .OR. nSeconds > 0)
if lOpenMode
if lNumsel
use (cDatabase) EXCLUSIVE NEW
else
use (cDatabase) EXCLUSIVE
endif
else
if lNumsel
use (cDatabase) SHARED NEW
else
use (cDatabase) SHARED
endif
endif
if ! neterr()
return (.T.)
endif
inkey(.1)
nSeconds = nSeconds - 1
enddo
RETURN (.F.)