🚀 go-pugleaf

Thank you Viatcheslav but I could not resolve the problem. The error message
is "Invalid Pointer Addition".

-----------------------------------
> > ADODataSet1->First();
> > V = ADODataSet1->Recordset->Fields[WideString("USE")];
> > if(!V)
> >       String = "";
> > else
> >       String = (WideString)VarAsType(&V, varOleStr);
> > ------------------------------------

Mehrdad



"Viatcheslav V. Vassiliev" <support@oledbdirect.com> wrote in message
news:3f090d58$1@newsgroups.borland.com...
> Try Fields[WideString("USE")]
>
> ----------------------------------------------------------------
> Regards,
> Viatcheslav V. Vassiliev
> http://www.oledbdirect.com
> The fastest way to access MS SQL Server, MS Jet (MS Access)
> and Interbase (through OLEDB) databases.
>
> "M. Noroozi Eghbali" <galaxy@irandoc.ac.ir> �������/�������� � ��������
> ���������: news:3f0841d9@newsgroups.borland.com...
> > Thank you for your answer. I converted it to C++:
> >
> > -----------------------------------
> > ADODataSet1->First();
> > V = ADODataSet1->Recordset->Fields["FieldName"];
> > if(!V)
> >       String = "";
> > else
> >       String = (WideString)VarAsType(&V, varOleStr);
> > ------------------------------------
> >
> > But I don't know what I have to put for FieldName (Second line). When I
> put
> > "USE", I got this error message: "E2094 Operator +' not implemented in
> type
> > '_di_Fields' for arguments of type 'char *'"
> >
> > Thanks,
> > Mehrdad
> >
> >
> >
> > "sharon oknin" <sharon@benarit.com> wrote in message
> > news:3f080f7b@newsgroups.borland.com...
> > > I had the same problem with hebrew , access the data throw the
Recordset
> > of
> > > the DataSet .
> > >
> > > var
> > >   v: OleVariant;
> > >   str: WideString;
> > > begin
> > >   ADOQuery1.First();
> > >   v := ADOQuery1.Recordset.Fields['FieldName'].Value;
> > >   if not VarIsNul(v) then
> > >     str := VarAsType(v, varOleStr)
> > >   else
> > >     str := '';
> > > End;
> > >
> > > sharon oknin
> > >
> > > "M. Noroozi Eghbali" <galaxy@irandoc.ac.ir> wrote in message
> > > news:3f07078e@newsgroups.borland.com...
> > > > Hi,
> > > >
> > > > I saved a Unicode string to a MS-Access file but I could not
retrieve
> it
> > > > correctly. would you please tell me what is wrong in these few
> commands:
> > > >
> > > >
> > >
> >
>
//--------------------------------------------------------------------------
> > > > ----------
> > > > //(TntEdit1 and TntEdit2 are Unicode components)
> > > > ADOCommand1->CommandText = "INSERT INTO Thesaurus (LineNum, USE)
> VALUES
> > > > (1000031, :USE)"; //Integer, Memo
> > > > ADOCommand1->Parameters->ParamByName("USE")->Value = TntEdit1->Text;
> //
> > a
> > > > Unicode string - English + Russian
> > > > ADOCommand1->Execute();
> > > >
> > > > ADOCommand1->CommandText = L"SELECT * FROM Thesaurus WHERE LineNum =
> > > > 1000031";
> > > > ADODataSet1->Recordset = ADOCommand1->Execute();
> > > > TntEdit2->Text = ADODataSet1->FieldByName("USE")->Value; //The
Russian
> > > part
> > > > is shown like ??????????
> > > >
> > >
> >
>
//--------------------------------------------------------------------------
> > > > -----------
> > > >
> > > >
> > > > When I see the record by using MS-Access, the USE field contains
both
> > > > English and Russian languages correctly. What should I do?
> > > >
> > > > Thank you,
> > > > Mehrdad
> > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>