Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 22.11.2012, 16:06
VINCENT VINCENT вне форума
Прохожий
 
Регистрация: 03.09.2010
Сообщения: 16
Репутация: 12
По умолчанию Ado + excel

Доброго дня подскажите кто знает в чем проблема!
Подключаюсь к excel файлу через ado запросом селечу все данные , далее

Код:
 if adoq2.fields[2].asstring = 'значение' then 
.......

В столбце 2 файла excel данные 12345,333333,44444,C12233, и т.д.
Формат ячеек тестовый. Когда в цикле доходит до значения с символом ,а не с цифрой. if adoq2.fields[2].asstring = ''
Подставляет пустое значение. Почему так происходит понять не могу.
Ответить с цитированием
  #2  
Старый 22.11.2012, 20:30
VINCENT VINCENT вне форума
Прохожий
 
Регистрация: 03.09.2010
Сообщения: 16
Репутация: 12
По умолчанию

Вот более полный код

Код:
Adoconnection2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+opendialog1.FileName+';Extended Properties=excel 8.0;';
    ADOQ2.Close;
    ADOQ2.SQL.Clear;
    if combobox1.Text = 'nnn' then
    begin
      ADOq2.SQL.Add('select * from [Data$]');
    end;
    if combobox1.Text = 'ic' then
    begin
      testZ:=changefileEXT(extractFileName(opendialog1.Filename),'')+'$';
      ADOq2.SQL.Add('select * from ['''+testZ+'''] ');
    end;
    ADOQ2.Active:=true;
...........................................................
      if Adoq2.Fields[2].AsString <> '' then
      begin
        KBC:=length(Adoq2.Fields[2].AsString);
        KBEs:= Adoq2.Fields[2].AsString;
        if kbc < 7 then
        begin
          KBi:=7-kbc;
          for S:=1 to KBI do
          begin
            KBEs:='0'+KBEs;
          end;
        end;

в таблице данне (ячейки текстовые)

113212
123
С344
23455555
С3222
11001
Ю12333

Но почему запрос возвращает только циферные значения, когда на тыкается на данные где присутствует другой символ тогда возвращает значение '' типо пусто ... ПОмогите кто чем может.
Ответить с цитированием
  #3  
Старый 01.12.2012, 23:05
VINCENT VINCENT вне форума
Прохожий
 
Регистрация: 03.09.2010
Сообщения: 16
Репутация: 12
По умолчанию

Помогите кто может!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 08:07.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025