Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Zugriffsverletzung bei SQL Abfrage - Warum? (https://www.delphipraxis.net/13669-zugriffsverletzung-bei-sql-abfrage-warum.html)

Jetro223 26. Dez 2003 15:10

Re: Zugriffsverletzung bei SQL Abfrage - Warum?
 
Hallo, erstmal Danke für eure Antworten. Ich hab jetzt noch ein bisschen rumprobiert und scheinbar geht es jetzt damit:

Delphi-Quellcode:
procedure TFArtikel.DBGridDatenTitleClick(Column: TColumn);
begin

  //Nach ArtNr sortieren
  If (Column.FieldName = 'ArtNr') Then
    Begin
      DB.Active := False;
      DB.SQL.Clear;
      DB.SQL.Add('SELECT * FROM "c:\artikel.db"');
      DB.SQL.Add('ORDER BY ArtNr');
      iSortierStatus := 1;
    End;

  //Nach Artikelbezeichnung sortieren
  If (Column.FieldName = 'Artikelbezeichnung') Then
    Begin
      DB.Active := False;
      DB.SQL.Clear;
      DB.SQL.Add('SELECT * FROM "c:\artikel.db"');
      DB.SQL.Add('ORDER BY Artikelbezeichnung');
      iSortierStatus := 2;
    End;
... und dann am Ende ...

Delphi-Quellcode:
  //Sortiertes Feld an Anfang setzen
  Case iSortierStatus of
    1 : DB.FieldByName('ArtNr').Index := 1;
    2 : DB.FieldByName('Artikelbezeichnung').Index := 1;
  End;
Mfg :)


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:33 Uhr.
Seite 2 von 2     12   

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