Как программно создать новую таблицу в Access

← →
Русланка (2005-08-10 14:26) [0]

По ходу работы надо создавать таблицы. Как это сделать?

← →
Sergey13 © (2005-08-10 14:38) [1]

>По ходу работы надо создавать таблицы.
Не факт. Нужно крепко подумать о целесообразности этого.

>Как это сделать?
Create Table

← →
Русланка (2005-08-10 14:46) [2]

Хорошо, а как лучше сделать:
Надо создавать и хранить накладные, думала, для каждой накладной создавать таблицу. Есть правильный вариант?

← →
ANB © (2005-08-10 14:48) [3]

> Русланка (10.08.05 14:46) [2]
- ну ты даешь. Одна таблица на шапки накладных (журнал), одна - для содержимого (строки). Связываешь их и не мучаешься. Бухгалтерию пишешь ?

← →
Русланка (2005-08-10 14:55) [4]

Пытаюсь простенький склад написать.
Не видел ли кто примера исходника для склада на Delphi?

← →
Sergey13 © (2005-08-10 15:01) [5]

2[4] Русланка (10.08.05 14:55)
Все видели. Свои. 8-)
Прежде чем писАть советую встретиться с будущими пользователями твоей проги и изнасиловать их вопросами типа "Что и как и почему". Потом сесть, выключить компьютер, взять чистый лист (несколько), карандаш и нарисовать схему БД со стрелочками - что, куда, откуда. Только именно бумагу, а не CASE всякие там. Бумага мысли в поряок приводит.

← →
Русланка (2005-08-10 15:03) [6]

АГА, спасибо

← →
ANB © (2005-08-10 15:07) [7]

> Русланка (10.08.05 14:55) [4]
- могу выслать готовый склад+магазин+бухгалтерия, но на Clipper :))) Зато на халяву !

← →
Русланка (2005-08-10 15:23) [8]

спасибо, но я даже не представляю себе что такое Clipper ;)
надо Access

← →
Desdechado © (2005-08-10 15:23) [9]

2 ANB
маниак. заставляешь учить кроме предметной области еще и клиппер?!

← →
ANB © (2005-08-10 15:37) [10]

> Русланка (10.08.05 15:23) [8]
ничем не хуже аксеса

> Desdechado © (10.08.05 15:23) [9]
а чего его учить ? Ставить - и пусть работают.

← →
Digitman © (2005-08-10 15:41) [11]

> Русланка (10.08.05 15:23) [8]
> надо Access

почему именно Access ?
КТО и ПОЧЕМУ выдвинул такое требование ?

← →
Русланка (2005-08-10 15:49) [12]

вроде как неплохое решение для небольшой базы. Достаточно надежное и работать просто

← →
Digitman © (2005-08-10 15:56) [13]

> Русланка (10.08.05 15:49) [12]

Access-based-решение - заведомо небесплатное

← →
ANB © (2005-08-10 16:01) [14]

> Русланка (10.08.05 15:49) [12]
- присоединяюсь к предыдущему оратору и добавлю : еще и отстойное. Хранимок нет. Про транзакции - не слышал, так как даже не пытался на нем работать. Делать на нем склад - самоубийство. Потом замучаешься сопровождать.

← →
Desdechado © (2005-08-10 16:10) [15]

> а чего его учить? Ставить - и пусть работают.
а вдруг (куда без этого?) доработка потребуется?

> Desdechado © (10.08.05 16:10) [15]
- пока потребуется - уже успеет нормальный написать. По образцу и подобию. Я ж с исходниками дам.

> Я ж с исходниками дам.
:)
Вот и придется учить клиппер, чтоб в них разобраться.

> Desdechado © (10.08.05 17:31) [17]

- да не, не придется. У меня в начале основного исходника защита структура таблиц с подробными комментариями. Только DBF поучить придется.

procedure TForm1.Button3Click(Sender: TObject); var AdoEngine: Variant; Sbase : String; begin Sbase := FN.FileName; if FileExists(sBase) then exit; AdoEngine:= CreateOleObject("ADOX.Catalog"); try AdoEngine.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + sBase + ";Jet OLEDB:Engine Type=5;"); AdoEngine.ActiveConnection.Close; finally AdoEngine:= ""; end; end;

=============

Но перед этим надо добавить ADOX Для этого:
To use ADOX in Delphi, you should establish a reference to the ADOX type library.
1. Select Project | Import Type Library
2. Choose "Microsoft ADO Ext 2.x for DDL and Security (Version 2.x)"
3a. Change "TTable" to "TADOXTable"
3b. Change "TColumn" to "TADOXColumn"
3c. Change "TIndex" to "TADOXIndex"
3d. Change "TKey" to "TADOXKey"
3e. Change "TGroup" to "TADOXGroup"
3f. Change "TUser" to "TADOXUser"
3g. Change "TCatalog" to "TADOXCatalog"
4. Press Install button (rebuilding packages)
5. Press OK once and Yes twice
6. File | Close All | Yes

This process creates a ADOX_TLB.pas unit and places its name in the uses clause of the current project. The process also places 7 new components on the ActiveX page of the component palette. It is very important to change the class names as described in step 3. If you omit that part Delphi will complain that class TTable is already defined - this is because the VCL already has the BDE version of TTable component

=========================
Естественно в юните, в котором будет кнопка(или что-то другое) для создания таблицы должен быть объявлен ADOX_TLB

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

Сорри

>ANB © (10.08.05 16:01) [14]
>- присоединяюсь к предыдущему оратору и добавлю : еще и отстойное. Хранимок нет. Про транзакции - не слышал, так как даже не пытался на нем работать. Делать на нем склад - самоубийство. Потом замучаешься сопровождать.

Глупости.
Роль хранимок могут выполнять аксесовские модули и макросы.
Транзакции есть. Есть несколько профессионально сделанных складов именно на акцесе. Вполне сетевые. Промер - SMarket от ТФПК(Киев). Сопровождения фактически не требует. Напротив меня офис сети аптек (5 точек), работающих на SMarket уже 4 года. Раз в 3-4 месяца захожу сжать базу и сбросить ее на сиди. Раз в два года отсылают базу в Киев, где ее чистят, удаляя старое движение и рафинируя справочники. Номенклатура - порядка 10000 позиций. Учет по поставкам. Документооборот - более 5000 строк в месяц.

Как программно создать новую таблицу в Access Найти похожие ветки