Помогите создать БД,срочно надо , MS Access/SQL-запросы

[Натахен]

Люди,помогите,плиз,не могу создать базу данных в Access(е) с использованием SQL-запросов(Create Table).Все это должно происходить при нажатии на кнопку на форме приложения,созданного в Delphi.Кто-нибудь,помогите,плиз,срочно надо.

[JumpingJack]

А в чем проблема то собственно?? Поточнее нельзя? Не можешь запрос написать или что?

[Натахен]

Дело вот в чем. Есть у меня программа(ИПС), работает, все нормально.Проблема в том, что БД и таблицы в проге созданы с помощью мастера в Access, а нужно их создать программно в Delphi, используя SQL-запросы, и сделать это нужно как можно быстрее.Т.о. в приложении должна быть кнопочка, при нажатии на которую создавалась бы БД(с табличками)в Access, а дальнейшая работа происходила с использованием этой БД. А я понятия не имею как это делается

[Chow]

Цитата Натахен @ 05.06.05, 18:15

Т.о. в приложении должна быть кнопочка, при нажатии на которую создавалась бы БД(с табличками)в Access, а дальнейшая работа происходила с использованием этой БД.

А не проще в том же мастере Акцесса создать пустую БД с нужной структурой, запихать полученный mdb-файл в ресурсы твоей проги и по нажатию на ту самую кнопочку просто вытягивать файл БД из ресурсов, сохранять его на диск и... ну и работать с ним уже...

[Натахен]

в общем дело плохо,не могу написать этоти запросы,а значит не могу написать БД:(((

Добавлено 05.06.05, 18:49
Проще-то оно проще,но мне нужно именно так,т.е. не используя мастер,а именно спрограммировать:'(

[JumpingJack]

Вот так вот можно:

uses ..., ComObj;
 
...
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  cat      : Variant; //ADOX.Catalog
  FileName : String;
begin
  FileName := 'd:\testdb.mdb';
  try
    cat := CreateOleObject('ADOX.Catalog');
    try
      cat.create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + FileName);
    finally
      cat := Unassigned;
    end;
  except
    on E: Exception do raise;
  end;
 
  with ADOQuery1 do
  begin
    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
                         FileName + ';Persist Security Info=False';
    SQL.Clear;
    SQL.Add('CREATE TABLE TestTable ');
    SQL.Add('(FirstField  Char(25), SecondField Integer)');
    ExecSQL;
  end;
end;

Осталось дописать SQL запрос с нужными таблицами и полями

Сообщение отредактировано: JumpingJack - 05.06.05, 22:58

[Натахен]

Спасибо огромное:0), сегодня попробую:)))

[Bas]

Как проверяете существование таблицы?, ADO/Delphi/Access

Сообщения были разделены в тему "В Edit только буквы, цифры"

[Натахен]

Спасибо огромное всем, кто мне помог. У меня созрел новый вопрос:).Как сделать справку в программе. с помощью HelpWorkShop, но че-то не выходит:(, нельзя ли как-нибудь по-другому ее сделать?

[JumpingJack]

Не лучще ли разобраться с тем, что "не выходит"?

[Bas]

!

Натахен - Cоздавайте новые темы в нужных разделах, не валите все в кучу.