Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.08.2013, 09:15   #1
King_Of_Arthur
Пользователь
 
Регистрация: 17.05.2013
Сообщений: 43
По умолчанию Получение данных

Здравствуйте у меня есть несколько архивов в которых есть файл с одинаковым именем PT.dbf во всех архивах я их разворачиваю
Код:
begin
  MT1.Open;
  MT1.EmptyTable;
  MT1.Append;
zagr:=0;
  i:=0;
  KolS:=0;
//  ImPath:=Dir_NSI;
  ImPath:=ExePath+'Анализ протоколов тестирования';
//  fres := FindFirst(ImPath+'\*.dbf', faAnyFile xor faDirectory xor faVolumeID, SR);
  fres := FindFirst(ImPath+'\*.*', faAnyFile xor faDirectory xor faVolumeID, SR);
  while fres = 0 do begin
     DeleteFile (WorkPath+'\*.*');
     i:=i+1;
     KOlS:=KolS+1;
     ImFl:=Sr.Name;
     MT1['iafPT']:=ImFl;
     Arx:=1;
     ImR:=Q_GetWordN(2,ImFl,'.');
     if (ImR='dbf') then
         Arx:=0;
     Prox:=0;
     if Arx = 1 then begin
//развернем архив
        PackCmd :='"C:\Program Files\WinRar\winrar.exe"-o+ e %DATAFILE %FILELIST"';
        FileList :='"'+WorkPath+'"';
        DataFName:='"'+ImPath+'\'+ImFl+'"';
        PackCmd := Q_ReplaceStr(PackCmd, '%DATAFILE', DataFName);
        PackCmd := Q_ReplaceStr(PackCmd, '%FILELIST', FileList);
        CharToOemBuff(@S1[1], @S1[1], Length(S));
        State:=ExecWaitClose(PackCmd, S1);
 
     end
     else begin
       Prox:=1;
       try
         CopyFile(PAnsiChar(ImPath+'\'+ImFl), PAnsiChar(WorkPath+'\'+ImFl), False);
       except
         Prox:=0;
       end;
     end;
 
     fres := FindNext(SR);
  end; {ot FindFirst}
  FindClose(SR);
 
end;
ну тут много грязи но в общем разворачивается каждый архив по очереди а предыдущий архив удаляется.
Как мне подключится к таблице PT.dbf и доставать оттуда данные и заполнять в таблицу.
я вот так делаю
Код:
     Q2.Close;
     Q2.DatabaseName:='"C:\111\"';
     Q2.SQL.Clear;
     Q2.SQL.Text:='select pokaz from PT.dbf where np=5.1';
     Q2.Open;
     MT1['ter']:=Q2.fieldbyname('np').asstring;
но он ругается на директорию

Последний раз редактировалось King_Of_Arthur; 05.08.2013 в 09:20.
King_Of_Arthur вне форума Ответить с цитированием
Старый 05.08.2013, 10:31   #2
King_Of_Arthur
Пользователь
 
Регистрация: 17.05.2013
Сообщений: 43
По умолчанию

все норм подключилась
Код:
Q2.Close;
     Q2.DatabaseName:=ExePath+'Àíàëèç ïðîòîêîëîâ òåñòèðîâàíèÿ\111\';
     Q2.SQL.Clear;
     Q2.SQL.Text:='select pokaz from PT.dbf where np=5.1';
     Q2.Open;
     MT1['ter']:=Q2.fieldbyname('pokaz').asstring;
King_Of_Arthur вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получение данных с сайта galogen13 Помощь студентам 1 27.02.2012 10:10
получение данных из файла и запись этих данных в другой. Jurii77 Microsoft Office Excel 9 23.11.2011 09:42
Получение данных mish@ Работа с сетью в Delphi 0 28.04.2010 15:08
получение данных avis Win Api 0 19.12.2009 19:24
Получение данных с БД. urgu_st SQL, базы данных 5 13.01.2009 15:11