Взаимодействие excel с БД

[boomko55]

Задача.
Дан файл excel в котором 2 листа по 7 столбцов и куча строк >40тыс. Необходимые данные из файла это первый и последний столбцы, и имеют форматы текстовый и дата соответственно.
В программе имеются 2 кнопки, 1 dbgrid, 1 datasource, 1 query, 1 datetimepicker.
Моя задача открыть эксель файл, найти нужные строки удовлетворяющие условию 7-ой столбец >= datetimepicker. Если это так, то 1-ый столбец эксель-файла сравнивается со столбцом enp в таблице ууу. Если это так то в dbgrid выводится вся строка выбранных столбцов базы. И так далее пока не проверятся все строки в эксель файле.
Код выглядит след. образом:

var
sheet2:variant;
s:integer;
date1:string;
begin
Excel := CreateOleObject('Excel.Application' );
Excel.DisplayAlerts:=False;
Excel.Visible := False;
Excel.Workbooks.Open['C:\Данные.xls'];
sheet2:=Excel.Workbooks[1].Worksheets[2];
date1:=DateToStr(DateTimePicker1.Da te);
for s:= 1 to 49999 do
begin
if date1=VarToStr(sheet2.Cells[s,7]) then
if query1.Active then;
Query1.ParamByName('enp1').AsString :=sheet2.Cells[s,1];
Query1.Open;
end;

Запрос выглядит след. образом:

SELECT ххх.IDPers, ууу.ENP, ххх.Type, ууу.IDPers , ууу.Surname, ууу.Name1, ууу.Name2, ууу.Phone
FROM ххх INNER JOIN
ууу ON ххх.IDPers = ууу.IDPers
where ууу.ENP is NOT NULL
and ууу.ENP = :enp1
and LEN(ууу.Phone)>12
and (left(ууу.Phone,4)=';;79' or left(ууу.Phone,4)=';;89' or left(ууу.Phone,2)='89' or left(ууу.Phone,2)='79')
and ххх.Type =2

В результате должен получится список с номерами и ФИО.
Эта программа работает неправильно. Я знаю почему неправильно, но не знаю как исправить. При нажатии кнопки он обращается к базе и т.д. Но в dbgrid ничего не выводит.
Прошу Вас, помогите решить эту задачу.

[boomko55]

Проблему так и не решил, мысли есть какие-нибудь?

[Valio]

Если всё работает, но чтото идёт не так, то нужно пошагово изучать, что и куда там присваивается. Другово пути нету.

ну или скидывайте свой проект с БД и файлом екселя, мож кто посмотрит.

[boomko55]

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

Если всё работает, но чтото идёт не так, то нужно пошагово изучать, что и куда там присваивается. Другово пути нету.

ну или скидывайте свой проект с БД и файлом екселя, мож кто посмотрит.

Я объясню что не так.

if date1=VarToStr(sheet2.Cells[s,7]) then
if query1.Active then;
Query1.ParamByName('enp1').AsString :=sheet2.Cells[s,1];
Query1.Open;

Мне кажется именно эта часть кода работает неправильно, так как при запуске авторизация к базе появляется но в формочку dbgrid ничего не выводится.
Я делал примерно тоже самое но более простой вариант, вывод делал исключительно из базы, без всяких условий из excel. Была лишь 1 переменная date1 и ее я вводил из формы и проверял по базе все выводилось успешно.
Скорее всего я неправильно даю условие из excel.

[Valio]

Что мешает поставить бряк и посмотреть что на самом деле сравнивается вот тут?

if date1=VarToStr(sheet2.Cells[s,7]) then

[boomko55]

s - 1
date1 - '28.04.2012'
sheet2 - $0022355c

странно но при s=2 пишет тот же

sheet2 - $0022355c

И почему вообще он не дату показывает а фигню какую-то? Может конвертация VarToStr плохо сказывается?

[boomko55]

Есть мысли по этому поводу?

[Valio]

Трудно сказать. Первое что приходит на ум:

Это дата в другом формате. Решение: перевести это значения в нужный формат используя функции работы с временем.