Форум: "Базы";
Текущий архив: 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.008 c