Einzelnen Beitrag anzeigen

Andreas L.
(Gast)

n/a Beiträge
 
#3

Re: Suche unicodefähige SQLite-Komponente

  Alt 30. Dez 2009, 15:23
Zitat von webcss:
Hier z.B. SQLitePass
Wow, macht schon mal einen guten Eindruck. Was mich etwas irritiert ist, das ich nirgendwo eine Tabelle angeben kann/muss. Es ist immer nur von Datasets die Rede. Ein Dataset müsste ja eigentlich ein record einer Tabelle sein. Ich habs trotzdem mal probiert einen Dataset mit den Tabellennamen anzusprechen, wie zu erwarten war, gehts das leider nicht. Kannst du mir noch einen kleinen Stoß in die richtige Richtung geben? Mein Code:

Delphi-Quellcode:
procedure TCsLanguageManager.LoadLanguages(AFileName: string);
var
  DB: TSqlitePassDatabase;
  Table: TSqlitePassDataset;
  NewLanguage: TCsLanguage;
begin
  DB := TSqlitePassDatabase.Create(nil);
  try
    DB.Database := AFileName;
    DB.Open;
    Table := DB.Datasets.DatasetByName('languages'); //languages ist der Tabellenname, hier erhalte ich eine Exception: Dataset nicht gefunden
    if Table <> nil then
    begin
      FLanguages.Clear; //FLanguages ist eine TObjectList
      while not Table.Eof do
      begin
        NewLanguage := TCsLanguage.Create;
        with NewLanguage do
        begin
          Name := Table.FieldByName('name').AsString;
          IntName := Table.FieldByName('int_name').AsString;
          ISOCode := Table.FieldByName('iso_code').AsString;
          Author := Table.FieldByName('author').AsString;
          ImageIndex := StrToIntDef(Table.FieldByName('flag_index').AsString, -1);
          BidiMode := TBidiMode(StrToIntDef(Table.FieldByName('bidimode').AsString, 0));
        end;
        FLanguages.Add(NewLanguage);
        Table.Next;
      end;
    end;
    DB.Close;
  finally
    DB.Free;
  end;
end;
Zitat von webcss:
Guten Rutsch!
Dir auch
  Mit Zitat antworten Zitat