Как програмно создать поле Float?

← →
stone © (2003-06-24 13:41) [0]

Создаю таблицу при помощи FieldDefs
with AddFieldDef do
begin
Name := "Course";
DataType := ftFloat;
end;

Поле создается, но если открыть структуру таблицы в Database Desktop, оно не имеет ни длины, ни точности.
Что еще надо указать?

ЗЫ. База DBASE

← →
Соловьев © (2003-06-24 13:49) [1]

with FieldDefs do begin Add("PHONE", ftFloat, 0, true); FieldDefs[0].CreateField(MySql); ...

← →
Stas © (2003-06-24 13:50) [2]

Table1.fielddefs.add ("MyField",ftFloat,4,false)

← →
stone © (2003-06-24 13:52) [3]

Соловьев © (24.06.03 13:49)

Разве не одно и тоже ?

← →
stone © (2003-06-24 14:24) [4]

Чувствую, стандартным способом такое не получится. То же касается поля Integer (с длиной более 6). Видимо нужно лезть поглубже в БДЕ.

← →
HSolo © (2003-06-24 14:35) [5]

Есть еще один стандартный способ :) SQL-запрос
Query.SQL.Text := "ALTER TABLE такая-то ADD поле NUMERIC(длина,точность)";
Query.ExecSQL;

← →
Anatoly Podgoretsky © (2003-06-24 14:52) [6]

stone © (24.06.03 13:41)

ЗЫ. База DBASE - за собой ничего не несет.

← →
stone © (2003-06-24 14:56) [7]

> Anatoly Podgoretsky © (24.06.03 14:52)

Как прикажете понимать?

← →
Anatoly Podgoretsky © (2003-06-24 15:03) [8]

Это тебя как понимать, DBASE форматов много, для седьмого это нормально. Ты вместо задания вопросов будь добр указывать полную информацию, необходимую для ответа. Сказать DBASE это все равно что ничего не сказать, одно ясно, что это не Парадок, не Акцесс не ИБ и т.д., но это все.

← →
stone © (2003-06-24 15:15) [9]

DBASE IV

← →
Anatoly Podgoretsky © (2003-06-24 15:22) [10]

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

Скорее предполагаю
Вот полный код:

DB := TDatabase.Create(nil);
DB.DriverName := "STANDARD";
DB.Params.Values["PATH"] := Dir;
DB.LoginPrompt := False;
DB.DatabaseName := "DB";
DB.Connected := true;
Tbl := TTable.Create(nil);
Tbl.TableType:= ttDBase;
Tbl.DatabaseName := "DB";

try
UpdateMessages("

1. Ты опять не указываешь размер, а ожидаешь его увидеть

procedure Add(const Name: String; DataType: TFieldType; Size: Integer = 0; Required: Boolean = False);

2. Add is provided for backward compatibility.
3. Я бы вообще не рекомендовал использовать тип ftFloat, он во первых не зря Float, что означает плавающая запятая и предназначен в основном для представления или очень маленьких или очень больших чисел, которые не помещаются в 18 знаков. Для dBase ниже 7 версии, оптимальный типы ftInteger/ ftBCD, но лучше уходить на BDE API, поскольку VCL не имеет должной поддержки, или самый простой путь иметь пустую таблицу шаблон и ее копировать (dbiCopyTable), в этом случае гарантируется точная структура. Можно еще и на рабочей если сменить имя, без изменения FieldDefs, но тут могут быть сюрпризы, в зависимости от настроек BDE

ftBCD устанавливает (20,4) не зависимо указан размер или нет

> но лучше уходить на BDE API

Где об этом можно почитать?

В справке по BDE

Как програмно создать поле Float? Найти похожие ветки