Exclusive Zugriff für Dbpack

[Rolf Ramacher]

Hallo zusammen,

ich möchte beim Programmstart alle Datenbanken packen. Deshalb lade ich alle dbf in ein Array und dieses durchlaufe ich dann. Es läuft auch, aber irgendwann knallt es dann immer bei der gleichen datenbank.

so sieht mein Code aus:

aDb:=Directory("*.dbf")
For i = 1 to Len(aDb)
cDb:=aDb[1]
If Netz_Use(cDb,.t.,cDB+"im Zugiff")
(cDB)->(DbPack())
Close (cDb)
EndIf
Next i

beim Dbpack() erhalte ich die Meldung, daß die Datenbank ungültig ist.
Dies müßte doch gehen, ohne die Datenbanken direkt anzusprechen.

Die Function Netz_Use funkt. in anderen Programmteilen problemlos.
Auch mit Alias kommt die gleiche Meldung.

[AUGE_OHR]

hi,

aDb:=Directory("*.dbf")
For i = 1 to Len(aDb)
cDb:=aDb[1]
If Netz_Use(cDb,.t.,cDB+"im Zugiff")
(cDB)->(DbPack())
Close (cDb)
EndIf
Next i
beim Dbpack() erhalte ich die Meldung, daß die Datenbank ungültig ist.
Dies müßte doch gehen, ohne die Datenbanken direkt anzusprechen.

a.) Umlaute in DBF Namen ? (wenn ja ConvToOemCP() )
b.) NTX oder CDX ? (wenn CDX -> DbeSys.PRG ?
c.) ist die DBF wirklich ok ? wenn Memo auch ok ?

gruss by OHR
Jimmy

[Rolf Ramacher]

Hi Jimmy,

danke für deine schnelle Antwort. Ich habe es gefunden, es lag am anhang .dbf. Ohne ".dbf" läuft es. Aber nächstes Problem.

Nachdem etliche Datenbanken erfolgreich gepackt wurden erhalte ich die Meldung Kein Platz im Workspace für diese Workarea .

Gibt es eine Begrenzung ? Die Länge der aDb ist 332 Einträge.

[Rolf Ramacher]

Hallo,

die oben gennante Meldung mit der Workspace erhalte ich nur bei 2 Datenbanken. Die anzahl der Datensätze sind nur ca. 700. Es gibt nur ein Feld mit "C" 59 Zeichen.

Hat hierzu jemand eine Idee ?? Denn diese Meldung hatte ich noch nie.

[Martin Altmann]

Hallo Rolf,
Du öffnest 332 Datenbanken? Wie geschieht das in Deiner Funktion? Wird immer mit NEW geöffnet? Ist dann vielleicht der Workarea-Counter zu hoch?

Viele Grüße,
Martin

[AUGE_OHR]

hi,

Nachdem etliche Datenbanken erfolgreich gepackt wurden erhalte ich
die Meldung Kein Platz im Workspace für diese Workarea .

Die Länge der aDb ist 332 Einträge

Code: Alles auswählen

      (cDB)->(DbPack())
       Close (cDb)

müsste doch sein ?

Code: Alles auswählen

       (cDB)->( DbClose() )

wie Martin auch schon fragte ob du in deiner Netz_Use() ein NEW benutzt ?
kannst ja einfach mal ein

Code: Alles auswählen

 IF USED()
   ? LEN( WorkSpaceList() )
 ENDIF

um zu prüfen wie viele er in seiner List hat.

unabhängig davon würde ich ihm in der FOR/NEXT ein wenig SLEEP()
geben damit er den "Cache" auch wegschreiben kann.

oder wie wäre es mit Index aufbauen nach dem PACK ?

gruss by OHR
Jimmy

[Rolf Ramacher]

Hallo Martin/Jimmy

also in Netz_use öffne ich die Datenbanken immer mit einem New
aber mit sleep werde ich mal prüfen.

gebe dann Bescheid

[Rolf Ramacher]

Hallo Martin/Jimmy


@Martin - Nein ich öffne nicht 332 Datenbanken gleichzeitig, sondern das Array enthält 332 Datenbanken.

also mit sleep(001) brachte den gleichen Fehler. Der Hinweis von Jimmy
Close (cDB) brachte ebenfalls den gleichen Fehler.

Die Datenbank heißt im Orginal 0204261.dbf - Ich habe diese mal als
aaa.dbf umbenannt . dann hat es funktioniert. Darf eine Datenbank nicht mit nummern beginnen ??

[Martin Altmann]

Hallo Rolf,
dann ist das klar!
Warum? Nun, ganz einfach - der Datenbankname ist der ALIAS() - und ein ALIAS() als so hohe Nummer kann Probleme geben (->Workarea!)
Ergo: Die Datei darf schon eine Nummer als Dateinamen haben - nur nicht der entsprechende Alias()!

Viele Grüße,
Martin

[brandelh]

Hallo,

früher bei DOS (eventuell auch Win98) hieß es einmal, dass eine Datei mit einem Buchstaben beginnen muss, das ist heute nicht mehr so, aber eventuell kommt da ein Übersetzungsproblem ins Spiel.

Wenn der Compiler den Dateinamen als Alias nimmt und dieser nur aus Ziffern besteht, könnte bei (cAlias) der Alias 999999 intern mit dem numerischen Selectbereich 3-> ... verwechselt werden, da ja beides erlaubt ist, aber einen Selectbereich mit 9989989 ist jenseits aller Grenzen.

Nur so als Vermutung, passen würde dann die Fehlermeldung.

[brandelh]

Hallo Martin,

warst wiedermal schneller

Unsere Erklärungen sind aber ziemlich ähnlich ... werden dann ja wohl stimmen

[Martin Altmann]

Hallo Hubert,
das tun sie - bin da früher nämlich auch oft genug drüber gestolpert...

Viele Grüße,
Martin

[Jan]

Wie wäre es denn, wenn man diese Datei dann öffnet als

Code: Alles auswählen

Use 0204261 Alias A0204261 new Shared

Dann könnte man den Alias aus dem Inhalt des Arrays und dem vorgestellten Buchstaben einfach zusammenstellen, und es wäre keine Nummer mehr?

Jan

[brandelh]

Hi,

genau so sollte es gehen und wenn wir gleich dabei sind.
Hast du schon mal versucht 'DBF1234567890' mit DBU zu öffnen ?
Das Öffnen wäre kein Problem, da ja kurze Dateinamen gebildet werden, aber leider 'DBF123~1' ist das ~ Zeichen wohl im Namen, aber nicht im Alias erlaubt, somit würde ich eine Funktion vorschlagen, die beides erledigt:

Code: Alles auswählen

function MyAlias(cDBF)
     local cAlias := "A"+cDBF
     cAlias := StrTran(cAlias,"~","_")
return cAlias

USE (cDBF) ALIAS (MyAlias(cDBF)) ...

(... nicht getestet, einfach so aus dem Kopf... nicht getestet, einfach so aus dem Kopf, also sind Fehlermeldungen möglich)

[Jan]

Hubert,

warum denn so kompliziert? Wie Du schon sagst: DBU macht das Problem mit der ~ bzw. dem langen dateinamen jenseits von 8.3. Xbase++ hat damit Null Probleme, jedenfalls nicht mit der Länge. Also muß in einem Xbase-Code die Tilde auch nicht ersetzt wereden.

Jan

[brandelh]

Hi Jan,

da hast du natürlich Recht, der Vorschlag gehört ins Clipperforum