Создание базы

[Darcangel]

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 +'.mdb;');
 cat := NULL;
 except
 on e: Exception do Result := e.message;
 end;
 end;


procedure TForm1.BitBtn1Click(Sender: TObject);
var
  db:WideString;
begin
  SaveDialog1.FileName:='';
  SaveDialog1.Execute;
  if SaveDialog1.FileName<>'' then
  begin
    CreateAccessDatabase(SaveDialog1.FileName);

    ADOConnection1.Connected:=False;
    ADOConnection1.ConnectionString:='';


    db:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+SaveDialog1.FileName+'.mdb;';
    ADOConnection1.ConnectionString:=db;
    ADOConnection1.Connected:=True;

    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.CommaText:='CREATE TABLE L_PROPNUMBER_TOP (ID_THIS INTEGER NOT NULL, ITS_GLOBAL INTEGER, ID_SYSTEM INTEGER, NUMPP INTEGER, NAME_MAX VARCHAR(200), MNEMO_CODE VARCHAR(32), DATE_CREATE DATE, DATE_UPDATE DATE, PRIMARY KEY (ID_THIS))';
    ADOQuery1.Open;
  end;
end;

база создаётся, подключается а адоконект, пишу запрос на создание таблицы - пишет ошибка с крейт

подскажите плиз как правильно создать запрос на создание таблиц
зарание благодарен


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Аватар]

В SaveDialog1.FileName разве нет расширения .mdb? Если SaveDialog1 настроить правильно, то и не нужно его везде добавлять, а то может получится нечто в виде: Base.mdb.mdb
SQL.CommaText зачем? Не пользовался этим свойством, но запятые при этом должны удалиться вроде. Достаточно SQL.Text

ADOQuery1.Open;

Здесь нужен метод ExecSQL вместо Open

[rdama]

function _check_databasename(DatabaseFileName : string): Boolean;
begin
  Result := false;
  if Length(Trim(DatabaseFileName)) > 0 then Result := true;
end;

function _create_databasefile(DatabaseFileName : string): Boolean;
var OLE : Variant;
begin
  try
    if not _check_databasename(DatabaseFileName) then
    begin
      _get_error(0);
      Exit;
    end;
    OLE := CreateOleObject('ADOX.Catalog');
    OLE.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DatabaseFileName + ';');
    OLE := null;
    Result := True;
  except on e: exception do
  begin
    OLE := null;
    Result := False;
    MasError('Program Error',PChar(e.ClassName + #13#10 + e.Message),'mimerror','mbuok');
  end;
  end;
end;

Ну а та часть что у меня создает объекты БД. Тебе не поможет.
В виду того что там код более хитрый.
Ну и как сказали ранее ExecSQL вместо Open.

Ну собственно сам вызов

  _sv_dlg_.DefaultExt := '.mdb';
  _sv_dlg_.Filter := 'Access File|*.mdb';
  _sv_dlg_.FilterIndex := 1;
  _sv_dlg_.Execute();
  _create_databasefile(_sv_dlg_.FileName);

_sv_dlg_ как можно догадаться это SaveDialog.

[Darcangel]

огромное спасибо. Помогло))