Einzelnen Beitrag anzeigen

marcibaer

Registriert seit: 27. Sep 2006
Ort: Inden
74 Beiträge
 
Delphi XE2 Professional
 
#5

AW: Zugriff auf externe DB über Zeos und Spring4D

  Alt 20. Mai 2018, 15:01
Hallo Stefan,

vielen Dank! Das hat schon auf jeden Fall schon mal weiter geholfen ...
Jetzt verstehst Du vielleicht, warum ich Dir gestern die Vorschläge für die EKON geschickt hab!
Delphi-Quellcode:
var
  Connection: TZConnection;
  Adapter: IDBConnection;
  Session: TSession;
  Veranstaltung: TVeranstaltung;
  Veranstaltungen: IList<TVeranstaltung>;
  Anzahl: Word;
begin
  Connection := TZConnection.Create(nil);
  with Connection do
    begin
      Port := 1234;
      HostName := '1.2.3.4';
      User := 'Ich';
      Password := 'Passwort';
      Database := 'MyDB';
      Protocol := 'mysql';
    end;
  Adapter := TZeosConnectionAdapter.Create(Connection);
  with Adapter do
    begin
      QueryLanguage := 'qlMySQL';
      Connect;
    end;
  Session := TSession.Create(Adapter);
  Anzahl := Session.ExecuteScalar<Integer>('SELECT COUNT(*) FROM Veranstaltungen', []);
  Veranstaltung := Session.FindOne<TVeranstaltung>(1);
  Veranstaltungen := Session.FindAll<TVeranstaltung>();
ExecuteScalar() funktioniert einwandfrei!
Bei den Aufrufen FindOne() undFindAll() erhalte ich aber die Exception-Klasse EListError mit Meldung 'Eintrag nicht gefunden' - ausgelöst inTSQLGeneratorRegister.GetGenerator() .

Was muss ich denn da noch registieren oder einbinden?

Viele Grüße,

Marc
Marc

Geändert von marcibaer (20. Mai 2018 um 16:39 Uhr)
  Mit Zitat antworten Zitat