Есть такой код:
==========================================
void __fastcall TMainForm::FormShow(TObject *Sender)
{
DM->DBF->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=\"\";User ID=Admin;Data Source="+ExtractFilePath(Application->ExeName)+";Mode=Share Deny None;Extended Properties=dBase IV;Jet OLEDB:System database=\"\";Jet OLEDB:Registry Path=\"\";Jet OLEDB:Database Password=\"\";Jet OLEDB:Engine Type=17;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password=\"\";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False";
DM->DBF->Connected = true;
command = "create table testdbf(code_firme int,abcount int,code_plat int)";
DM->DBF->Execute(command,cnt,TExecuteOptions()<<eoAsyncFetch);
Sleep(3000);
command = "insert into testdbf(code_firme,abcount,code_plat) values(994,1,1)";
DM->DBF->Execute(command,cnt,TExecuteOptions()<<eoAsyncFetch);
Sleep(3000);
command = "delete from testdbf";
DM->DBF->Execute(command,cnt,TExecuteOptions()<<eoAsyncFetch);
Sleep(3000);
command = "alter table testdbf add id INT PRIMARY KEY IDENTITY";
DM->DBF->Execute(command,cnt,TExecuteOptions()<<eoAsyncFetch);
}
======================================
В папке откуда запускается программа создается таблица DBF, в нее вставляется одна строка, потом она же удаляется, потом структура таблицы изменяется путем добавления нового ключевого поля для счетчика. На последнем вызове Execute вылетает ошибка - "Операция не поддерживается для таблицы, содержащей данные"! Причем если оставить только CREATE и ALTER, то поле добавляется без проблем!
Все это нужно для того чтобы в существующий файл ДБФ с данными (около 50000) добавить поле счетчика дабы однозначно пронумеровать все записи в таблице.
Подскажите как быть плиз.

Только что попробовал импортировать ДБф-файл в базу MSSQL Servre 2000, в ней инкрементное поле добавляется без ошибок!
============================
к White Owl:
И как же мне узнать номер записи? Как называется это "скрытое" поле?

к White Owl:
дурная или не дурная, а импорт из программы моей дбф-файло в базу MSSQL 2000 используя АДО самый быстрый по сравнению с БДЕ или TDBF!
=========
и как мне и где вызывать этот самый Recno() ?

Уточнение задачи:
Есть дбф-файл с около 50000 записей, его нужно импортировать в базу MSSQL Server 2000. Его я хочу открыть при помощи ADOQuery запросом типа: select * top 5000 from file.dbf where id >= :count, где :count - параметр, вычисляющийся программно:
======================
count = 1;
while(count<=reccount){//общее кол-во записей в file.dbf
DM->Qdbftable->Close();
DM->Qdbftable->SQL->Clear();
DM->Qdbftable->SQL->Text = "select top 5000 * from "+ExtractFileName(OpenDialog1->FileName)+" where id >= "+IntToStr(count);
DM->Qdbftable->Open();//читаю из file.dbf следующие 5000 записей
count += 5000;
while(!DM->Qdbftable->Eof){
command="insert into testdbf(id,count) values(";
command+=IntToStr(DM->Qdbftable->FieldByName("id")->AsInteger)+",";
command+=IntToStr(DM->Qdbftable->FieldByName("count")->AsInteger)+")";
//вставляю по одной в таблицу в базу MSSQL Server 2000
DM->base->Execute(command,cnt,TExecuteOptions()<<eoExecuteNoRecords);
Label2->Caption = IntToStr(++i)+" из "+IntToStr(reccount);
DM->Qdbftable->Next();
Application->ProcessMessages();
}
}
======================
Но для всего этого мне нужно добавить в file.dbf поле id дабы пронумеровать все его записи.
Или это не возможно сделать?
Если открыть file.dbf полностью (select * from file.dbf), то записи вставляются медленно (проводил тест - 2 поля типа INTEGER, 200000 записей - вставляются более 10 минут, а если по 5000 - около 4 минут).
DBF-файлы приходят по почте без поля ID, вот мне его и нужно добавить для быстрого импорта в базу.

Сейчас пока пользуюсь мастером импорта, но дбф-файлов много (более 50) и все они расположены в разных папках, поэтому не слишком удобно. Вот и возникла идея написать программу, где можно открыть каждый из этих 50-ти файлов через ОПЕН ДИАЛОГ и по нажатии кнопки импортировать в базу.
Если бы мастер импорта сохранил пакет так, чтобы можно было передавать ему в качестве параметров путь к дбф-файлу для импорта и имя таблицы-приемника в базе, то проблем бы не было... А так приходится прибегать к индусской ерунде...)))

Можно все сделать, если есть права админа, а если их нет то приходится извращаться)))