Kopieren aus DBGrid1 in DBGrid

[mkinzler]

Komsich, eigentlich müsste beides vom Typ TBytes sein :gruebel:

[Dieter11]

Das dachte ich auch.
Der Pointer springt nur nicht auf den markierten Datensatz sondern nur auf den 1.

[mkinzler]

Welche Delphiversion?

[hoika]

Hallo,

mach mal ganz am Anfang (vor der for-Schleife)

Delphi-Quellcode:

DBGrid1.SelectedRows.Refresh;

Heiko

[Dieter11]

Hallo,

Delphi-Quellcode:

DBGrid1.SelectedRows.Refresh;

hat nichts gebracht.
Ich nutze die Delphi Version: 2007

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[hoika]

Hallo,

stimmen denn die SelectedRows.Count mit den tatsächlich
markierten Zeilen überhaupt überein.

Nimm doch zur Not völlig separate Queries zum DB-Update.
Ich habe DBGrid nie benutzt.


Heiko

[mkinzler]

Ich finde es irgendwie komisch, dass

Zitat:

Delphi-Quellcode:

DBGrid1.DataSource.DataSet.GotoBookmark(DBGrid1.SelectedRows.Items[i]);

fehlerhaft sein soll

[hoika]

Hallo,

ist es nicht
das ist aus der Hilfe zu SelectedRows -> Beispiele

DBGrid1.DataSource.DataSet.GotoBookmark(Pointer(DB Grid1.SelectedRows.Items[i]));

klar hätte man auch statt DBGrid1.DataSource.DataSet
das direkte AdoQuery nehmen können.

Die Hilfe bezieht sich aber AFAIK auf die BDE
(wobei TDataSet ja BDE-unabhängig ist)


Heiko

[Dieter11]

Hier noch einmal der Code:

Delphi-Quellcode:

begin
  inherited;

  with dm_Nails4You_Artikel do
  BEGIN
     ADOQuery_Preisliste.Active := False;
     ADOQuery_Preisliste.SQL.Clear;

     ADOQuery_Preisliste.SQL.Text := 'INSERT INTO Preisliste(ID_Artikel, Bezeichnung) VALUES( :ID, :Bezeichnung)';
     ADOQuery_Preisliste.Parameters.ParseSQL(ADOQuery_Preisliste.SQL.Text, true);

     with DBGrid1.DataSource.DataSet do
     begin

//     DBGrid1.SelectedRows.Refresh;
     for i := 0 to DBGrid1.SelectedRows.Count - 1 do
     BEGIN

       DBGrid1.DataSource.DataSet.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));

       ShowMessage('i: ' + InttoStr(i) );

       ADOQuery_Preisliste.Parameters.ParamValues['ID'] := AdoQuery_Artikel.FieldValues['id'];
       ADOQuery_Preisliste.Parameters.ParamValues['Bezeichnung'] := AdoQuery_Artikel.FieldValues['Bezeichnung'];

       ADOQuery_Preisliste.ExecSQL;
    End;

  end;
end;

Die Schleife for i := 0 to DBGrid1.SelectedRows.Count - 1 do funktioniert. Es wird tatsächlich zu jedem Datensatz im Grid gesprungen. D.h., dass auch DBGrid1.DataSource.DataSet.GotoBookmark(pointer(DB Grid1.SelectedRows.Items[i])); funktioniert.
Aber dann wird immer nur der 1. Datensatz kopiert.

[mkinzler]

Zitat:

Zitat von Delphi-Hilfe

Anmerkung: Unidirektionale Datenmengen unterstützen keine Bookmarks. Wenn Sie GotoBookmark für eine solche Datenmenge aufrufen, ändert sich der aktive Datensatz nicht.