Тема: Ado + excel
Показать сообщение отдельно
  #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

Но почему запрос возвращает только циферные значения, когда на тыкается на данные где присутствует другой символ тогда возвращает значение '' типо пусто ... ПОмогите кто чем может.
Ответить с цитированием