🚀 go-pugleaf

ADO Express converts Memo field into ASCII. Try use recordset itself:
ADOQuery1.Recordset.Fields['xml'].Value := TntMemo2.Lines.Text;

Get value back the same way.

//------------------------------------------
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)

"Michael Kuhl" <no_emails@gmx.de> �������/�������� � �������� ���������:
news:40e427af$1@newsgroups.borland.com...
> Hello,
>
> I'm trying to save an unicode text (memo) to a ntext field. I tried
several
> ways to store the text (like you see below) but non of them worked (I'm
only
> getting questions marks when I read out the data). My nvarchar field is
> working fine.
>
> I'm using Delphi 5 and the Tnt Components.
>
> procedure TForm1.Button1Click(Sender: TObject);
> var  stream: TStringStream ;
>      //bstream: TADOBlobStream;
> begin
>   stream := TStringStream.Create('');
>   try
>     ADOConnection1.BeginTrans;
>
>     ADOQuery1.Append;
>     ADOQuery1.FieldByName('id').AsInteger       := StrToInt(Edit1.Text);
>     ADOQuery1.FieldByName('Text').AsVariant     := TntEdit1.Text; //
> nvarchar
>     //ADOQuery1.FieldByName('xml').AsVariant := '';  // ntext
>
>     stream.size := 0;  // Inhalt l�schen
>     TntMemo2.Lines.SaveToStream(stream, false);
>     stream.Position := 0;
>     // TBlobField(ADOQuery1.FieldByName('xml')).LoadFromStream(stream);
>
>     TWideStringField(ADOQuery1.FieldByName('xml')).AsVariant :=
> TntMemo2.Lines.Text;
>     //TWideStringField(ADOQuery1.FieldByName('xml')).AsString :=
> TntMemo2.Lines.Text;
>
>     // bstream :=
> TADOBlobStream(ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('xml'),
> bmReadWrite));
>     //bstream.CopyFrom(stream, 0);
>
>     ADOQuery1.Post;
>
>     // ADOQuery1.Edit;
>     // ADOQuery1.Recordset.Fields['xml'].Value := TntMemo2.Lines.Text;
>     // ADOQuery1.Post;
>
>     ADOConnection1.CommitTrans;
>     //bstream.Destroy;
>   except
>     ADOConnection1.RollbackTrans;
>   end;
>   stream.free;
> end;
>
> Any suggestions?
>
> Best regards
>
> Michael
>
>