Dbzap mit Alias

[Rolf Ramacher]

Hallo,

ich habe folgendes Problem: Wir haben meherere Etikettendatenbanken an verschiedenen Programmteilen. Diese werden aber durch ein Programm gedruckt. Dabei werden auch teilweise die Datenbanken vorher gezapt. Um riesiges Kopieren vom quellcode zu vermeiden, was dadurch auch etwas unübersichtlich würde, wollte ich die entsprechenden Datenbanken mit alias öffnen und zappen.

Hier mein quellcode (Auszug)
Do Case
Case cEtiketArt="preisdru"
cDb:="spprver.dbf"
cDb1:="spprets"
cDb2:="sppretf"
Case cEtiketArt="ersdru"
cDb:="sperver"
cDb1:="sperets"
cDb2:="speretf"
EndCase

// Hier prüfe ich, ob die Datenbank im Exclusive zu öffnen ist.
If !Netz_Use(cDb,.t.,"Fehler: Datenbank SPPRVER in Bearbeitung","","")
Quit
EndIf
cDb->(DbZap()) // Hierbei bekomme ich den Fehler, daß die Datenbank nicht existiert.

Hier noch die Funktion Netz_use
unction Netz_Use()
Local lJa:=.f.
PARAMETERS Datei, ex_use, cTitel, Info, Name

If Info="alias"
If ex_use && exclusive
Use (Datei) New Exclusive Alias Name
EndIf
Else
If ex_use && exclusive
Use &Datei New Exclusive
EndIf
EndIf
If NetErr()
lJa:=.f.
Msgbox("Die Datenbank "+Datei+" ist in Benutzung"+CRLF+;
"Das Programm an allen Stationen beenden und erneut starten",cTitel)
Else
lJa:=.t.
EndIf
Return lJa

Spreche ich die Datenbank so direkt an funktioniert das ganze wunderbar.
Hat hier jemand eine Idee??

[Martin Altmann]

Hallo Rolf,
zwei Dinge:
Zum Einen hast Du im ersten Fall in cDb den String "spprver.dbf" - laß mal das .dbf weg!
Und zum Anderen wirst Du (cDb)->(DbZap()) schreiben müssen, da Deine DB ja nicht cDb heißt, sondern wie der Inhalt der Variablen cDb!

Viele Grüße,
Martin

[Rolf Ramacher]

Hi Martin,

Danke für den Tipp. Habe ich total übersehen. Funktioniert- genau dass was ich wollte. Super - Danke