Ich habe mit ES ein Grid erstellt das aus 12 Tabellen besteht( jede Tabelle ein Monat).
jede Tabelle hat bis zu 31 Spalten und 18 Zeilen in jeder Zelle einer Tabelle "K A N N" sich ein Eintrag befinden.
Ich babe nun versucht die Tabelle in eine SQLite DB zu speichern, das funktioniert auch... Aber leider werde ich alt und grau bis das erledigt ist.
Kennt jemand einen schnelleren weg ?
Hier ein Ausschnitt meines codes.
Code: Alles auswählen
Procedure Speichern()
Protected db_name.s = "C:\Users\meiner\Downloads\" + Str(Jahr) +".db", test.s
Protected SQL.s, k.i, Zeilen.i, Spalten.i, i.i, m.i, L.s, o.i, n.i
Dim Monat.s(12)
Restore Monatsnamen
For n= 1 To 12
Read.s Monat(n) ;array für monatsnamen
Next
If FileSize(db_Name.s) <= 0
If CreateFile(1, db_Name.s)
CloseFile(1)
If OpenDatabase(#KalenderDB, db_Name.s, "", "", #PB_Database_SQLite)
For m = 1 To 12
StatusBarProgress(#ProgressBar, 0, m)
o = m
SQL.s = "CREATE TABLE[ " + m + " " + Monat(m) + "](Spalte INTEGER , Zeile INTEGER, Eintrag TEXT)"
Debug sql.s
DatabaseUpdate(#KalenderDB, SQL)
Spalten = egrid_NumberOfColumns(m)
For i = 1 To Spalten
Zeilen = egrid_NumberOfRows(m)
For k = 1 To Zeilen
test = egrid_GetCellText(m, i+1, k-1)
L.s ="INSERT INTO[ "+ m + " " + Monat(m) +"]VALUES('" + k + "','" + i + "','" + test + "')"
DatabaseUpdate(#KalenderDB, L)
Next
Next
Next
Else
MessageRequester("Fehler", DatabaseError(), #PB_MessageRequester_Ok)
End
EndIf
Else
MessageRequester("Fehler", db_Name + " konnte nicht erstellt werden.",#PB_MessageRequester_Ok)
End
EndIfChristian
