создание файла базы

[Черничный]

А как можно создать програмно фаил базы данный Access? с таблицей все как положенно: стобец-формат.

P.S. У меня есть програмка, так не знаю как реализовать такое и сделал просто: если файла базы нет, то уведомить и заблокировать управление.

[edgy]

Это уже было здесь

[Черничный]

там только создание самого файла, а про создание таблиц стандартынми sql запросами я вообще не знаю

[edgy]

Ну тогда давайте для примера создадим таблицу "Person" с тремя столбцами.
1) Сперва создаете саму БД. Пример я уже привел.
2) Настраиваете свойство ConnectionString у компонента ADOConnection.
3) А теперь создадим саму таблицу:

  try
    ADOCommand1.Connection := ADOConnection1;
    ADOCommand1.CommandType := cmdText;
ADOCommand1.CommandText := 'CREATE TABLE Person (First_Name ' +        
    ' TEXT(20), Last_Name TEXT(25), birthday DATETIME )';
    ADOCommand1.Execute;
  except on E:Exception do
    begin
      ....
    end;
  end;

Таким образом мы создали таблицу Person с тремя полями с помощью SQL-запроса.

[edgy]

Полный синтаксис DDL - выражения для конструкции CREATE TABLE выглядит так:

CREATE [TEMPORARY] TABLE таблица (поле1 тип [(размер)] [NOT NULL] [WITH COMPRESSION | WITH COMP] [индекс1] [, поле2 тип [(размер)] [NOT NULL] [индекс2] [, ...]] [, CONSTRAINT индекс_нескольких_полей [, ...]])

Подробнее смотрите в справочнике по SQL, ну или здесь

[Черничный]

edgy, а ADOCONECTION уже жолжен быть натсроен?

[edgy]

Не обязательно. Его можно настроить и в рантайм. Т.е. сперва создаем БД. Затем в свойстве ConnectionString компонента ADOConnection программно прописываем строку:

'Provider=Microsoft.Jet.OLEDB.4.0;U ser ID=Admin;Data Source=E:\Base.Mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'

Т.е. сам код будет выглядеть так:

 ADOConnection1.Close;
 ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0; ' 
      + ' User ID=Admin;Data Source=E:\Base.Mdb;Mode=Share Deny None; ' +
         ' Extended Properties="";Jet OLEDB:System database=""; ' +
         ' Jet OLEDB:Registry Path=""; Jet OLEDB:Database Password=""; ' +
         ' Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1; ' +
         ' Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB: ' +
         ' Global Bulk Transactions=1;Jet OLEDB: ' +
         ' New Database Password="";Jet OLEDB: ' + 
         ' Create System Database=False; Jet OLEDB: ' +
         ' Encrypt Database=False;Jet OLEDB:Don' + #39 + 
         't Copy Locale on Compact=False; ' +
         ' Jet OLEDB:Compact Without Replica Repair=False; ' +
         ' Jet OLEDB:SFP=False';
 ADOConnection1.LoginPrompt := false;
 ADOConnection1.Open;

Если с кавычками не напутал, то все это будет работать

Вместо прямой подстановки "E:\Base.Mdb" в строке путь можно считывать, например из Edit.

Ну а далее, создаем программно таблицу. Как это сделать - вы уже знаете.

[Черничный]

а что значит он при выполнении кода выдает сообщение "невозможно найти устанавливаемый ISAM"

[edgy]

Вариант 1: Строку подключения я разбил на несколько строк, и в начале и конце каждой строки у меня стоят пробелы. Попробуйте удалить их. Вполне возможно, что не совсем корректно разпознается строка подключения. Если не поможет, то переходим к варианту 2.
Вариант 2: Обратите внимание на следующую строчку строчку: 'Provider=Microsoft.Jet.OLEDB.4.0;'
Вполне возможно, что у вас другая версия OLE DB provider и т.п.
Вообщем, по-быстрому все это можно решить так: Попробуйте не программно, а в design-time вручную настроить ADOConnection. Подключитесь к какой-нибудь БД. Посмотрите на строку подключения, которая сформировалась в ConnectionString. При желании можете скопировать ее и подставлять в runtime вместо той, которую привел я.

[Черничный]

если просто скопировать то будет писать что не найдена. У меня в другой рабтающей программе Microsoft.Jet.OLEDB.4.0. Убрав пробелы вместо ISAM то же начинает писать фаил не найден