C ++ Builder — ADOQuery на C ++ Builder 6 и Windows 7 64bit

У меня странная проблема с использованием TADOQuery составная часть.

В настоящее время я работаю в месте, где они используют приложения Borland C ++ Builder, работающие на виртуальной машине Windows XP. Поэтому мы хотим перейти на Windows 7 и использовать его в качестве терминала, чтобы сотрудники могли получать новые машины с Windows 10 без необходимости заново создавать виртуальную машину Win XP на каждой машине.

В настоящее время приложение использует компоненты BDE и прекрасно работает на XP. Мы создали 64-битную виртуальную машину Win7 для тестирования, установили необходимый драйвер и т. Д., Но BDE просто не будет работать. Когда я пытаюсь войти через SQL Explorer, который поставляется с Borland, он просто зависает. Он отправляет запрос, но никогда не получает ответ. Я потратил больше недели на отладку этой проблемы, но ничего с этим не получилось.

В любом случае, я отказался от BDE и хотел попробовать перейти на ADO. Итак, я начал с простого создания TDBGrid и заполните его данными, используя компоненты ADO. Он отлично работал как на XP, так и на Win7! Поэтому сейчас я пытаюсь преобразовать компоненты BDE приложений (TDataBase, TQueryи т. д.) к компонентам ADO.

Я столкнулся с интересной проблемой при попытке использовать параметры. Вот пример запроса:

SELECT t1.SEC_CODE, t1.CODE, t1.CTRL_NUM, t1.CHECK_CODE,
t1.CHECK_NO, t1.CLIENT_ID, t1.AMOUNT, t1.TRANS_NO, decode(t2.prefix,null,t2.name,t2.name||', '||t2.prefix) as fullName,
t1.ENTRY_DATE, t1.DEPOSIT_DATE, t1.ACCT_COMMENT, t2.NAME, t2.PREFIX
FROM ACCOUNTING.ACCT_CHECK_IN t1, OISC.CLIENT t2
WHERE
(:BEN =1 OR (:BEN =0 AND t1.ENTRY_DATE=:DATE)
OR (:BEN =2 AND t1.DEPOSIT_DATE IS NOT NULL)
OR (:BEN =3 AND t1.DEPOSIT_DATE IS NULL)) AND
(:ALEX =1 OR (:ALEX =0 AND t1.ENTRY_DATE>=:DATE1 AND
t1.ENTRY_DATE<=:DATE2) OR (:ALEX =2 AND t1.DEPOSIT_DATE>=:DATE1
AND t1.DEPOSIT_DATE<=:DATE2))
AND T2.CLIENT_ID(+)=T1.CLIENT_ID

ORDER BY t1.SEC_CODE, t1.CHECK_CODE, fullName, t1.check_no

Пожалуйста, не обращайте внимания на названия параметров, это немного забавно для меня, но вы, ребята, не сможете подключиться.

Первая проблема заключается в том, что, хотя некоторые параметры имеют одно и то же имя, ADO видит их как отдельные параметры! Итак, если я сделаю это:

checkload1->Parameters->ParamByName("BEN")->Value=0

ADO не будет заменять каждое вхождение «BEN» на 0, и я получаю набор результатов из 0 записей! Вместо этого я использую это:

checkload1->Parameters->Items[0]->Value = 0; // BEN param
checkload1->Parameters->Items[1]->Value = 0;
checkload1->Parameters->Items[3]->Value = 0;
checkload1->Parameters->Items[4]->Value = 0;

По сути, замена каждого параметра «BEN» на 0 на основе индекса параметра.

Это приносит мне результаты, но не сразу.

Вот как это работает: приложение представляет собой древовидный пользовательский интерфейс. Существует узел с надписью «Сегодняшние проверки», который отображает сегодняшние проверки при расширении. Отлично, теперь это прекрасно работает с BDE, и я назначаю значение параметра только один раз, и он автоматически заменяет его везде, где он видит «BEN» и т. Д.

При использовании компонентов ADO я расширяю узел «Сегодняшние проверки», и код выполняется, загружая параметры, активируя компонент запроса, и я не получаю никаких результатов! Таким образом, узел остается свернутым. Если я нажму на + войдите снова, чтобы развернуть дерево, оно загружает чеки! И он будет загружать их каждый раз после этого.

Итак, в приложении есть опция даты, которая по умолчанию соответствует текущей дате. Если я изменю это на вчерашнюю дату, я все равно получу сегодняшние чеки … Как будто параметры не обновляются. И если я попытаюсь начать с другой даты в самом начале, я не получу никаких результатов! Он принесет результаты с сегодняшней датой, но после этого он не примет другую дату.

Я отладил код, и даты меняются, но по некоторым причинам параметры не меняются. Вот мой блок кода:

checkload1->Filter="" ;
checkload1->Filtered=false ;
switch(params)
{
case 0: checkload1->Parameters->Items[0]->Value = 1; // BEN param
checkload1->Parameters->Items[1]->Value = 1;
checkload1->Parameters->Items[3]->Value = 1;
checkload1->Parameters->Items[4]->Value = 1;
// ALEX Param
checkload1->Parameters->Items[5]->Value = 0;
checkload1->Parameters->Items[6]->Value = 0;
checkload1->Parameters->Items[9]->Value = 0;
checkload1->SQL->Strings[13] = "AND t1.CHECK_STATUS NOT IN ('Refunded', 'Posted') ";
break ;
case 1: checkload1->Parameters->Items[0]->Value = 0; // BEN param
checkload1->Parameters->Items[1]->Value = 0;
checkload1->Parameters->Items[3]->Value = 0;
checkload1->Parameters->Items[4]->Value = 0;
checkload1->Parameters->ParamByName("DATE")->Value=FormatDateTime("dd-mmm-yyyy", Date()) ;
checkload1->SQL->Strings[13] = " ";
break ;
case 2: checkload1->Parameters->Items[0]->Value = 2; // BEN param
checkload1->Parameters->Items[1]->Value = 2;
checkload1->Parameters->Items[3]->Value = 2;
checkload1->Parameters->Items[4]->Value = 2;
//ALEX param
checkload1->Parameters->Items[5]->Value = 2;
checkload1->Parameters->Items[6]->Value = 2;
checkload1->Parameters->Items[9]->Value = 2;
checkload1->SQL->Strings[13] = "AND t1.CHECK_STATUS IN ('Deposited') ";
break ;
case 3: checkload1->Parameters->Items[0]->Value = 3; // BEN param
checkload1->Parameters->Items[1]->Value = 3;
checkload1->Parameters->Items[3]->Value = 3;
checkload1->Parameters->Items[4]->Value = 3;
//ALEX param
checkload1->Parameters->Items[5]->Value = 0;
checkload1->Parameters->Items[6]->Value = 0;
checkload1->Parameters->Items[9]->Value = 0;
checkload1->SQL->Strings[13] = "AND t1.CHECK_STATUS IN ('Held') ";
break ;
}
if(!mainform->date1->Checked){
checkload1->Parameters->Items[5]->Value = 1;
checkload1->Parameters->Items[6]->Value = 1;
checkload1->Parameters->Items[9]->Value = 1;
}
checkload1->Parameters->Items[7]->Value = FormatDateTime("dd-mmm-yyyy", fromdate);
checkload1->Parameters->Items[10]->Value = FormatDateTime("dd-mmm-yyyy", fromdate);
checkload1->Parameters->Items[8]->Value = FormatDateTime("dd-mmm-yyyy", todate);
checkload1->Parameters->Items[11]->Value = FormatDateTime("dd-mmm-yyyy", todate);

if(filters != "") checkload1->SQL->Strings[12] = filters;
else checkload1->SQL->Strings[12]=" " ;
checkload1->Prepared = true;
checkload1->Active=true ;

Может кто-нибудь с опытом посоветовать мне по этому поводу?

Я знаю, что это древние вещи, но эти программы были написаны буквально 15-20 лет назад, и они переходят на веб-интерфейс пользователя, но он все еще строится. До этого мне нужно внести необходимые изменения / обновления как часть моей работы.