SQLite(libsql) 'Ne menge Abfragen...'Ne menge Zeit

[Prototypjack]

Moin!
Ich habe noch eine Frage zu mysql abfragen. Und zwar fülle ich ein Listview(VirtualStringTree in diesem Fall) mit sehr vielen Daten aus einer Tabelle, doch das dauert viel zu lange.
Hier mal meine Abfrage:

Delphi-Quellcode:

vstSongs.BeginUpdate;
  for I := 0 to Str.Count - 1 do
  begin
    Application.ProcessMessages;
    Song.SongID := StrToInt(Str.Strings[I]);
    Song.FileName := dbMain.QueryOne('SELECT "filename" FROM "music" ' +
      'WHERE "songid" = "' + Str.Strings[I] + '"');
    Song.Artist := dbMain.QueryOne('SELECT "artist" FROM "music" ' +
      'WHERE "songid" = "' + Str.Strings[I] + '"');
    Song.Title := dbMain.QueryOne('SELECT "title" FROM "music" ' +
      'WHERE "songid" = "' + Str.Strings[I] + '"');
    Song.Album := dbMain.QueryOne('SELECT "album" FROM "music" ' +
      'WHERE "songid" = "' + Str.Strings[I] + '"');
    Song.TrackNum := StrToInt(dbMain.QueryOne('SELECT "tracknum" FROM "music" ' +
      'WHERE "songid" = "' + Str.Strings[I] + '"'));
    Song.Year := dbMain.QueryOne('SELECT "year" FROM "music" ' +
      'WHERE "songid" = "' + Str.Strings[I] + '"');
    Song.Genre := dbMain.QueryOne('SELECT "genre" FROM "music" ' +
      'WHERE "songid" = "' + Str.Strings[I] + '"');
    Song.Rating := StrToInt(dbMain.QueryOne('SELECT "rating" FROM "music" ' +
      'WHERE "songid" = "' + Str.Strings[I] + '"'));
    Song.PlayTime := StrToInt(dbMain.QueryOne('SELECT "playtime" FROM "music" ' +
      'WHERE "songid" = "' + Str.Strings[I] + '"'));
    AddVSTStructure(vstSongs, nil, Song);
    // lbSongs.Items.Add(Str.Strings[I]);
  end;
  vstSongs.EndUpdate;
  vstSongs.SortTree(3, sdAscending, True);

Hat jemand eine Idee wie ich das noch optimieren könnte? Zugegeben, die einzelnen Abfragen sind sehr hässlich.

Ich hoffe ihr könnt mir helfen!
Gruß,
Max

[mkinzler]

Mach doch eine Abfrage mit allen Feldern ist um einiges schneller.

BTW. Geht es hier um SqlLite oder MySQL?

[Prototypjack]

Moin!
Erstmal danke für die schnelle Reaktion.
Wie bekomme ich so eine Anfrage zustande?(tut mir leid ich bin auf dem Gebiet erst seit 3 Tagen tätig)

Hier geht es um SQLite, sry falls es Missverständnisse gab.
Gruß,
Max

[mkinzler]

SELECT "filename", "artist", "Title", ... FROM "music" where ...;

[Prototypjack]

Ok, funktioniert.
Danke für deine Hilfe
Gruß,
Max

[mkinzler]

Kenne mich nicht mit dieser Datenbank aus. habe mir mal die Doku zu dem wrapper angesehen. es müßte so gehen:

Delphi-Quellcode:

dbMain.Query( <sqlstring>);
dbMain.results[i].ByField['<feldname>'];

z.B.

Song.FileName := dbMain.results[i].ByField['filename'];

[Prototypjack]

Danke mkinzler für deine Mühe!
Ich löse es so:
Song.TrackNum := StrToInt(dbMain.Results[I].AsString[5]); ..Wow ! Ist das schnell!
Danke nochmal!
Gruß,
Max

[mkinzler]

Es wird auch pro Durchgang nur noch eine Abfrage an die datenbank gestellt, anstatt 9.