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