Im zweiten Teil wurden per Quellcode Tabellen erstellt und Daten eingef\u00fcgt. Im dritten Teil nun ein paar Funktionen zum abrufen von Daten aus sqlite Tabellen. Hierf\u00fcr verwende ich mehrere Funktionen. Dies ist notwendig da einige Abfragen nur ein einziges Ergebnis liefern, andere wiederum eine komplette Tabelle. Praktischerweise speichert man solche Abfragedaten in ein Array um sie sp\u00e4ter einfacher zu verwenden. 1. NonAry Abfragen F\u00fcr den normalen Gebrauch ergeben sich so 3 unterschiedliche Abfragetypen. M\u00f6chte man zum Beispiel die Anzahl Zeilen einer Tabelle zur\u00fcckgeben, so erledigt man dies mit "select count(*) from …". Als Ergebnis erh\u00e4lt man eine Zahl. Als Datentyp kommt hier Integer in Frage. F\u00fcr diese Art der Abfrage baut man sich eine Funktion welche als R\u00fcckgabe eine Ergebnis liefert. Dies sieht wie folgt aus: <\/p>\n
Public Function func_sql_one_res(sub_sql as String)\nDim sub_result As String\nDim i As Int16\n'cmd erstellen, abfrage zuweisen\nsqlite_cmd = sqlite_connect.CreateCommand\nsqlite_cmd.CommandText = sub_sql\n'abfrage ausf\u00fchren\ndim sqlreader as SQLiteDataReader = sqlite_cmd.ExecuteReader()\n'daten \u00fcbergeben\nsub_result = sqlreader(0)\n'r\u00fcckgabe des strings\nreturn sub_result\nEnd Function<\/code><\/pre>\n Eventuell m\u00f6chte man nicht nur die Anzahl Zeilen abfragen, sondern eine Zeichenkette, so ist die interne Variable vom Typ String erforderlich. Bei der R\u00fcckgabe aus der Funktion an eine Variable, kann man mit "cint" zum Beispiel das Ergebnis in Integer wandeln. Die Anzahl Zeilen in der Personendaten Tabelle ruft man entsprechend mit "Count" ab. <\/p>\n
Dim count_personal as Int64\n'sql abfrage erstellen\nsqlite_string = "select count(*) from Personen"\n'sql abfrage ausf\u00fchren, r\u00fcckgabe in var speichern\ncount_personal = cint(func_sql_one_res(sqlite_string))<\/code><\/pre>\n 2. Eindimensionale Abfragen Eine Abfrage welche als Beispiel, die verschiedenen St\u00e4dte in der Personen Tabelle liefert, kann nicht mit der ersten Funktion ermittelt werden. Das Ergebnis kann mehre St\u00e4dte enthalten und somit ist es notwendig ein 1D Array einzusetzen. <\/p>\n
Public Function func_sql_1d_ary(sub_sql As String)\n'ary erstellen\nDim sub_ary(1000) As String\nDim sub_internal_counter As Int64 = 0\n'cmd erstellen, abfrage zuweisen\nsqlite_cmd = sqlite_connect.CreateCommand\nsqlite_cmd.CommandText = sub_sql\n'abfrage ausf\u00fchren\ndim sqlreader as SQLiteDataReader = sqlite_cmd.ExecuteReader()\n'ary f\u00fcllen\nWhile sqlreader.Read()\n sub_ary(sub_internal_counter) = sqlreader(0)\n sub_internal_counter += 1\nEnd While\n'r\u00fcckgabe des arys\nReturn sub_ary\nEnd Function<\/code><\/pre>\n \u00dcber den Internal Counter werden die einzelnen Ergebnisse in das Array gespeichert beginnend mit 0. Der Aufruf geschieht analog der ersten Funktion, nur das hier ein Array \u00fcbergeben wird. <\/p>\n
Dim ary_staedte() as String\n'sql abfrage erstellen\nsqlite_string = "select distinct ort from Personen"\n'sql abfrage ausf\u00fchren, r\u00fcckgabe in var speichern\nary_steadte = func_sql_1d_ary(sqlite_string)<\/code><\/pre>\n 3. Zweidimensionale Abfragen Nun wird es interessant. M\u00f6chte man nun die komplette Personentabelle auslesen, um anschlie\u00dfend die gelesenen Daten in einer Listview darzustellen, ist ein 2D Array notwendig. Ein 2D Array ist nichts anderes als zum Beispiel eine Excel Tabelle. Es gibt Spalten und Zeilen und nach diesen Schema ist sowohl unsere Personen Tabelle aufgebaut als auch das Array welches bef\u00fcllt werden soll. Auf die 2D Abfrage gehen ich etwas n\u00e4her ein: <\/p>\n
Public Function func_sql_ary(sub_sql As String,sub_sql_count as String<\/code><\/pre>\n Die Funktion ben\u00f6tigt 2 Parameter, der Abfrage String (Daten) und den Count String (Anzahl Datens\u00e4tze). <\/p>\n
Dim sub_internal_counter As Int64\nDim sub_anzahl_rows as Int64\nDim i As Int16<\/code><\/pre>\n Interne Variablen <\/p>\n
sub_anzahl_rows = func_sql_one(sub_sql_count)<\/code><\/pre>\n Anzahl der Datens\u00e4tze \u00fcber die NonAry Abfrage ermitteln <\/p>\n
sqlite_cmd = sqlite_connect.CreateCommand\nsqlite_cmd.CommandText = sub_sql<\/code><\/pre>\n Command erstellen <\/p>\n
dim sqlreader as SQLiteDataReader = sqlite_cmd.ExecuteReader()<\/code><\/pre>\n Abfrage ausf\u00fchren <\/p>\n
Dim sub_ary(sub_anzahl_rows, sqlreader.FieldCount -1) as String<\/code><\/pre>\n Array erstellen aus Anzahl der Datens\u00e4tze und Anzahl der Felder <\/p>\n
While sqlreader.Read()\n For i = 0 To sqlreader.FieldCount -1\n sub_ary(sub_internal_counter, i ) = sqlreader(i)\n Next\n sub_internal_counter += 1\nEnd While<\/code><\/pre>\n \u00dcber die While Schleife wird Abfrage abgearbeitet. Innerhalb dieser wird mit der For Schleife die Anzahl der Felder im Array Zeile f\u00fcr Zeile das Array gef\u00fcllt. sub_internal_counter = Anzahl Datens\u00e4tze sqlreader.FieldCount = Anzahl Felder <\/p>\n
Return sub_ary<\/code><\/pre>\n R\u00fcckgabe des Arrays Aufruf erfolgt mit 2 Sql Strings. <\/p>\n
Dim act_result(,) as String\nsqlite_string = "select per_name, per_corname, per_strasse, per_plz, per_ort from personen"\nsqlite_string_count = "select count(*) from personen"\nact_result = func_sql_ary(sqlite_string, sqlite_string_count)<\/code><\/pre>\n Die komplette Personen Tabelle befindet sich nun im 2D Array act_result. Das Array ist wie folgt gef\u00fcllt: act_result(0,0) = Zeile 1, Feld 1 'Name act_result(0,0) = Zeile 1, Feld 2 'Vorname act_result(0,0) = Zeile 1, Feld 3 'Strasse act_result(0,0) = Zeile 1, Feld 4 'PLZ act_result(0,0) = Zeile 1, Feld 5 'Ort act_result(1,0) = Zeile 2, Feld 1 'Name act_result(1,0) = Zeile 2, Feld 2 'Vorname … Nun viel Spa\u00df mit Sqlite.<\/p>\n","protected":false},"excerpt":{"rendered":"
Im zweiten Teil wurden per Quellcode Tabellen erstellt und Daten eingef\u00fcgt. Im dritten Teil nun ein paar Funktionen<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[1537,1688,1689,1690],"class_list":["post-1697","post","type-post","status-publish","format-standard","hentry","category-programmieren","tag-sqlite","tag-sqlite-abfragen","tag-sqlite-array","tag-sqlite-vb-net"],"_links":{"self":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/posts\/1697","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/comments?post=1697"}],"version-history":[{"count":1,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/posts\/1697\/revisions"}],"predecessor-version":[{"id":2709,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/posts\/1697\/revisions\/2709"}],"wp:attachment":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/media?parent=1697"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/categories?post=1697"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/tags?post=1697"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}