🚀 go-pugleaf

so I can do the following

TStream *Blob
=ADODataSet1->CreateBlobStream(ADODataSet1->FieldByName("Notes"), bmWrite);
    try {
        RichEdit8->Lines->SaveToStream(Blob);
    }
    __finally {
        delete Blob;
    }
  comdtext = "insert into data (ItemNumber, UserLog, Date, Time,
SerializedDate, SerializedTime, "+fields;
  comdtext += ",
Notes )values('"+ItemNo+"','"+userID+"','"+dated+"','"+timed+"',
"+SerialDate+", "+SerialTime+", ";
  comdtext += values+"(:Blob))";
  ADOCommand2->CommandType = cmdText;
  ADOCommand2->CommandText = comdtext;
  ADOCommand2->Execute();


"Viatcheslav V. Vassiliev" <support@oledbdirect.com> wrote in message
news:42577d85@newsgroups.borland.com...
> Use parameters.
>
> insert into (blobfield) values (:blob)
>
> Then set parameter to anything you need, including stream or string that
> contains quotes or line breaks.
>
> file://------------------------------------------
> Regards,
> Vassiliev V. V.
> http://www.managed-vcl.com - using .Net objects in Delphi for Win32 +
> ADO.Net
> http://www.oledbdirect.com - The fastest way to access MS SQL Server,
> MS Jet (Access) and Interbase (through OLEDB)
>
> "James Peterson" <jpeterson@romanmealmilling.com> �������/�������� �
> �������� ���������: news:42568316$1@newsgroups.borland.com...
> > is there a way to insert a Stream into an ADOCommand ?
> >
> > Forexample
> > you have a RichText1 and you wanted to save it with formating into the
> > following ADOCommond.
> >
> >  comdtext = "insert into data (ItemNumber, UserLog, Date, Time,
> > SerializedDate, SerializedTime, "+fields;
> >  comdtext += ")values('"+ItemNo+"','"+userID+"','"+dated+"','"+timed+"',
> > "+SerialDate+", "+SerialTime+", ";
> >  comdtext += values+")";
> >  ADOCommand2->CommandType = cmdText;
> >  ADOCommand2->CommandText = comdtext;
> >  ADOCommand2->Execute();
> >
> >
>
>