Ich habe eine sehr einfache Idee gehabt: ich wollte eine Datenbank
nicht direkt über den Quellcode erstellen, sondern über eine eigene
sehr kleine Anwendung:
Ich übergebe einfach nur den Namen der neuen Datenbank, die/den
Tabelle(n)-namen dazu und die Tabellenspalten (also z. B. NAME text,
PLZ INTEGER) selber sieht dann in etwa so aus:
Dim db as REALSQLDatabase
Dim f as FolderItem
dim s,table_name As String
s=Datenbankname+".rbd" ' liegt als Eigenschaft bereit und kann
vorher benannt werden
table_name=Datenbanktabelle 'liegt als Eigenschaft bereit und kann
vorher benannt werden
f=New FolderItem(s)
db=New REALSQLDatabase
db.databaseFile=f
If db.CreateDatabaseFile = true then
MsgBox "Datenbank mit dem Namen "+f.Name+" wurde erstellt."+chr
(10)+"dieser Creation-string wurde übergeben: >"+c_s+" <" ' c_s kommt
beim Aufruf der Methode mit
else
MsgBox "Anlegen der Datenbank hat nicht funktioniert."
End If
if db.Connect then
MsgBox "dieser Creation-string wurde übergeben: "+c_s
db.SQLExecute ( "create table"+ table_name+ "(" +c_s+ ")" )
db.Commit
db.close
MsgBox "diese Tabelle >"+table_name+" < wurde erzeugt"
else
MsgBox "konnte nicht geöffnet werden"
end if
Alles gut und schön. Irgendwie legt es auch diese Tabelle an (oder
doch nicht), aber ich finde keine Spalten.
Und auch wenn ich diese Datenbank in mein Projekt ziehe, sehe ich
dazu keine Spalten!
Irgendwo stimmt da was nicht. Wer kann mal gucken.
wäre nett.
Gruß
Roland
|