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

Вниз

ClientDataSet и Paradox   Найти похожие ветки 

 
Max_9999   (2003-02-18 14:26) [0]

Можно ли содержимое ClientDataSet превратить (экспортировать) в фаил Paradox"a (*.db)?
ClientDataSet1.SavetoFile("c:\my.db");- создаёт ошибочный фаил!


 
Карелин Артем   (2003-02-18 14:28) [1]

Ну ты блин ваще. А в оракл не пробовал сохранить?


 
Mike_Goblin   (2003-02-18 14:29) [2]

Автоматически нет
Если написать нужный код - то можно

PS SaveToFile сохраняет в 2-х форматах cds и xml, большего он не умеет, да и не нужно ему это


 
Max_9999   (2003-02-18 14:47) [3]

А какой это "нужный код"?


 
Mike_Goblin   (2003-02-18 15:20) [4]

Нужный код - это
1. Создание пустой таблицы Paradox (если ее еще нет) с заданной структурой
2. Копирование записей из ClientDataSet в созданную таблицу.

PS пожалуйста, не спрашивайте кем задается структура файла Paradox :)))


 
Карелин Артем   (2003-02-19 09:54) [5]

Типа того:
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
IBTable1.Active:=false;
//Набор данных должен быть закрыт
IBTransaction1.Active:=true;
if IBTable1.Exists then IBTable1.DeleteTable;
IBTable1.FieldDefs.Assign(Dbf1.FieldDefs);
//Если надо копировать индексы, делаем то же самое с IndexDefs.
//Перед созданием таблицы имя и база данных должны быть назначены.
IBTable1.CreateTable;
IBTransaction1.Commit;
IBTable1.Open;
//Копируем данные
ProgressBar1.Max:=Dbf1.ExactRecordCount;
Dbf1.First;
while not(Dbf1.Eof) do
begin
IBTable1.Append;
for i:=0 to Dbf1.Fields.Count-1 do
begin
IBTable1.Fields[i].Value:=Dbf1.Fields[i].Value;
end;
ProgressBar1.Position:=Dbf1.PhysicalRecNo;
Application.ProcessMessages;
IBTable1.Post;
Dbf1.Next;
end;
IBTable1.Close;
IBTransaction1.Active:=false;
ProgressBar1.Position:=0;
end;

Только чуть измени код. Что менять? догадайся.



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

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

Наверх





Память: 0.56 MB
Время: 0.038 c
14-30117
Fedor
2003-02-20 14:35
2003.03.10
ZLib


1-29821
Swolota
2003-02-26 11:41
2003.03.10
Чтение из ини-файла


8-29964
Marko_polo
2002-11-28 06:04
2003.03.10
Как создать...


14-30025
Andrey
2003-02-24 12:11
2003.03.10
Как отцепить курсор мышки от самой мышки


1-29906
Helg
2003-02-26 19:44
2003.03.10
Проблемы с математикой





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