Выгрузка из SQL табл в Excel

[Dj_DeVaIs]

Ситуация такая.
есть таблица в sql server название r43_1 есть в ней столбцы ID,ID_User,Name, LS итд. при выгрузке в Excel столбец LS выходит не понятном виде.
Структура:
ID int
ID_User int
Name varchar(50)
LS varchar(500)

Вот код выгрузки в Delphi

procedure TFOtchet.SpeedButton1Click(Sender: TObject);
var XL,Sheet, WB: Variant;
i: integer;
help1,help2:string;
begin
//начало
    if FMain.Label2.Caption='49' then   // CKM_6_1
      begin
      ADO.Close;
      ADO.SQL.Clear;
          begin
               with ADO do
                          begin
                          Close;
                          SQL.Clear;
                          SQL.Add('select * from CKM_6_1');
                          Open;
                          end;
               end;
            XL:= CreateOleObject('Excel.Application');
            XL.WorkBooks.Add;
            Sheet:= XL.ActiveWorkBook.Sheets[1];
            Sheet.PageSetup.Orientation:= 2; //===Книжная ориентация===
            Sheet.Name:= 'Отчет за месяц';
            Sheet.Cells[1,1]:= '№';
            Sheet.Cells[1,2]:= 'ФИО';
            Sheet.Cells[1,3]:= 'Статус карточки';
            Sheet.Cells[1,4]:= 'Кол-во звонков';
            Sheet.Cells[1,5]:= 'Кол-во ответов';
            Sheet.Cells[1,6]:= 'Статус финансов';
            Sheet.Cells[1,7]:= 'Дата оплаты';
            Sheet.Cells[1,8]:= 'Сумма';
            Sheet.Cells[1,9]:= 'Счет';

            i:= 2;
            ADO.First;
            while not ADO.Eof do
                    begin
                    Sheet.Cells[i,1]:= ADO.Fields[1].AsInteger;
                    Sheet.Cells[i,2]:= ADO.Fields[3].AsString;
                    Sheet.Cells[i,3]:= ADO.Fields[30].AsString;
                    Sheet.Cells[i,4]:= ADO.Fields[37].AsString;
                    Sheet.Cells[i,5]:= ADO.Fields[38].AsString;
                    Sheet.Cells[i,6]:= ADO.Fields[39].AsString;
                    Sheet.Cells[i,7]:= ADO.Fields[40].AsString;
                    Sheet.Cells[i,8]:= ADO.Fields[41].AsString;
                    Sheet.Cells[i,9]:= ADO.Fields[21].AsString;


                    inc(i);
                    ADO.Next;
                    end;
            XL.Visible:= true;
            Sheet:= UnAssigned;
            XL:= UnAssigned;
            end;
            //конец

в чем может быть причина? в таблице значение 40817810805700364775 в Excel 40817810805700300000




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[BARNEY]

Я знаю знаю нет такого числа большого..... по этому надо поставить #39 перед 40817810805700364775
Типо

Sheet.Cells[i,9]:=#39+ ADO.Fields[21].AsString;

[Dj_DeVaIs]

Спасибо. Тема закрыта!