AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Datenbank update mit TMemoryStream
Thema durchsuchen
Ansicht
Themen-Optionen

Datenbank update mit TMemoryStream

Ein Thema von Schodn · begonnen am 25. Nov 2004 · letzter Beitrag vom 25. Jan 2005
Antwort Antwort
Schodn

Registriert seit: 15. Nov 2004
Ort: Admont
140 Beiträge
 
#1

Datenbank update mit TMemoryStream

  Alt 25. Nov 2004, 13:04
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
  Mit Zitat antworten Zitat
Schodn

Registriert seit: 15. Nov 2004
Ort: Admont
140 Beiträge
 
#2

Re: Datenbank update mit TMemoryStream

  Alt 25. Nov 2004, 13:30
keiner eine Idee?
  Mit Zitat antworten Zitat
Benutzerbild von Leuselator
Leuselator

Registriert seit: 18. Mär 2003
Ort: Berlin
589 Beiträge
 
Delphi 8 Architect
 
#3

Re: Datenbank update mit TMemoryStream

  Alt 25. Jan 2005, 13:03
Delphi-Quellcode:
if aqTmp.FieldByName('Text').IsBlob then begin
  TBlobField(aqTmp.FieldByName('Text')).LoadFromStream(FStream);
end;
sollte es tun
Gruß
Tim Leuschner
Programmierer = moderner Sysiphos: stets wenn er meint, den Stein seiner Dummheit auf den Berg des Wissens gewuchtet zu haben, erblickt er einen völlig neuen Aspekt und der Dummfels poltert mit Getöse zurück ins Tal der Unwissenheit...
  Mit Zitat antworten Zitat
Tyrael Y.

Registriert seit: 28. Jul 2003
Ort: Stuttgart
1.093 Beiträge
 
Delphi 2007 Professional
 
#4

Re: Datenbank update mit TMemoryStream

  Alt 25. Jan 2005, 13:10
Guck dir mal die Methode CreateBlobStream von TADOQuery an und überprüfe nochmal den Typ des Feldes das du als Stream schreiben möchtest
Levent Yildirim
Erzeugung von Icons aus Bildern:IconLev
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz