Zwei Kollonen miteinander addieren

[d_v]

Hallo an allen.
Ich arbeite gerade an eine Datenbank(Paradox 7)mit D7 und muss 2 Kollonen miteinander addieren und danach die Werte in der ersten Kollone retten. Meine Datenbank siet so aus:ID_Nr, Produkt_auf_Lager und Geliefert_Produkt.Also sollen alle Werte von Product_auf_Lager mit Geliefert_Product addiert werden und danach in der Kollone Product-auf_Lager gerettet werden.In der Kollone Product_auf_Lager sind schon 200 Werte und es kommen mehr dazu.Geht das uberhaubt??

[DeddyH]

Ich weiß nicht, ob ich Dich recht verstanden habe.

SQL-Code:

UPDATE Tabelle
SET Product_auf_Lager = Product_auf_Lager + Geliefert_Product

[d_v]

Hallo an allen
Ich habe folgendes versucht:

Code:

Table1.Active:=true;
 Table1.Edit;
 Table1.First;
 while not Table1.Eof do begin
 Table1.FieldByName('Cantitate Ramasa'):=Table1.FieldByName('Total')+
 + Table1.FieldByName('Cantitate_Vanduta');
 Table1.Post;
 Table1.Next;
 end;

Die Fehlermeldung ist:
Left side cannot be assignet to
Alle Felder haben die selben Eingenschaften.
Wo kann der Fehler liegen??

[mkinzler]

Versuch mal

Delphi-Quellcode:

Table1.FieldByName('Cantitate Ramasa').Value :=Table1.FieldByName('Total')+
+ Table1.FieldByName('Cantitate_Vanduta').Value;

Du willst ja den Inhalt und nicht das Feld zuweisen

[haentschman]

Hallo...

und das EDIT in die while - Schleife sonst hast du bein 2. Post die Datenmenge nicht im Edit Modus.

Delphi-Quellcode:

Table1.Active:=true;
Table1.First;
while not Table1.Eof do 
begin
  Table1.Edit;
  Table1.FieldByName('Cantitate Ramasa').Value:= Table1.FieldByName('Total').Value + Table1.FieldByName('Cantitate_Vanduta').Value;
  Table1.Post;
  Table1.Next;
end;

- oder VALUE etsprechend der FeldTypen .asString, .asInteger etc.
:hi:

[d_v]

Super Danke.
Funktioniert einwandfrei.