Создание MDB. Сообщение об ошибке

[artemavd]

Мне нужно из программы создать файл MDB. Нашел в этой теме пример, а этой показано как создать таблицу через запрос. Я написал из первой темы так:

procedure TForm1.BtnExportClick(Sender: TObject);
var
 ADOEngine: Variant;
begin
 if not FileExists(Form1.RzStatusPane36.Caption + 'base_' +
        ExtractFileDir(Form1.RzStatusPane36.Caption) + '.mdb') then
 begin
 try
  ADOEngine:=CreateOleObject('ADOX.Catalog');
  ADOEngine.Create('Provider=Microsoft.Jet.OLEDB.4.0; DataSource=' +
                   Form1.RzStatusPane36.Caption + 'export_base_'+
                   ExtractFileDir(Form1.RzStatusPane36.Caption) + '.mdb; Jet OLEDB:Engine Type=5;');
  ADOEngine.ActiveConnection.Close;
  ADOEngine:=Null;
 except on E:Exception do
  ShowMessage(E.Message);
 end;
 end
 else
 begin
  ShowMessage('ÁÄ óæå ñóùåñòâóåò!');
 end;
end;

Но выдалось сообщение:
Как мне создать программно MDBшку с полями:
ID
File
Num
Path
больше никаких полей не будет.
???

[_SERGEYX_]

Зачем такие сложности?

procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
  Query.Close;
  Query.SQL.Text := 'CREATE TABLE Tabl2 (`Id` COUNTER, `File` STRING (200),`Num` INT, `Path` STRING (200))';
  Query.ExecSQL;
end;

Стоп. И сам файл создать нужно? Ща посмотрю...

[_SERGEYX_]

Вот так у меня получилось.
Может можно и проще, но я хз...

function CreateAccessDatabase(FileName: string): string;
var cat: OLEVariant;
begin
  result := '';
  try
    cat := CreateOleObject('ADOX.Catalog');
    cat.create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Filename + ';');
    cat := NULL;
  except
    on e: Exception do result := e.message;
  end;
end;

procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
  CreateAccessDatabase('000.mdb');
  ADOConnection1.Connected := False;
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=000.mdb;Persist Security Info=False';
  ADOConnection1.Connected := True;
  Query.Connection := ADOConnection1;
  Query.Close;
  Query.SQL.Text := 'CREATE TABLE Table1 (`Id` COUNTER, `File` STRING (200),`Num` INT, `Path` STRING (200))';
  Query.ExecSQL;
  ShowMessage('Готово');
end;

Ну, и там try .. except сам допиши.

[Прик]

Друзья, подскажите, что это ошибка при создании БД происходит (D7)?
На строке:

cat := CreateOleObject('ADOX.Catalog.2.8'); //"Недопустимая строка с указанием класса"
cat := CreateOleObject('ADOX.Catalog'); //то же самое

В реестре ADOX.Catalog.2.8 есть.

[_SERGEYX_]

uses comobj, sysutils;

Прописано?

[Прик]

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

uses comobj, sysutils;

Прописано?

Само собой - прописано. Иначе бы не компилировался код. Ошибка то в run-time.