| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание dbf [D7, dBase, FoxPro]

Tor ©   (2004-11-22 16:25:00) 

Немог бы кто нибудь привести пример кода создания dbf руками
(FoxPro 2.6)
Благодарю!

---

Tor   (2004-11-22 18:03:00) [1]

Интересно а зачем тогда в структура dbf-ника расписана по байтам?
:)

---

Карелин Артем   (2004-11-22 17:09:00) [2]

Builds a new table using new structure information.

procedure CreateTable;

Description

Call CreateTable at runtime to create a table using this dataset’s current definitions. If the table already exists, CreateTable overwrites the table’s structure and data. To avoid overwriting an existing table, check the Exists property before calling CreateTable.

If the FieldDefs property contains values, these values are used to create field definitions. Otherwise the Fields property is used. One or both of these properties must contain values in order to create a database table.

If the IndexDefs property contain values, these values are used to create indexes on the table.
The following example shows how to create a table.

{ Don't overwrite an existing table }

if not Table1.Exists then begin
 with Table1 do begin
   { The Table component must not be active }
   Active := False;  
   { First, describe the type of table and give }
   { it a name }
   DatabaseName := 'DBDEMOS';
   TableType := ttParadox;
   TableName := 'CustInfo';
   { Next, describe the fields in the table }
   with FieldDefs do begin
     Clear;
     with AddFieldDef do begin

       Name := 'Field1';
       DataType := ftInteger;
       Required := True;
     end;
     with AddFieldDef do begin
       Name := 'Field2';
       DataType := ftString;
       Size := 30;
     end;
   end;
   { Next, describe any indexes }
   with IndexDefs do begin
     Clear;
     { The 1st index has no name because it is
     { a Paradox primary key }
     with AddIndexDef do begin

       Name := '';
       Fields := 'Field1';
       Options := [ixPrimary];
     end;
     with AddIndexDef do begin
       Name := 'Fld2Indx';
       Fields := 'Field2';
       Options := [ixCaseInsensitive];
     end;
   end;
   { Call the CreateTable method to create the table }
   CreateTable;
 end;
end;

---

Tor   (2004-11-22 16:40:00) [3]

может я че то не дапонял?
используя структуру dbf файла

---

Anatoly Podgoretsky   (2004-11-22 16:34:00) [4]

В справке есть примеры создания.

---

Наверх