Soooo,
ein Insert habe ich hinbekommen,
aber wie kriege ich den wieder raus aus der
DB. der Parameter asBlob gibt asStream gibt es ja bei q.FieldByName ja nicht.
Delphi-Quellcode:
sStream := TMemoryStream.Create;
trlKontaktTyp.SaveToStream(sStream);
CreateQuery(qtemp);
qtemp.ParamCheck := true;
qTemp.SQl.text := 'UPDATE Dateien SET DateiBlob = :DateiBlob,' +
'Bezeichnung = :Bezeichnung,' +
'Bemerkung = :Bemerkung ' +
'WHERE DSN = '+alsDSN(sBlobDSN);
qtemp.Parameters.ParamByName('DateiBlob').LoadFromStream(sStream,ftBlob);
qtemp.Parameters.ParamByName('Bezeichnung').Value := 'Kundenanlegen';
qtemp.Parameters.ParamByName('DateiBlob').Value := 'EreignisSteuerung';
qTemp.ExecSQL;
DestructQuery(qTemp);