загрузка базы

[Lepricon69]

Народ помогите
Мне надо сделать чтобы база загружалась при открытии и если ее нет она автоматически создавалась, но я не знаю как этого добиться база на два столбца строковый тип данных база *.mdb помогите плиз

ЗЫ: срочно надо

[-MagicAlex-]

Я думаю вам быстрее помогут, если вы более понятно сформулируете вопрос...

[rdama]

Ну выглядеть это будет примерно так.
1. Проверяешь существует ли файл.
если нет то
1. Создаешь пустой файл mdb.
2. Подключается к нему.
3. Создаешь таблицу.
если да то
1. Подключается к нему.
2. Проверяешь существует ли нужная таблица
если нет то
1. Создаешь таблицу.
если да то
1. Открываешь таблицу

[Lepricon69]

а сам код это действия я это и сам понял но как реализовать ???

[rdama]

Uses ComObj;

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.FormCreate(Sender: TObject);
begin
  if FileExists('db.mdb') then
  begin
    if Con.Connected=False then
    begin
      Con.ConnectionString:='';
      Con.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
           +ExtractFilePath(Application.ExeName)+'db.mdb;Persist Security Info=False';
      Con.Connected:=True;
    end;
    try
      TestQ.Close;
      TestQ.SQL.Clear;
      TestQ.SQL.Add('SELECT * FROM EXPL');
      TestQ.Open;
    except
    begin
      TestQ.Close;
      TestQ.SQL.Clear;
      TestQ.SQL.Add('CREATE TABLE EXPL(ID INT, Pole1 CHAR(20));');
      TestQ.ExecSQL;
      FormCreate(Self);
    end;
    end;
  end
  else
  begin
    CreateAccessDatabase('db.mdb');
    FormCreate(Self);
  end;
end;