Всем привет.
Запутался с типом Variant. 
Вопрос.
Как в C++ Builder занести данные из DBgrid в котором хранится таблица из ADOTable, в Excel?
Средствами Delphi все делается очень просто, в билдере не могу разобраться.

Всем откликнувшимся: Заранее большое спасибо!

Нашел на просторах рунета, неизвестное авторство, прекрасно работает.

возможно и прекрасно работает в 6-ом билдере, а в новом - хрен в сметане. разные кодировки ansi и unicode. как поправить этот код чтоб в Embarcadero 15 работало?
сам же и отвечу - везде где стоит Ansistring меняем на Unicodestring, и перед тесктами ставим L (например, L"Невозможно открыть Microsoft Excel.")
еще здесь отредактировал 


на



и еще t_str поменял на w_str

Это сообщение отредактировал(а) Пепс - 24.10.2012, 09:05

эти процедуры запускают процесс excel.exe но не закрывают. кто-нить знает как его (процесс) грохнуть по завершению?

Послать ему команду Quit() (через OleProcedure)

выгружаю через вышеописанные функции. Проблема: в эксел попадают "урезанные" данные, например в DBGrid значение ячейки 591145001, в экселе эта ячейка имеет значение 59114.
пробовал менять формат вот здесь:

вместо @ пробовал как число, и пустые кавычки ставлял - результат тот же.
если я все правильно понимаю, формат данных в DBGrid задается здесь

т.е. AsString.
Почему все же эксел "отбрасывает" часть данных?
Как исправить?

Excel понимает тип данных по их (данных) внешнему виду. У вас данные выглядят как число - он их и делает числом


Это формат показа, на содержимое ячейки он не влияет.

Скажите Excel'у, что у вас текст - добавьте апостроф перед числом:

сделал как вы предложили, вываливает ошибку
[BCC32 Error] Unit4.cpp(156): E2015 Ambiguity between '_fastcall System::+(int,const System::Currency &) at c:\program files\embarcadero\rad studio\8.0\include\windows\rtl\syscurr.h:178' and '_fastcall System::+(int,const System::Variant &) at c:\program files\embarcadero\rad studio\8.0\include\windows\rtl\sysvari.h:3497'
  Full parser context
    Unit4.cpp(142): parsing: int f4_ExcelSend(int,int,int,System::UnicodeString,bool)

и

[BCC32 Error] Unit4.cpp(156): E2285 Could not find a match for 'Variant::OlePropertySet(const char *,undefined)'
  Full parser context
    Unit4.cpp(142): parsing: int f4_ExcelSend(int,int,int,UnicodeString,bool)

указывая на данную строку

Ну тогда сделайте так

Да, Str у вас надеюсь типа String ?

так я уже тоже делал...
Str - тип Unicodestring

И что, тоже не компилируется? Или не работает?

компилируется, но данные тоже "обрезаны"

А если в Excel'е в эту ячейку встать курсором, он в троке редактирования показывает обрезанные или полные данные?

обрезанные
прикрепил скрин как это выглдит в проге

Добавлено через 12 минут и 2 секунды
блин, .xls нельзя сюда загрузить, но вот так это выглядит. в строке формул точно так же

19.10    59021    5904    460072
19.10    59021    5904    460072
19.10    59021    5904    460072
19.10    59021    5904    460072
19.10    59021    5904    460072


Это сообщение отредактировал(а) Пепс - 26.10.2012, 12:29

Присоединённый файл ( Кол-во скачиваний: 6 )
 Новый_рисунок.png 18,08 Kb

Настолько оно не должно обрезать. Зазипуйте xls и приатачте сюда

файл прикрепил, надеюсь поможете разобраться  

Присоединённый файл ( Кол-во скачиваний: 2 )
 Книга1.rar 9,64 Kb

Да, действительно урезано   
Проверьте, что вы действительно пытаетесь пометить в Excel полные строки. Станьте дебагером на Cur.OlePropertySet("Value",Str.w_str()); и посмотрите, что у вас лежит в Str

присоединил скрин - данные передаются нормальные.
попробовал Cur.OlePropertySet("Value",Str.data()); - в каждой ячейке выгрузил "ИСТИНА"  

Присоединённый файл ( Кол-во скачиваний: 6 )
 Новый_рисунок.jpg 122,57 Kb

Странно это. Все должно работать   
Попробуйте убрать присваивание в Cur.OlePropertySet("NumberFormat","@");
Еще можно попробовать записать через проперть Text (вместо Value)

  Уважаемые форумчане  подскажить  почему не работает запроос

    AnsiString q;
    ADOQuery1->Close();
    q=" SELECT row_number() over(ORDER BY id_comp, trip_no) num, trip_no, id_comp  ";
    q+= "  FROM trip  WHERE ID_comp<3 ORDER BY id_comp, trip_no";
    ADOQuery1->SQL->Clear();  ADOQuery1->SQL->Add(q);
    //  ADOQuery1->ExecSQL();
      ADOQuery1->Open();
   
           Появляется сообщение что пропущен оператор помогите разобраться
           а то с запросами слабовато. Зарание благодарен!!!
 

Видимо не понимает часть row_number() over(ORDER BY id_comp, trip_no) (я ее то же не понимаю   )

убирал NumberFormat - отрезает строку
Text - пишет ошибку записи в ячейку (видимо, определяет как пустую строку)
ваще уже одолела 

Добавлено @ 13:14
тут есть такая строка

WrapText - это перенос строки, менял значение истины на ложь и обратьно, комметнировал эту инструкцию - нифига,, все также
Я так понимаю, что приложуха передает все нормально, а уже эксель (свойство ячейки) подрезает строку.
я пробовал передать строковую константу "дповалопрщлащшилдвоазщуоро" - отображает только первые слева 16 символов.
какие еще идеи?  

Это сообщение отредактировал(а) Пепс - 31.10.2012, 13:18

Увы, идей больше нет. Для очистки совести - попробуйте записать Cur.OlePropertySet("Value",L"'591145001"), что получится?


Это сообщение отредактировал(а) xvr - 31.10.2012, 19:47

Разобрался row_number() over(ORDER BY id_comp, trip_no) в Builder6 ее просто нет функция работает в PHP Подскажите кто знает как запросом пронумеровать строки .  Пока в просторах инета ничего не нашлось. Пробовал создать вычисляемое поле типа avtoinc  геморойно и не надежно .

Нумеруются перебором   ADOQuery1->Next(); но это долгая песня
много записей >1000. 

В каждой ячейке пишет ИСТИНА  

Это сильно   Может ему Unicode строки не нравятся? Попробуйте Cur.OlePropertySet("Value","'591145001") (без буквы L)

PS. Builder'ы всегда не давали скучать програмистам - баги в них очень чудные и всегда в самых неожиданных местах   И то, что оно теперь не Borland и не Builder ситуацию не изменило - как говорится, стабильность - признак мастерства   

  
без L все отображается ништяк!!!!!!!!!!!!!
как теперь код изменить?

проблему помогли решить на соседнем форуме -  WideString(Str):