ZEOS: MySQL Fehler ausgeben lassen?

[JPSelter]

Gibt es eine Möglichkeit, an den direkten Verursacher einer Exception ranzukommen? Ich habe nun eine Datenbank erstellt und teste gerade einen CREATE TABLE Befehl. Da ist aber ein Fehler drin, nur welcher, das wüsste ich gerne. Bei PHP benutze ich dann immer mysql_error(), da steht dann sowas drin.

[Angel4585]

sowas?

Delphi-Quellcode:

try
  Query.ExecSQL;
except
  on e:Exception do
    ShowMessage(e.Message);
  end;

[JPSelter]

Ja sowas Danke!

Wo wir schon dabei sind... was stimmt hier nicht?

Delphi-Quellcode:

ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('CREATE TABLE protokolle ('+
    'id INT NOT NULL PRIMARY_KEY, '+
    'basetype VARCHAR(64) NOT NULL, '+
    'source VARCHAR(128) NOT NULL, '+
    'member MEDIUMTEXT NOT NULL, '+
    'distribution MEDIUMTEXT NOT NULL, '+
    'nextdate INT NOT NULL'+
    ');');
  ZQuery1.ExecSql;

Er meckert danach mit Fehlernr. -104, Token unknown und invalid Token...

[Angel4585]

Hast du die Query mit ner TZConnection verbunden?
Er muss ja wissen win welche DB er das schreiben soll

BTW: ich würd das so machen:
[quote="JPSelter"]

Delphi-Quellcode:

ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('CREATE TABLE IF NOT EXISTS protokolle ('+
    'id INT NOT NULL AUTO_INCREMENT, '+
    'basetype VARCHAR(64) NOT NULL, '+
    'source VARCHAR(128) NOT NULL, '+
    'member MEDIUMTEXT NOT NULL, '+
    'distribution MEDIUMTEXT NOT NULL, '+
    'nextdate INT NOT NULL, '+
    'PRIMARY KEY(id));');
  ZQuery1.ExecSql;

quote]

was soll eigentlich in die MEDIUMTEXT-Felder rein? ich nehm für längere Texte immer BLOB

[JPSelter]

In das Feld soll eine Liste von Personennamen rein, TEXT ist mir da zu lang, und VARCHAR zu kurz. Oder gibts da was geeigneteres für?

Ich habe mal klein angefangen, und endlich einen Befehl erfolgreich abgeschickt:

Delphi-Quellcode:

ZQuery1.SQL.Text:='CREATE TABLE test ('+
    'id INT NOT NULL, '+
    'id2 INT'+
    ')';

Füge ich nun PRIMARY_KEY oder IF NOT EXISTS hinzu, meckert er, dass er das alles nicht kennen würde. Wieso?

Delphi-Quellcode:

ZQuery1.SQL.Text:='CREATE TABLE IF NOT EXISTS test ('+
    'id INT NOT NULL PRIMARY_KEY, '+
    'id2 INT'+
    ')';

Machts eigentlich einen Unterschied, ob ich .SQL.Add oder .SQL.Text benutze?

[MagicAndre1981]

Zitat von JPSelter:

Machts eigentlich einen Unterschied, ob ich .SQL.Add oder .SQL.Text benutze?

Bei Add wird an die TStrings von SQL einfach der neue Text drangehangen und da kann es dazu kommen, dass dann mehrere SQL-Befehler drin stehen, diedu aber gar nicht haben willst. Also gleich auf Text zugreifen, oder vorher Clear aufrufen.

[Angel4585]

Hmm.. in der Überschrift steht das du mit MySQL arbeitest un in deinem ersten Post steht was von Firebird.. mit was arbeitest du denn nu?

[JPSelter]

Also ich verstehe das so:

Delphi->ZEOS->Firebird Embedded Server->MySQL

[MagicAndre1981]

Zitat von JPSelter:

Also ich verstehe das so:

Delphi->ZEOS->Firebird Embedded Server->MySQL

Ich versteh grad nix mehr

[Angel4585]

Zitat von MagicAndre1981:

Zitat von JPSelter:

Also ich verstehe das so:

Delphi->ZEOS->Firebird Embedded Server->MySQL

Ich versteh grad nix mehr

ich schliess mich an ich verstehs au net

mit Delphi -> ZEOS -> MySQL-Server sollte es gehn aber Firebird hat da nix zu suchen