хотела создать базу данных, писала по книге. листинг выглядит так: 
procedure TForm2.Button1Click(Sender: TObject);
var
 Table:_Table;
 Column: _Column;
begin
 // Создание бд
 Catalog := CoCatalog.Create;

 if FileExists('db.mdb') then
  DeleteFile('db.mdb');

 Catalog.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb');
 Catalog.Set_ActiveConnection('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb');

 // Создание таблицы
 Table := CoTable.Create;
 Table.Name      := 'Ìîè äðóçüÿ';
 Table.ParentCatalog := Catalog;

 // Создать ключевое поле
 Column := CoColumn.Create;
 with Column do
  begin
   ParentCatalog := Catalog;
   Name    := 'Key1';
   Type_   := adInteger;
   Properties['Autoincrement'].Value := True;
   Properties['Description'].Value    := 'Ключевое поле';
  end;

 // Добавить поле к таблице
 Table.Columns.Append(Column, 0, 0);
 Column := Nil;

 // Создаем еще несколько полей
 with Table.Columns do
  begin
   Append('Фамилия', adVarWChar, 50);
   Append('Имя', adVarWChar,    50);
   Append('Телефон, adVarWChar, 15);
   Append('Адрес', adVarWChar, 255);
   Append('Возраст', adInteger, 100 );
  end;

 // Добавить таблицу к бд
 Catalog.Tables.Append(Table);
end;

перед этим делала расширение ADO по книге

Вопрос почему выдает следующую ошибку: [Error] dclusr.dpk(38): Package 'dclusr70' already contains unit 'ADOX_TLB'    

Что делала?  


  На какой строке данного кода может вылезти такая ошибка?  

А вообще создание БД Access несколько проще делается.  


Поля же в неё добавляются обычными запросами через AdoQuery.  

я наверное что-то не то делаю, но теперь вот такие ошибки
[Error] Unit1.pas(31): Undeclared identifier: 'CreateOleObject'
[Error] Unit1.pas(43): Not enough actual parameters 
 

А это на какой строке? Вообще эта функция 100% рабочая.

спасибо большое, разобралась, теперь буду думать как программно заполнять эту бд 

Или SQL-запросом с помощью AdoQuery, или же в цикле (что медленнее, но иногда удобнее):


Это сообщение отредактировал(а) Данкинг - 24.1.2010, 00:36

Ой-ой, ночью код вредно писать
Начнем с того, что Делфи не знает, что такое .FieldByValues, а я не знаю, зачем здесь нужен Ферст и Некст
Вот, должно заработать 


Добавлено через 2 минуты и 39 секунд
Ну, и самое главное забыли сказать, чтобы перед этой операцией присвоить AdoTable строку соединения и имя таблицы 

Это сообщение отредактировал(а) chip_and_dayl - 24.1.2010, 11:17

  Я сначала написал "FieldByName", но затем хотел исправить на FieldValues.  


Да, и то верно.  

попыталась сделать сама что-то
вот код


при нажатии на кнопку программа вываливается и выдает такую ошибку


что не так я сделала?



Это сообщение отредактировал(а) Skodina - 24.1.2010, 17:46

Skodina, проект в студию.

что именно нужно прислать? 
и еще вопрос есть ли разница писать название таблицы и ее столбцов по русски или по английски например тут ADOQuery1.SQL.Add('CREATE TABLE predpriyatiya (kod NUMBERIC(10), predpr CHAR(5), adress CHAR(100), telefon CHAR(15))');

Проект целиком.  Впрочем:


Он всё же numeric, а не numberic.  


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

Млин, обогнал :)

спасибо большое, вы мне очень помогли, дальше постараюсь сама