Problem mit Datensatz speichern

[Borschti]

Hallo,

ich habe ein Problem mit dem Speichern von änderungen in einer Query.

Also ich habe eine Query welche normal per SQL Statement gefüllt wird und Später in einem StringGrid ausgegeben wird. Ich benutze ein StringGrid wegen der einfachen durchnummerierung der Datensätze, falls jemand weiß ob man das in einem DBGrid einfach so einstellen kann wäre ich sehr dankbar wenn er mir verraten würde wie das geht, das aber nur so nebenbei.

Also sobald dann etwas in dem StringGrid verändert wird sollen die Geänderten Datensätze in eine Tabelle geschrieben werden bzw. die Datensätze in die Tabelle zurückgeschrieben werden aus der ich sie auch per SQL STatement geholt habe.
Hier liegt jetzt aber mein Problem, ich bekomme eine Fehlermeldung: "In eine Datenmenge die nur zum lesen geeignet ist kann nicht geschrieben werden" oder sowas in der Art, aber der grobe Inhalt sollte so stimmen.

Ich habe gedacht das ich das einfach so machen kann:

Delphi-Quellcode:

    for i := 1 to VisiStringGrid1.RowCount do
      begin
        for z := 1 to sl.Count do
          begin
            VddQuery3.Edit;
            VddQuery3.FieldByName(sl[z]).asString := VisiStringGrid1.Cells[i,z];
            VddQuery3.Post;
          end;
      end;

Also das ich das gesamte StringGrid wegschreibe nachdem etwas verändert wurde (hier besteht sicherlich noch bearbeitungsbedarf, es sollte aber hauptsache erstmal irgendwas weggeschrieben werden).

Nur, wie gesagt, klappt das nicht so wirklich.

Weiß vielleicht jemand Rat?

mfg
Alex

[mkinzler]

Du könntest ein berechnetes Feld verwenden

[Privateer3000]

um das zu vereinfachen, nimm lieber ein dbgrid
und verbinde es mit dem Dataset.
Wenn der Dataset neu eingelesen wird, aktualisiert sich auch dein grid.

[Borschti]

Ja das ist mir schon klar @ Privateer3000

Ich hab ja kein Problem damit das sich das Grid nicht aktualisiert, sondern das ich keine Werte in eine .ads Tabelle speichern kann

Wie geht das mit den Berechneten Feldern und was bringen sie mir für einen Vorteil, hab grad mal etwas nach gestöbert aber wie sollen sie mir bei dem Problem mit dem Wegschreiben der Datensätze in eine .ads Tabelle helfen?

mfg
Alex

[mkinzler]

Mit dem berechneten Feld könntest du die Nr realisieren

[Borschti]

Achso

Ja, das wär nicht schlecht, werd ich mir mal anschaun wenn ich wirklich auf ein DBGrid umsteigen sollte. Danke.

Aber meine Eingangsfrage ist leider noch offen, hoffe auf weitere Hilfe, danke schonmal im vorraus

mfg
Alex

[mkinzler]

Das Problem mit dem Update erledigt sich beim Einsatz des DBGrids.

[Borschti]

Hmm also erstmal danke für die Antworten, Ich habe es jetzt wieder auf ein DBGrid umgestellt habe aber jetzt wieder das gleiche Problem, "Eine Datenmenge, die nur zum Lesen ist, kann nicht geändert werden."
Der Fehler tritt auf sobald ich Werte in das calculated field schreiben will, das mache ich so:

Delphi-Quellcode:

  for i := 0 to Query.RecordCount - 1 do
    begin
      Query.Edit;
      Query.FieldByName('DatensatzNr').asInteger := i;
    end;

Habe ich vielleicht was vergessen?

mfg
Alex

[mkinzler]

Wie sieht die Abfrage aus? was willst du hier editieren?

[Borschti]

Also so setze ich meine Abfrage zusammen:

Delphi-Quellcode:

SQL := 'Select packpf.AdrNr, packpf.BelegNr, packpf.Tour, packpf.Liefertermin,';
  SQL := SQL + ' pacpos.ID, pacpos.Lagerort, pacpos.Platz, pacpos.Anzahl, pacpos.Istmenge,';
  SQL := SQL + ' pacpos.Sollmenge, pacpos.Restmenge, pacpos.Artnr, packpf.Activ, packpf.BelegartID,';
  SQL := SQL + ' packpf.Datum, pacpos.belegnr,';
  SQL := SQL + ' pacpos.Summeanzahl, pacpos.Reihenfolge, pacpos.Einheit';
  SQL := SQL + ' from packpf inner join pacpos on packpf.belegnr = pacpos.belegnr';

  DateTime := DateTimeToStr(DateTimeP.DateTime);
  DTDay := Copy(DateTime, 1, 2);
  DTMonth := Copy(DateTime, 4, 2);
  DTYear := Copy(DateTime, 7, 4);
  DTTIme := '00:00:00.000';

  DTGes := DTMonth+ '/' + DTDay + '/' + DTYear + ' ' + DTTime;

  SQL := SQL + ' WHERE(packpf.Activ = '+QuotedStr('o')+') and (packpf.Tour = '+QuotedStr(ComboBox.Items[ComboBox.ItemIndex])+') and (packpf.Liefertermin = convert('+QuotedStr(DTGes)+', sql_timestamp))';

  case RadioGroup.ItemIndex of
    0: SQL := SQL + ' Order by packpf.Tour, pacpos.Lagerort, pacpos.Platz, pacpos.artnr ';
    1: SQL := SQL + ' Order by packpf.Tour, pacpos.ArtNr';
    2: SQL := SQL + ' Order by packpf.Tour, packpf.AdrNr, pacpos.ArtNr';
  end;

  Query.SQL.Add(SQL);
  Query.Open;

Mit dem Code in meinem vorherigen Post will ich Felder meines berechneten Feldes füllen, will aber halt nicht wirklich

Edit: ReadOnly der Query steht auf False

mfg
Alex