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()
und
FindAll()
erhalte ich aber die
Exception-Klasse EListError mit Meldung 'Eintrag nicht gefunden' - ausgelöst in
TSQLGeneratorRegister.GetGenerator()
.
Was muss ich denn da noch registieren oder einbinden?
Viele Grüße,
Marc