[asd]

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

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

Код:

1 2 3 4 5 6 7 8 9 10

... 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); ...

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

... 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;