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




Вниз

создание DBF - файла ..... 


rvs   (2002-04-04 12:11) [0]

Добрый день.

Подскажите , pls, как можно создать *.dbf файл в каталоге запуска программы. На подобие "select * from d7 into table xd7 "

Заранее благодарен.
Ветал.



Anatoly Podgoretsky   (2002-04-04 12:14) [1]

TTable, Databasename указать катлог программы
Tquery, create table "каталог программы.таблица"



VAleksey   (2002-04-04 12:20) [2]

Ничего не указывай в DataBaseName. По умолчанию таблица будет создаваться в текущий каталог.



Lusha   (2002-04-04 12:22) [3]

Для приведенного Вами примера наиболее подходящим, на мой взгляд, было бы использование TTable и его методов CreateTable и BatchMove.
В качестве параметра в BatchMove передавать TQuery с SQL текстом "select * from d7"...



Anatoly Podgoretsky   (2002-04-04 12:32) [4]

VAleksey (04.04.02 12:20)
А ты уверен, что текущий каталог будет именно каталогом программы



rvs   (2002-04-04 13:46) [5]

В общем сделал так :
With BatchMove1 do
begin
Source := Query1;
Destination:=Table1;
Mode:=batCopy;
Execute;
End;
//Создаю таблицу
Table1.CreateTable;
//Заполнение
BatchMove1.Execute;

В результате получаю таблицу xd7 в кодировке 1252 ??? А как изменить кодировку на 1251 ???(И правильно ли я выплняю 2 раза Execute ?)
И еще :
Ломается структура таблицы : был Numeric(6) -> Numeric(20.4). А можно ли с этим бороться ???

Заранее Всем огромное спасибо...
С уважением Ветал.



Lusha   (2002-04-04 14:13) [6]

With BatchMove1 do
begin
//Создаю таблицу
Table1.CreateTable;

Source := Query1;
Destination:=Table1;
Mode:=batAppend;
Execute;
End;


А я предлагал...
//Создаю таблицу
Table1.CreateTable;
Table1.BatchMove(Query1, batAppend);


Удачи...




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




Наверх





Память: 0.72 MB
Время: 0.034 c
1-80923           K@tusha               2002-04-11 13:33  2002.04.25  
Перевеси цветную палитру в черно-белую


3-80734           Sewix                 2002-04-02 23:37  2002.04.25  
Нужна альтернатива Qreport


1-80902           Кулюкин Олег          2002-04-15 09:12  2002.04.25  
ручная отрисовка ListView, проблемма при изменении ширины столбца


3-80801           SkyR                  2002-04-05 02:50  2002.04.25  
Ошибка - InterBase


14-81059          limon                 2002-03-20 10:59  2002.04.25  
Юбилей: компьютерной мышке 50 лет