 H.Brill | Ciao, was vielleicht nicht jeder weiß, ist, daß man mit SQL bzw. SQLITE auch IN-MMEORY - Datenbanken erzeugen kann. Es wird halt keine DB auf Platte (Datenträger) erzeugt, sondern nur im Speicher. Als Abfallprodukt kann man so auch, wenn auch nur begrenzt (einfache XML-Strukturen) XML-File erzeugen. Hier mal ein kleines Beispiel per SQLITE :
Cls
Set("SQLFile", "F:\Test.xml")
' :memory:
var fbDLL& = db("slUseDLL", "F:\sqlite3.dll")
declare hdb&// Handle der Datenbank
hdb& = db("slInit", ":memory:")
Set("SQLFile", "F:\Kunden.xml")
db("slExec", hdb&, "ATTACH DATABASE ':memory:' AS Kunden", 0)
db("slExec", hdb&, "CREATE TABLE Kunden( VORNAME CHAR(25),NAME CHAR(25),GEBDAT CHAR(10))", 0)
db("slExec", hdb&, "INSERT INTO Kunden (Vorname,Name,Gebdat) VALUES ('Hugo','Maier','10.02.1955')", 0)
db("slExec", hdb&, "INSERT INTO Kunden (Vorname,Name,Gebdat) VALUES ('Erika','Maierbär','26.11.2000')", 0)
db("slExec", hdb&, "SELECT * FROM Kunden", 0)
db("slExec", hdb&, "SELECT * FROM Kunden", 2)
db("slDone", hdb&)
CLEARLIST
Move("FileToList", "F:\Kunden.xml")
Listbox$("XML-Datei", 2)
Print "Done..."
Waitkey
Bitte auf die Pfade achten. |
|