DO - Der FoxPro-Kompatible Skriptinterpreter

set datasession to

Legt die aktive Datensitzung fest.

(1) SET DATASESSION TO <DatasessionNumber>

(2) SET DATASESSION TO [1]

Starten einer weiteren Datensitzung

Das folgende Beispiel zeigt wie Sie eine weitere Datensitzung starten können, die neben der Standarddatensitzung gestartet werden kann und einen eigenen Satz an Arbeitsbereichen für Datenoperationen bereitstellt.

  1
  2
  3
  4
  5
  6
  7
  8
  9
10
11
12
13
14
15
16
17
18

LOCAL sess
* Erstelle Cursor FOO in Arbeitsbereich 1
* in Session 1
CREATE CURSOR FOO(SomeField Integer)
? "session=", set("Datasession"), "arbeitsbereich=", select(), "alias=", alias()

* Erstelle und aktiviere eine zusätzliche Session
sess = createobject("Session")
SET DATASESSION TO sess.DatasessionId

* Erstelle Cursor BAR in Arbeitsbereich 1
* in Session 2
CREATE CURSOR BAR(SomeField Integer)
? "session=", set("Datasession"), "arbeitsbereich=", select(), "alias=", alias()

* Kehere to Datasession 1 zurück
SET DATASESSION TO
? "session=", set("Datasession"), "arbeitsbereich=", select(), "alias=", alias()

session= 1 arbeitsbereich= 1 alias= FOO
session= 2 arbeitsbereich= 1 alias= BAR
session= 1 arbeitsbereich= 1 alias= FOO