hallo,
#Lösche DB in der richtigen Folge (eine von drei, nur Eine gezeigt)
oStmt.executeUpdate("Drop Table "+sJS+" IF EXISTS")
oTables = oConn.getTables() 'nützt nix?
oTables.refresh() 'schadet nix.
#Wenn nicht existent: erzeuge neu
if NOT (oConn.Tables.hasByName(sJS))then
'JS Slave, Kind
oStmtDest.executeUpdate("CREATE CACHED TABLE "+sJS+"(""SID""
INTEGER GENERATED BY "&_
" DEFAULT AS IDENTITY (START WITH 0) NOT NULL PRIMARY KEY,"&_
" ""MID"" INTEGER,""DATEV"" DATE,""KFR"" INTEGER"&_
" NOT NULL,""KTO"" INTEGER NOT NULL,""VAL"" DOUBLE NOT NULL,""SZ""
CHAR(3),""FAKT"""&_
" VARCHAR(8),""SREM"" VARCHAR(16),""MEMO"" LONGVARCHAR,"&_
" CONSTRAINT fk2_"+sDbExt+" FOREIGN KEY(""MID"")
REFERENCES "+sJM+"(""MID"")"&_
" ON DELETE CASCADE ON UPDATE CASCADE)"
newDBcreated=true
endIf
#Wenn newDBcreated=true: Fülle einige Records ein
------
Beim ersten Lauf werden die DBs gelöscht, aber keine Neuen erzeugt.
Das Base-Tool zeigt -nach View.Refresh Tables- dies an; das
Basicprogramm schimpft, weil keine DB zum Füllen vorhanden ist.
Beim 2. Lauf sind die DBs da und gefüllt
Versteht das jemand, gibts Abhilfe oder ist es nur zu heiss?
Grüsse
Wolfgang
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
