[asd]

Всем привет. Вопрос, пожалуйста помогите.

Пишу на Delphi 7. Использую бд MS Access, создаю путем:

Код:

...
const
  sConnectionString = 'Provider=Microsoft Jet 4.0 OLE DB Provider;Data Source=db.mdb';
...
var
  oleObject: OLEVariant; 
begin
  oleObject := CreateOleObject('ADOX.Catalog');
  oleObject.Create(sConnectionString);
...

Запросы делаю путем:

Код:

...
const 
  CREATE_TABLE_MY = 'CREATE TABLE My (ID_Value IDENTITY PRIMARY KEY, sSecondName VARCHAR(20) NOT NULL, sFirstName VARCHAR(20) NOT NULL, sThirdName VARCHAR(20) NOT NULL, dBirthday DATE NOT NULL)';
...
var
  adoQuery: TADOQuery;
...
  adoQuery := TADOQuery.Create(nil);
  adoQuery.ConnectionString := sConnectionString;
  adoQuery.SQL.Text := CREATE_TABLE_MY;
  adoQuery.ExecSQL;
  adoQuery.Close;
...

и все бы работает нормально, если не одно НО. При очень частых обращениях к бд, вылетает исключение "Неопознанная ошибка" и привет. Больше к БД без толку обращаться, вылетает тоже исключение, пока не перезагрузишь прогу. Что это? И как с ним бороться? Помогите, пожалуйста.

[lmikle]

Попробуй использовать транзакции.

[asd]

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

Попробуй использовать транзакции.

А программно можешь показать как? Пожалуйста...

[lmikle]

У ADOConnection см метод

function BeginTrans: Integer;