Бескомпонентный ADO. Как указать какой тип данных нужно считывать?

[Ship_1]

Здравствуйте!

Считываю таблицу Экселя вот таким способом:

    MyConn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + NameBook + ';Extended Properties="Excel 8.0;HDR=NO"';
    MyConn.Open;

    s := 'Select * from [Лист1$]';
    MyRecordset.Open(s, MyConn, , , -1);

    RecNo := 1;

    while not MyRecordset.eof do
    begin
      Strk:='';
      for i := 1 to MyRecordset.Fields.Count do
      begin
        begin
          Val:=VarToStr(MyRecordset.Fields[i-1].Value);
          Strk:=Strk+#9+Val;
        end;
      end;
      TotList.Add(Strk);
      inc(RecNo);
      MyRecordset.MoveNext;
    end;
    MyConn.Close;
    MyRecordset := Unassigned;
    MyConn := Unassigned;

Всё хорошо кроме одного: в таблице есть "шапка" с подписями колонок. А некоторые колонки состоят из цифр: номер подпункта, номер кабинета и т.п. И там, где в колонках цифровые записи - текстовые (шапка) уже не читаются (вместо них получается пустая строка). Как сделать так, чтобы всё считывалось как текст? (изменение экселевского файла - не вариант)

[Аватар]

Свойство Type + свойства связанные с размером и десятичной точкой

https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx

ЗЫ

Не с той оперы

ADO+Excel - тип данных определяется по первым нескольким записям. Попробуй всей колонке задать текстовый тип, даже для цифровых

Пробуй в строке соединения HDR=No;IMEX=1

[Ship_1]

Сообщение от Аватар

Попробуй всей колонке задать текстовый тип, даже для цифровых

Имеется ввиду колонке в экселе? Но я ж в конце уточнил, что менять сам экселевский файл не получится.

Сообщение от Аватар

ADO+Excel - тип данных определяется по первым нескольким записям.

И ни одного способа повлиять на это нет и указать тип принудительно? К слову: в самом файле экселя у всех ячеек тип "общий".

[Vapaamies]

Сообщение от Ship_1

К слову: в самом файле экселя у всех ячеек тип "общий".

Нужно отладчиком смотреть VarType получаемых значений и поступать соответствующим образом. Отладчик у вас перед глазами, не у нас.

[Ship_1]

Я таки подозреваю, что тип там целый, но как в связи с этим

поступать соответствующим образом

всё равно непонятно... Ведь в результате мне нужно чтоб этот тип изначально определялся тексовым, и вопрос темы как раз и был как это сделать. Что-то типа Fields[2].Type:=String Сколько ни рылся в интернете - ничего на эту тему не нашёл, везде работа с компонентами-таблицами, а у меня бескомпонентное считывание из Экселя.
Пробовал уже MyRecordset.Fields[i].asString, но вышла ошибка, что метод не поддерживается...
Пробовал MyRecordset.Fields[i].FiledType:=ftString, но редактор кода пишет, что ему не знаком ftString
MyRecordset.Fields[0].FiledType:=varString - метод не поддерживается

[come-on]

Пометить данные как именованный блок и потом из него брать.

[Ship_1]

Сообщение от come-on

Пометить данные как именованный блок и потом из него брать.

Это как? Или где про это почитать?

[come-on]

Как же вы с екселем работаете и не знаете его? Выделяете ячейки и указываете имя.

менять сам экселевский файл не получится

тогда работайте через Ole Automation

[Ship_1]

Сообщение от come-on

тогда работайте через Ole Automation

Мне доступен только этот вариант работы с экселевским файлом. И он вполне устраивает, даже больше чем OLE (не нужен установленный Эксель, не запускает Эксель, тормозя работу с программой и отсутствуют многие другие проблемы работы с самим экселевским софтом).
Вы проигнорировали мой вопрос перейдя на другой совет.

[come-on]

Ну так вам нельзя трогать файл.

Попробуйте вот так установить что 1 строка это хидер http://www.connectionstrings.com/excel/