Hallo,
danke nochmal,
ich nehme jetzt eine MDB
Access Datei und dann klappt es
mit JET.
Mein Problem ist jetzt nur wie kann ich denn einen NULL Wert in den Update schreiben?
Delphi-Quellcode:
var
qryUpdate: TADOQuery;
begin
qryUpdate := TADOQuery.Create(Self);
qryUpdate.Connection := ADOConnectionGeraet;
qryUpdate.Active := false;
qryUpdate.SQL.Text := 'UPDATE tblNSV80 set BEMERKUNG = :bemerk,' +
'SERIALSAP= :serialsap , GEFERTIGT_AM= :gefertigt ' +
' where serialtube = :serialtube';
qryUpdate.Parameters.ParamByName('bemerk').Value := edtBemerkung.Text;
qryUpdate.Parameters.ParamByName('serialtube').Value := edtSerialTube.Text;
qryUpdate.Parameters.ParamByName('serialsap').Value := edtSerialSAP.Text;
if Length(edtSerialSAP.Text) > 0 then
begin
qryUpdate.Parameters.ParamByName('gefertigt').Value := now;
end
else
begin
qryUpdate.Parameters.ParamByName('gefertigt').Value := ????? // NULL
end;