| DiSyA |
| Отправлено: 29.09.2006, 20:17 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 7
|
Имеем два куска кода
1.
// BDE
DataSource1->DataSet=Table1;
Table1->DatabaseName="Control_Cards";
Table1->TableName="Stuff";
DBGrid1->DataSource=DataSource1;
DBGrid1->Columns->Add();
DBGrid1->Columns->Items[0]->FieldName="FIO";
DBGrid1->Columns->Items[0]->Title->Caption="ФИО";
DBGrid1->Columns->Items[0]->Width=210;
DBGrid1->Columns->Add();
DBGrid1->Columns->Items[1]->FieldName="Job";
DBGrid1->Columns->Items[1]->Title->Caption="Должность";
DBGrid1->Columns->Items[1]->Width=220;
Table1->Active=true;
И всё хорошо, табличка отобразилась в DBGrid.
2.
// ADO
DataSource1->DataSet=ADOTable1;
ADOTable1->ConnectionString="DSN=Control_Cards";
ADOTable1->TableName="Stuff";
DBGrid1->DataSource=DataSource1;
DBGrid1->Columns->Add();
DBGrid1->Columns->Items[0]->FieldName="FIO";
DBGrid1->Columns->Items[0]->Title->Caption="ФИО";
DBGrid1->Columns->Items[0]->Width=210;
DBGrid1->Columns->Add();
DBGrid1->Columns->Items[1]->FieldName="Job";
DBGrid1->Columns->Items[1]->Title->Caption="Должность";
DBGrid1->Columns->Items[1]->Width=220;
ADOTable1->Active=true;
Далее происходит какая-то гадость, а именно вываливается
окошечко с ошибкой:
Project Project1.exe raised exeption class EVariantTypeCastError
with message 'Could not convert variant of type (Null) into type
(String)'. Process stopped. Use Step or Run to continue.
Собственно вопрос: подскажите куда копать...? Я в полном смятении,
т.к. ADO-шный код в принципе, на мой взгляд, делает тоже самое !!!
Причём если делать у ADOTable1->Active=true через Object Inspector,
то содержимое таблицы отображается. Чего это такое, понять никак не
могу !!!
|
|
| DiSyA |
| Отправлено: 01.10.2006, 13:51 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 7
|
Опытным путем было установлено, что это глюкалово 6-го Builder -а, т.к. в пятом всё это хозяйство работает. Более того если ткнуть непосредственно на exe -шник, собраный в 6 -м, то всё тоже хорошо...
В связи с чем вопрос: мож есть какое-нить обновление для 6-го билдера, а я не знаю об этом ? Сейчас уже стоят Update Packs 1-4.
|
|
|
