Форум: "Базы";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];
Вниз
Что нужно сделать - чтоб создать поле типа ftGraphic - с 0 длиной Найти похожие ветки
← →
Константин (2002-08-06 16:49) [0]Добрый день.
Не смогли бы Вы помочь в следующем
Создаю локальную базу данных на лету
При этом возникает проблема с полем типа ftGraphic. При его создании я указываю что его размер должен быть 0 - однако при создании размер его всеравно получаеться 1. Из -за этого не работает программа. Но если войти в dbв32 - и стереть размер этого поля то программа начинает работать.
Вопрос в следующем, что нужно сделать - чтобы создать поле типа ftGraphic - с отсутствующей длиной (чтобы программа обработки базы данных заработала). Наверняка это возможно как то раз dbв32 позволяет это сделать.
////////////////// Текст процедуры создания таблицы.
procedure TForm1.CreateFIOTable(NameFile: string);
begin
with Table1 do
begin
Active := False;
DatabaseName := "";
TableName := NameFile;
TableType := ttPARADOX;
with FieldDefs do
begin
Clear;
Add("Code", ftAutoInc, 0, False);
Add("LastName", ftString,50,False);
Add("FirstName", ftString,50,False);
Add("BirthDay", ftDate, 0, False);
Add("Foto",ftGraphic,0,False);
end;
with IndexDefs do
begin
Clear;
Add("", "Code", [ixPrimary, ixUnique]);
Add("indBirthDay", "BirthDay", [ixCaseInsensitive]);
Add("indFirstName", "FirstName", [ixCaseInsensitive]);
Add("indLastName", "LastName", [ixCaseInsensitive]);
end;
CreateTable;
Free;
end;
end;
← →
Lusha (2002-08-06 17:02) [1]Вызывать напрямую dbiCreateTable...
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c