Subject | Unicode 2 |
---|---|
Author | Robert martin |
Post date | 2007-09-25T02:26:31Z |
Hi
I have a component (TadvStringGrid) from Tms software that is Unicode
capable. I have put some Arabic into it and try to save it my database
using the following test code
with zBookingsDM.UpdateQuery do begin
SQl.Clear;
SQL.Add('INSERT INTO Pi_Fel_Wording (PhraseRef, Other) Values
(1, :Test)');
Prepare;
ParamByName('Test').AsWideString := AdvStringGrid1.WideCells[1,1];
ExecSQL;
end;
When I try reading it back out using the following
with zBookingsDM.UpdateQuery do begin
SQl.Clear;
SQL.Add('SELECT Other FROM Pi_Fel_Wording WHERE PhraseRef = 1');
Prepare;
Active := True;
AdvStringGrid1.WideCells[2,2] := FieldByName('Other').AsWideString;
Active := False;
end;
I get ???????? in the cell.
The 'Other' field is defined as Other VarChar(254) CHARACTER SET
UNICODE_FSS.
Can anybody see what I am doing wrong?
--
Rob Martin
Software Engineer
phone +64 03 377 0495
fax +64 03 377 0496
web www.chreos.com
Wild Software Ltd
I have a component (TadvStringGrid) from Tms software that is Unicode
capable. I have put some Arabic into it and try to save it my database
using the following test code
with zBookingsDM.UpdateQuery do begin
SQl.Clear;
SQL.Add('INSERT INTO Pi_Fel_Wording (PhraseRef, Other) Values
(1, :Test)');
Prepare;
ParamByName('Test').AsWideString := AdvStringGrid1.WideCells[1,1];
ExecSQL;
end;
When I try reading it back out using the following
with zBookingsDM.UpdateQuery do begin
SQl.Clear;
SQL.Add('SELECT Other FROM Pi_Fel_Wording WHERE PhraseRef = 1');
Prepare;
Active := True;
AdvStringGrid1.WideCells[2,2] := FieldByName('Other').AsWideString;
Active := False;
end;
I get ???????? in the cell.
The 'Other' field is defined as Other VarChar(254) CHARACTER SET
UNICODE_FSS.
Can anybody see what I am doing wrong?
--
Rob Martin
Software Engineer
phone +64 03 377 0495
fax +64 03 377 0496
web www.chreos.com
Wild Software Ltd