Guten Tag,
bin gerade dabei eine kleine Adress-Datenbank als Projektarbeit zu schreiben.
Man kann bereits Werte eingeben und die komplette Datenbank speichern/Laden.
Allerdings wäre es genial wenn ich auch noch meine Werte im DBgrid sortieren lassen könnte; also wenn man auf den jeweiligen Title clickt
wird die Spalte sortiert nach A-Z ; Z-A.
Meine Realisierung funktioniert leider überhaupt nicht, dazu muss ich sagen das wir in der Schule nicht mit "komplexen" Datenbanken arbeiten,
außerdem kenn ich mich (Bis Jetzt?!) nicht mit
SQL aus.
Für das Ereignis "TitleClick" habe ich folgende Procedure: (Aus dem Forum)
als Varriablen sind
Delphi-Quellcode:
sSortColumn: String;
bSortOrder: Boolean; // global festgelegt.
procedure TForm5.DBGrid1TitleClick(Column: TColumn);
begin
if Column.FieldName <> sSortColumn then
begin
sSortColumn := Column.FieldName;
end
else
begin
bSortOrder := not bSortOrder;
end;
ADODataSet1.Close;
if bSortOrder then
begin
ADODataSet1.CommandText := 'SELECT * FROM Table ORDER BY ' + sSortColumn;
end
else
begin
ADODataSet1.CommandText := 'SELECT * FROM Table ORDER BY ' + sSortColumn + ' DESC';
end;
ADODataSet1.Open;
//showmessage(column.fieldname);
end;
Dessweiteren habe ich die Komponente ADODataSet1 eingefügt und mit der DataSource verbunden.
ICh benutze Paradox7 sowie TQuerry, wenn ich das jetzt alles Starte kommt die Fehlermeldung:
Fehlende Connection oder ConnectionString!
Wie schaffen ich das es mir das DBGrid sortiert ausgiebt?!
Herrzlichen Dank für eure Hilfe,
Mfg ice
[edit=Sharky]Habe den Code mal mit den richtigen Tags versehen. Mfg, Sharky[/edit]