MS Access Tabelle in MySQL-Tabelle einlesen / Fehler

[Bernhard Geyer]

Zitat von nachtstreuner:

Zitat:

Du öffnest eine Query mit Open obwohl du noch eine Nicht-Resultset-SQL-Anweisung drin hast.

Wo soll diese Anweisung sein ? Im SQL_TEXT ? Wenn Ja, müsste ich wahrscheinlich ein SQL.Clear einfügen, oder ?

Wenn du ein Clear einfügst dann versuchst du eine leere SQL-Anweisung zu öffnen -> Wird in einer anderen Fehlermeldung enden.

Ansonsten hat deine Query immer noch den Wert:

MyQueryDLS.SQL.Text := SQL_TEXT;

Zitat von nachtstreuner:

Und noch eine Frage, was ist so schwierig zu lesen an dem Code, Einrückungen sind da, Kommentare sind eingefügt, aber ich lasse mir gerne ein Beispiel von Dir geben. Man ist ja lernfähig.

Beispiel:

Delphi-Quellcode:

      else
      loesch := 'N';

Gehört zu else wird aber nicht eingerückt

Delphi-Quellcode:

    finally

    end;

Mmmh.

Aber stimmt. Du hast einrückungen. Aber dadurch das du beginn nich in eine neue Zeile legst wirds m.E. nicht schöner.

Und bitt schmeiß das With raus:

  with datam_Dixi do begin Ist ein maximaler Quell von Fehler da statt deiner Membervariable auf einmal ein with-Variable verwendet wird.
Andere Programmiersprachen vermeiden das indem man den Punkt schreiben muss wenn man die with-Variable ansprechen will.
Bei uns fliegt with immer raus wenn man mal Code überarbeitet.

[nachtstreuner]

Hallo bernhard,

danke für die Tips zur besseren Lesbarkeit. ich werde das Berücksichtigen.

Nun zu dem With, wenn ich das with weglasse, müsste ich doch vor jedem Datensensitiven Befehl, den Datasetbezeichner anfügen, oder ?

Beispiel:

Delphi-Quellcode:

with datam_DIXI do begin
    ADOQueryLIPPS.Active  := false;
end;

würde dann so aussehen:

datam_DIXI.ADOQueryLIPPS.active := false;

[DeddyH]

Genau. Das ist zwar mehr Tipparbeit, aber dafür sieht man auf den ersten Blick, was gemeint ist und noch wichtiger: der Compiler weiß es dann auch eindeutig.

[Bernhard Geyer]

Zitat von DeddyH:

Genau. Das ist zwar mehr Tipparbeit, aber dafür sieht man auf den ersten Blick, was gemeint ist und noch wichtiger: der Compiler weiß es dann auch eindeutig.

Der Compiler ist nicht das Problem. Der weiß schon was er nehmen soll.
Blod ob man als Entwickler weiß was der Compiler nimmt ...

Superschön ist es wenn man in der Klasse dan ein property/Methode ergänzt die es bisher nur auf höhee Eben gab - Viel spaß beim Debuggen ...

[DeddyH]

Deshalb schrieb ich ja "was gemeint ist". Das ist ja nicht immer das, was der Compiler dann wirklich nimmt

[nachtstreuner]

Okay, danke für den Hinweis.

Die nächsten Codeschnipsel werden mit Sicherheit in der Beziehung keinen Anlaß zur Kritik mehr geben.
Nobody is perfect, deswegen bin ich auch gerne hier. Um zu LERNEN.

Übrigens :

Zitat:

MyQueryDLS.open;
if not MyQueryDLS.Active then MyQueryDLS.Open;

War noch versehntlich übriggeblieben, beim ausprobieren. Wurde inzwischen entfernt. War ein Beispiel aus diesem Forum.

So nun aber nochmals zum eigentlichen Problem.
Ich setze ein SQL Statement ab (Truncate). Dieses steht nach Ausführung mit MyQueryDLS.ExecSQL immer noch im Raum.
Wenn ich danach ein SQL.Clear absetze ist das Statement leer und läuft somit beim OPEN auf einen Fehler. Richtig ?

Aber was muss ich danach als SQL-Statement absetzen wenn die Tabelle leer ist, damit kein Fehler auftritt.

[Bernhard Geyer]

Zitat von nachtstreuner:

Die nächsten Codeschnipsel werden mit Sicherheit in der Beziehung keinen Anlaß zur Kritik mehr geben.

Keine Angst. Irgendeiner wird immer eine Kritik anbringen können .

Zitat von nachtstreuner:

Ich setze ein SQL Statement ab (Truncate). Dieses steht nach Ausführung mit MyQueryDLS.ExecSQL immer noch im Raum.
Wenn ich danach ein SQL.Clear absetze ist das Statement leer und läuft somit beim OPEN auf einen Fehler. Richtig ?

Aber was muss ich danach als SQL-Statement absetzen wenn die Tabelle leer ist, damit kein Fehler auftritt.

Für deine Aufgabenstellung dürft ein einfaches

Code:

select * from `tbl_dlschein`

genügen. und wenn du etwas fiter mit Delphi+DB's bist solltest du sowas auf parametrierte INSERTS umstellen.