DbExpress Rückgabe

[Martin W]

Hey;


Nach längerer Pause hab ich mir vorgenommen mich mal wieder intensiv mit Delphi zu beschäftigen.

Also folgendes:, ich habe:

- TSQLConnection;
- TSQLDataSet;

Das ausführen folgendes Befehls klappt einwandfrei:

CREATE TABLE `Norm1` (`TEXT_1` text NOT NULL , `Wert` text NOT NULL ) TYPE=MYISAM PACK_KEYS=DEFAULT ROW_FORMAT=DEFAULT oder

INSERT INTO `Norm1` (TEXT_1, Wert) VALUES(' + QuotedStr(Edit1.Text) + ', ' + QuotedStr(Edit2.Text) + ')
DOch jetzt möchte ich auch Werte abfragen. Das mache ich so:

SQLDataSet1.CommandText := 'SELECT Wert FROM `Norm1` WHERE TEXT_1=QuotedStr(Edit1.Text)'; Also Rückgabewert dürfte ich eine Tabelle mit einer Spalte sowie einigen Zeilen haben. Wie kann ich jetzt schritt für schritt den Text der einzelnen Zeilen auslesen? Möchte folgendes:

Caption Label 1 = Wert Zeile 1
Caption Label 2 = Wert Zeile 2
Caption Label 3 = Wert Zeile 3

usw..


Danke für alle Antworten,
gruß
martin

[mikhal]

Etwa so:

Delphi-Quellcode:

SQLDataSet1.Open;
Label1.Caption := SQLDataSet.FindField('Wert').AsString;
SQLDataSet1.Next;
Label2.Caption := SLQDataSet1.FindField('Wert').AsString;
...

Grüße
Mikhal

[Martin W]

Woran merke ich das ich den letzten datensatz erreicht habe`?

[mikhal]

Die Methode Eof meldet dir, wenn der Cursor über den letzten Datensatz will. Am Besten verwendest du eine While-Schleife, etwa so:

Delphi-Quellcode:

while not SQLDataSet1.Eof do
begin
  ...
  SQLDataSet1.Next;
end;
...

Grüße
Mikhal

[Martin W]

mein source sieht jetzt so aus:

Delphi-Quellcode:

  SQLDataSet1.CommandText := 'SELECT Wert FROM `Norm1` WHERE TEXT_1=' + QuotedStr(Edit1.Text);
  SQLDataSet1.Open;
  SQLDataSet1.First;
  Edit2.Text := SQLDataSet1.FindField('Wert').AsString;

es kommt der Fehler:

Zitat:

---------------------------
Project4
---------------------------
dbExpress-Fehler: [0x0003]: Ungültiger Feldtyp.
---------------------------
OK
---------------------------

[mikhal]

Ich kenne mich nicht mit MySQL aus, Verwende mal statt des Datentyps Text den Datentyp varchar mit einer Längenangabe bei der Definition deiner Tabelle. Es kann sein, daß es damit zusammenhängt. Siehe auch Dokumentation von MySQL, dort den Hinweis auf stillschweigende Anpassung, sprich Änderung, des Datentyps durch die Datenbank, Version 5.0.

Ansonsten kann ich eigentlich keinen Grund für die Fehlermeldung sehen...

Grüße
Mikhal

[Martin W]

Der Fehler kommt leider immer noch ...