Zitat von
Gigant02:
hmm habe die alte soweit wieder zum laufen bekommen (endlich)
frage eins
wie deinstalliere ich komonenten ???
Komponenetn->Packages installieren -> Enfernen.
Pfade aus Umgebungsoptionen/Bibliothekspfad und Suchpfad enfernen.
Verzeichnis löschen.
Zitat:
Frage zwei
wo ist der unterschied zwischen
csv und nicht
csv und wo bekomme ich die
csv wenn das die nicht
csv war ???
Unter schied zwischen
cvs (nicht
csv) und der Nicht-
CVS Version ist, das die Entwicklerversion im Versionierungssystem von SF.net neuer ist und neu Features enthält ( z.B. für sqlite3 und FireBird 2.0).
Sie besitzt aber möglicherweise mehr Bugs.
Auf das
CVS kann man z.B. mit WinCVS zugreifen.
Zitat:
Delphi-Quellcode:
procedure TfrmEinstellung.Button1Click(Sender: TObject);
var qKonten : tzQuery;
cSQL : String;
begin
cSQL := 'SELECT SUM(betrag) as betrag, konten_fk FROM kontoSoll ' +
'GROUP BY konten_fk';
if (DB_Open(qKonten,cSQL)) then begin
qKonten.First;
While (Not qKonten.Eof) do begin
cSQL := 'UPDATE konten SET kontostand = '+qKonten.FieldByName('betrag').asString
+' WHERE konto_pk = '+qKonten.FieldByName('konten_fk').asString;
DB_Exec(cSQL);
ShowMessage(qKonten.FieldByName('betrag').asString);
qKonten.Next;
end;
end;
qKonten.Free;
end;
so eine kleine erklärrung
DB_OPEN öffnet mir einfach eine
Query und DB_Exec ist nur für ausführungen da
das Showmessage gibt mir immer nur 0 zurück
also einen fehler oder ??
Hast Du in der Prozedur DB_Exec eine loakle TZQuery-Komponente, oder nimmst du die qKonten?
Wie sind die weiteren Einstellungen?
Möglicherweise verschiebt das Update den Zeiger der Abfrage.