Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.10.2008, 00:08   #1
One.Love
Пользователь
 
Регистрация: 13.01.2008
Сообщений: 91
По умолчанию Управление Базой Данных Access

Люди скажите пожалуйста можно ли из делфи создать БД Access, таблицы в ней, и поля в этой таблице с заданием типов для каждого поля? И как это сделать?
One.Love вне форума Ответить с цитированием
Старый 10.10.2008, 04:33   #2
Баламут
Баламучу слегка...
Участник клуба
 
Аватар для Баламут
 
Регистрация: 01.11.2006
Сообщений: 1,585
По умолчанию

Конечно можно. Примерно так это должно выглядеть. Только импорт библиотеки типов ADOX предварительно сделай.
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ADOX_tlb;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ADOConnection1: TADOConnection;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    Catalog: _Catalog;
    Table: _Table;
    Column: _Column;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Catalog := coCatalog.Create;
Catalog.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Work\Forum1\testdb.mdb');
Catalog.Set_ActiveConnection('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Work\Forum1\testdb.mdb');
Table := coTable.Create;
Table.Name := 'TestTable';
Table.ParentCatalog := Catalog;

Column := coColumn.Create;
Column.ParentCatalog := Catalog;

Table.Columns.Append('Фамилия', adVarWChar,100);
Table.Columns.Append('Имя', adVarWChar, 50);

Catalog.Tables.Append(Table);
end;

end.
Баламут вне форума Ответить с цитированием
Старый 11.10.2008, 02:08   #3
One.Love
Пользователь
 
Регистрация: 13.01.2008
Сообщений: 91
По умолчанию

Спасибо
One.Love вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите с базой данных Роман-33 БД в Delphi 3 06.09.2008 18:37
Работа с базой данных Dizark Помощь студентам 1 01.03.2008 20:30
Помогите с базой данных Илья Microsoft Office Excel 3 20.12.2006 09:49