ich habe mir ein kleines DemoProjekt zusammengestellt, wo ich mit Hilfe der ZMSQL-Komponenten einen Datensatz in einer CSV-Datei ändern möchte.
Das Laden der CSV-Datei klappt.
Der UPDATE-Befehl schlägt aber fehl.
Kann mir jemand auf die Sprünge helfen?
Was muss ich konkret machen, damit der UPDATE-Befehl auch wirklich "updatet" ?
Code: Alles auswählen
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, DB, Forms, Controls, Graphics, Dialogs, DBGrids, StdCtrls,
ZMConnection, ZMQueryDataSet;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ZMConnection1: TZMConnection;
ZMQueryDataSet1: TZMQueryDataSet;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
ZMConnection1.DatabasePath := '.\';
ZMQueryDataSet1.ZMConnection := ZMConnection1;
ZMQueryDataSet1.SQL.Text := 'SELECT * FROM KUNDEN';
ZMQueryDataSet1.QueryExecute;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ZMQueryDataSet1.SQL.Text := 'UPDATE kunden SET (name=XXX) where id=2';
ZMQueryDataSet1.QueryExecute;
ZMQueryDataSet1.SQL.Text := 'SELECT * FROM KUNDEN';
ZMQueryDataSet1.QueryExecute;
end;
end.
Code: Alles auswählen
id;name;strasse;ort
1;Huber Erika;Blumenfelderstr. 13;Weihnachtshausen
2;Mustermann Max;Demoweg 1;Musterhausen