DBGrid MySQL

[Alterauge]

Hallo,

heute ist eifach nicht mein Tag :-(.
Habe eine einfache Frage, glaube ich?

Beispiel:

Wenn ich Button1 drücke, soll automatisch eine neu Zeile im Grid erstellt werden + einen
Fixtext in Spalte 2 (Diese ist ein TEST)

Button1
begin
?????????????????????????????????
end;

[scrat1979]

Das Grid (falls ein DBGrid verwendet wird) wird ja über den Inhalt der Datenbank gefüttert.

Suchst Du vielleicht....

Delphi-Quellcode:

 TableName.Append;
 TableName.FieldByName('Feldname_Spalte_2').AsString := 'TEST'';
 [...]

???

[Alterauge]

Ich glaube das ist die Lösung!

Benötige die Komponente Table1!
Danke werde es testen!

[Alterauge]

Super geht!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 MyTable1.Append;
 MyTable1.FieldByName('Protokoll').Text := 'TEST';
 MyTable1.FieldByName('Wert').Text := 'F15';
 MyTable1.Refresh;
end;

Habe aber noch eine Frage! :-)

Eine Abfrage, befindet sich in Grid ein Wer'F15'

Delphi-Quellcode:

then begin

[haentschman]

Moin...

sind die Werte auch nach einem Programm - Neustart noch vorhanden ?

[Alterauge]

Guten Morgen
Ja, für eine bestimmte Zeit!

[haentschman]

Was bedeutet das ?

...normalerweise werden Änderungen durch Post übernommen. Ein Refresh ist nicht nötig.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 MyTable1.Append;
 MyTable1.FieldByName('Protokoll').Text := 'TEST';
 MyTable1.FieldByName('Wert').Text := 'F15';
 MyTable1.Post;
end;

[Alterauge]

OK!

Werde ich testen!

[Alterauge]

Wie würde eine Abfrage aussehen?

Eine Abfrage, befindet sich in Grid ein Wer'F15'
then begin

[mkinzler]

Das Grid visualisiert ja nur den Inhalt einer Datenmenge ( Tabells, Abfrage). Du musst alos diese durchsuchen.
Z.B. mit Lookup/Locate

[Alterauge]

diese Richtung?

Delphi-Quellcode:

 
if MyTable1.Locate('Wert')='15' then begin

end;

[haentschman]

schau dir mal die Hilfe zu Locate an... da wirst du einen Unterschied feststellen. Die Richtung ist schon mal nicht schlecht.

[Alterauge]

Danke!

Es geht!

Delphi-Quellcode:

if MyTable1.Locate('Wert', 'F15', [loCaseInsensitive]) then
  ShowMessage('Gefunden!')
else
  ShowMessage('Nicht gefunden...');
 begin

[Alterauge]

Delphi-Quellcode:

if MyTable1.Locate('Wert', 'F15', [loCaseInsensitive]) then
  ShowMessage('Gefunden!')
else
  ShowMessage('Nicht gefunden...');
 begin

das geht ! super

was muss ich noch machen, dass nur die aktuelle Zeile abgefragt wird? nicht der ganze Datenbestand?

[DeddyH]

Sofern ich Dich richtig verstanden habe:

Delphi-Quellcode:

if MyTable1.FieldByName('Wert') = 'F15' then

[haentschman]

nicht ganz...

Delphi-Quellcode:

if MyTable1.FieldByName('Wert').AsString = 'F15' then

[Alterauge]

Hallo DeddyH :-),

es soll nur der letzte aktuelle datensatz (zeile) überprüft werden, ob der wert 'F15' vorhanden ist.

[DeddyH]

Besserwisser :tongue: :lol:

[edit] Es gibt nur einen aktuellen Datensatz. Das kann der erste, der letzte oder einer mittendrin sein. [/edit]

[haentschman]

:cheer: juhuuuu.... einmal im Jahr 8-)

Zum Thema: Die Anweisung bezieht sich immer auf den aktuellen Datensatz.

[Alterauge]

geht super !

DANKE:)

[mkinzler]

Das nächste Mal gleich nach dem Richtigen Fragen, sonst bekommst du wieder Antworten auf die Frage, die du gestellet hast und nicht auf die, die du eigentlich Fragen wolltest.
Zudem würde es nicht schaden, etwas über die grundlegende Funktionsweise der Datenbankanbindung der VCL zu wissen.