if(Open1C->Execute())
{
DM->Kontr->Close();
DM->Fis->Close();
DM->KontrGrup->Close();
DM->From1C->Connected = false;
DM->From1C->ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Mode=Read;
Extended Properties=""DSN=1CDbf;UID=;SourceDB="
+ExtractFilePath(Open1C->FileName)+
";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;
Collate=Machine;Delete=Yes""";
//Подключаюсь через стандартный драйвер Microsoft dBase VFP driver (*.dbf)
DM->From1C->Connected = true;
DM->Kontr->Filter = "";
DM->Kontr->Open();
//Здесь возникает exception
DM->Fis->Open();
DM->KontrGrup->Open();
PB1->Max = DM->Kontr->RecordCount;
PB1->Position = 0;
StatusBar1->Panels->Items[0]->Text = "Rec. "+AnsiString(DM->Kontr->RecordCount);
StatusBar1->Panels->Items[1]->Text = "";
}
ADO и теги cdx
У меня есть база, состоящая из файлов в dbf формате с теговыми индксами в cdx формате. Использую ADO. При попытке открыть таблицу в runtime возникает exception EDatabaseError index ideleted not found. Причем exception возникает только в отладке. Кроме того теговые индексы вообще читаются не правильно. Из всех индексов, присутствуют только те, у которых индексное выражение состоит из одного поля и совпадает с названием индекса. Но и их подключить не возможно. Опять возникает exception index not found. Разбираться со всем этим времени нет. Может кто знает в чем дело? Вот кусочек моего кода:
Код: