Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.02.10;
Скачать: [xml.tar.bz2];

Вниз

Уровень таблицы TableLevel   Найти похожие ветки 

 
Chris   (2003-01-24 15:14) [0]

Пытаюсь создать dBase-IV, ставлю TableLevel=4, а прога все равно делает базу с седьмым уровнем.
Вариант через BDE Administrator мне не подходит, т.к. мне необходимо сделать такую же базу и с седьмым уровнем


 
Reindeer Moss Eater   (2003-01-24 15:17) [1]

Наверное используются типы полей, не поддерживаемые в запрошенной версии


 
Anatoly Podgoretsky   (2003-01-24 15:23) [2]

А о чем говорить без кода, о средней температуре по больнице, даже проблема полностью не объяснена, так общие слова.


 
Reindeer Moss Eater   (2003-01-24 15:28) [3]

Не решаюсь напомнить об этом автору вопроса. А то снова назовут п ежоном :)


 
Chris   (2003-01-24 15:50) [4]

Хорошо.
Краткое описание. Процедура копирует данные из одной базы в другую 4-й версии драйвера.


var FileDBF: string;
Tab1, Tab2: TTable;
begin
Tab1:=TTable.Create(NIL);
Tab2:=TTable.Create(NIL);
Tab1.DatabaseName:=ExtractFilePath(FileDBF);
Tab1.TableName:="Table3.dbf";
Tab1.TableType:=ttdBase;
Tab2.DatabaseName:=Tab1.DatabaseName;
Tab2.TableName:="Table3_IV.dbf";
Tab2.TableType:=ttdBase;
if FileExists(Tab2.DatabaseName+Tab2.TableName) then
DeleteFile(Tab2.DatabaseName+Tab2.TableName);
Tab2.TableLevel:=4; //Устанавливаю уровень драйвера dBaseIV
Tab1.Active:=True;
Tab2.FieldDefs.Assign(Tab1.FieldDefs);
Tab2.CreateTable;
Tab2.Active:=True;
While not Tab1.Eof do
begin
Tab2.Insert;
for i:=0 to Tab1.FieldDefs.Count-1 do
Tab2.Fields[i].AsString:=Tab1.Fields[i].AsString;
Tab2.Post;
Tab1.Next;
end;
Tab1.Close;
Tab2.Close;
Tab1.Free;
Tab2.Free;




 
Reindeer Moss Eater   (2003-01-24 16:10) [5]

Наверное используются типы полей, не поддерживаемые в запрошенной версии



 
sniknik   (2003-01-24 16:10) [6]

как предположение, с BDE у меня плохо :(.

поменять местами вот так, что будет?
...
Tab1.Active:=True;
Tab2.FieldDefs.Assign(Tab1.FieldDefs);
Tab2.TableLevel:=4; //Устанавливаю уровень драйвера dBaseIV
Tab2.CreateTable;
...


 
Chris   (2003-01-25 12:11) [7]

> sniknik
Увы, мысль хорошая, но результат тот же - TableLevel все-равно равен 7



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.02.10;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.009 c
4-29146
Uka
2002-12-26 06:44
2003.02.10
Как я могу(transfer file to com port) или (send file to com port)


1-28908
Alexey V
2003-01-30 16:01
2003.02.10
Мастера ! Неужели никто не поможет с OpenDialog


1-28740
Alex G
2003-01-31 23:09
2003.02.10
Проблема сортировки... Украинские слова


14-29030
Anatoly Podgoretsky
2003-01-24 07:35
2003.02.10
Именинники 24 января


1-28821
158963
2003-02-02 13:07
2003.02.10
Align в edit





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский