Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 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.006 c
6-85150
Evgenyk
2002-06-17 12:05
2002.08.26
Как программно отредактировать реестры всех компов в сети


3-84920
SVM
2002-08-07 09:48
2002.08.26
IB 5.6


1-85081
Fissher
2002-08-14 17:10
2002.08.26
Курсор в главном меню


8-85131
Янушка
2002-04-18 14:26
2002.08.26
Как организовать простенькую анимацию в Delphi?


1-85101
vuk
2002-08-15 00:41
2002.08.26
Вопрос по ToolsAPI





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский