Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Daten per Query einfügen/ändern aber wie? (https://www.delphipraxis.net/5265-daten-per-query-einfuegen-aendern-aber-wie.html)

Albi 30. Mai 2003 13:17


Daten per Query einfügen/ändern aber wie?
 
Ich habe folgendes Problem, ich habe eine Paradox7, zugreifen tue ich über die Query Komponente und den Inhalt lasse ich mir in einem Grid anzeigen.

Und nun dem Problem, ich will die Daten über ein weiters Form in die Table einfügen, was ja auch alles super funktioniert, bis zu dem Punkt, wo ich die Daten nicht mehr nach dem Primärschlüssel sortiert habe sondern nach dem Sekundärindex.

Jetzt habe ich mir gedacht, gut, dann werde ich die Daten zum speichern und ändern nach dem Primärschlüssel sortieren und anschließend den alten Zustand wieder herstellen. Doch dies ist auch nicht die Lösung. (s.u.)

Code:
Form1.Query1.Close;
    LastSort:= Form1.Query1.SQL.Text;
    Form1.Query1.SQL.Clear;
    Form1.Query1.SQL.Add('Select * FROM Test.DB');
    Form1.Query1.Active:= True;
    Form1.Query1.Edit;
    Form1.Query1.FieldByName('Test1').Value:= Edit1.Text;
    Form1.Query1.FieldByName('Test2').Value:= Edit2.Text;
    Form1.Query1.Post;
    Form1.Query1.Active:= False;
    Form1.Query1.SQL.Add(LastSort);
    Form1.Query1.Active:= True;
Kann mir jemand einen kleinen Tip geben?

Albi 30. Mai 2003 15:00

Ich habe jetzt die Lösung gefunden, für den es interessiert ist hier der Link.

Ist eigentlich ganz Simple, wenn man weiß wie es geht. :hello:

Mario 30. Mai 2003 15:06

Manchmal bietet es sich auch an, einen Update-SQL zu machen:
http://sqlcourse.com/update.html

Hierfür plaziere ich im Datenmodul meist eine QueryWork, der ich dann solche Aufgaben zuweise. Bloss mal auf Dein Beispiel übertragen:

Code:
QueryWork.SQL.Text := 'Update tablename set fieldname=123 where indexfield=145';
QueryWork.ExecSQL;

Query1.Close;
Queryl.Open;


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:07 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz