🚀 go-pugleaf

http://support.microsoft.com/kb/q182423/
http://support.microsoft.com/default.aspx/kb/248668

Install newest MDAC from http://www.microsoft.com/downloads

//------------------------------------------
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:426527a1@newsgroups.borland.com...
> doing if this way gives me the following error:
>
> Project raised exception class EoleEception with message 'Not Enough
> Stroage is available to complete this operation'.
> here is the revamped code
>
> TStringStream *Blob = new TStringStream("");
>    try {
>        RichEdit8->Lines->SaveToStream(Blob);
> comdtext = "insert into data (ItemNumber, UserLog, Date, Time,
> SerializedDate, SerializedTime, "+fields;
>  comdtext += ",
> Notes )values('"+ItemNo+"','"+userID+"','"+dated+"','"+timed+"',
> "+SerialDate+", "+SerialTime+", ";
>  comdtext += values+", :BlobNotes)";
>  RichEdit8->Text = comdtext;
>  ADOCommand2->CommandType = cmdText;
>  ADOCommand2->CommandText = comdtext;
>  Blob->Position = 0;
>
> ADOCommand2->Parameters->ParamByName(WideString("BlobNotes"))->LoadFromStrea
> m(Blob, ftBlob);
>  ADOCommand2->Execute();
>  }
>  __finally {
>        delete Blob;
>   }
>
> ----------------------------------------------------------------------------
> ---------------------------------------------
> "Viatcheslav V. Vassiliev" <support@oledbdirect.com> wrote in message
> news:425c1c03@newsgroups.borland.com...
>> Drop TADOCommand to form. Set CommandText to
>>
>> insert into data (Col1, BlobColumn) values (1, :Blob)
>>
>> Now when you check Parameters you should see one parameter - Blob. In 
>> code
>> do:
>>
>>
> ADOCommand1->Parameters->ParamByName(WideString("Blob"))->LoadFromFile("Unit
> 1.cpp",ftBlob); ADOCommand1->Execute();There is also LoadFromStream(). Do
> not forget to set Stream->Position = 0 orcall Stream->Seek(0,
> soFromBeginning) before loading from
> it.//------------------------------------------Regards,Vassiliev V.
> V.http://www.managed-vcl.com - using .Net objects in Delphi for Win32
> +ADO.Nethttp://www.oledbdirect.com - The fastest way to access MS SQL
> Server,MS Jet (Access) and Interbase (through OLEDB)"James Peterson"
> <jpeterson@romanmealmilling.com> �������/�������� ��������� ���������:
> news:425a656e@newsgroups.borland.com...> 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();>> >>> >>>>>>>
>>
>
>