Datenbank update mit TMemoryStream

[Schodn]

Hallo Leute!

Ich bekomms einfach nicht hin einen TMemoryStream in die Datenbank zu schreiben.

[Fehler] programm.pas(289): Inkompatible Typen: 'OleVariant' und 'PAnsiChar'

kann mir hier wer helfen
Bitte Sehr dringend

Delphi-Quellcode:

  FStream := TMemoryStream.Create;
    FStream.Clear;
    redt_text.Lines.SaveToStream(FStream);
    try
        aqTmp := TADOQuery.Create(self);
        aqTmp.Connection  := frm_main.ADOConnection1;
        aqTmp.SQL.Clear;

        if i_typ = 1 then
            aqTmp.SQL.Add('SELECT * FROM TB_ei_notizen WHERE id = :Param')
        else if i_typ = 2 then
            aqTmp.SQL.Add('SELECT * FROM TB_firma_notizen WHERE id = :Param')
        else if i_typ = 3 then
            aqTmp.SQL.Add('SELECT * FROM TB_an_notizen WHERE id = :Param');

        aqTmp.Parameters.ParamByName('Param').Value := notiz_id;
        aqTmp.Open;
        aqTmp.Edit;

        aqTmp.Recordset.Collect['stichwort'] := edt_stichwort.Text;
        aqTmp.Recordset.Collect['datum'] := dtp_notiz_date.Date;
        aqTmp.Recordset.Collect['schlagworte'] := memo_notiz_schlagworte.Text;
        aqTmp.Recordset.Collect['text'] := PChar(FStream.Memory);          /////FEHLER
         

        aqTmp.Post;
    finally
        aqTmp.Close;
        aqTmp.SQL.Clear;
    end;

mfg
Schodn

[Schodn]

keiner eine Idee? :gruebel: :wall:

[Leuselator]

Delphi-Quellcode:

if aqTmp.FieldByName('Text').IsBlob then begin
  TBlobField(aqTmp.FieldByName('Text')).LoadFromStream(FStream);
end;

sollte es tun
Gruß

[Tyrael Y.]

Guck dir mal die Methode CreateBlobStream von TADOQuery an und überprüfe nochmal den Typ des Feldes das du als Stream schreiben möchtest