Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите, бьюсь с БД и XML 
:(
    Опции темы
Kbl4AH
Дата 1.4.2008, 21:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15
Здравствуйте, все, кто читает это сообщение и тем более сможет мне помочь!
Я недавно занялся программированием на Делфи фор Вин32 и уже столкнулся со сложностью.
Суть  проблемы такова - 

1) существует оракловая база, которая хранится на сервере

2) мне нужно сделать из нее выборку и сохранить результат в формате XML

3)структура XML-документа - известна

4) выборку сделать сам могу, но может быть нужно использовать другие компоненты?
насколько я понял - для сохранения в формате XML мне нужно получить данные в ClientDataSet,
поэтому я использую цепочку OracleSession>OracleDataSet>ProviderDataSet>ClientDataSet, правда,
не понимаю - для чего мне нужны последние 2 элемента (вроде лишние они)?

5)почитал в книжке по переводу данных из КлиентДатаСет в XML - 
1-й вариант решения не устраивает - сохраняется в какой-то XML с борландовской структурой
2-й вариант с ипользованием XML mapper - не получается - из готового XML в ДатаСет могу перевести,
а наоборот - нет
3-й вариант - в книге написано, что самый лучший - не понял

6)еще, в FastReports нашел компонент frxXMLExport... не понял как им пользоваться и 
нужен ли он мне вообще?

7)может ваще пойти по сложному пути - составить XML-документ в ручную по образцу и 
только вставить выбранные мной данные?

Кто может что либо сказать или посоветовать - пожалуйста, не стесняйтесь - 
буду очень признателен! 
Просьба - пишите поподробнее, а то я еще очень плохо разбираюсь в предмете
и могу не понять того, что другой схватит на лету=)
PM MAIL ICQ   Вверх
Rodman
Дата 2.4.2008, 10:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Цитата(Kbl4AH @  1.4.2008,  20:39 Найти цитируемый пост)
4) выборку сделать сам могу, но может быть нужно использовать другие компоненты?
насколько я понял - для сохранения в формате XML мне нужно получить данные в ClientDataSet,
поэтому я использую цепочку OracleSession>OracleDataSet>ProviderDataSet>ClientDataSet, правда,
не понимаю - для чего мне нужны последние 2 элемента (вроде лишние они)?

ну простейший вариант записать в рукопашеную, если формат известен..

дай пример XML я тебе кину примерчик...
по поводу работы с базой, мне кажется хватило бы и Query обычного... по крайней мере я тебе могу полностбью показать как перегнать!


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Kbl4AH
Дата 2.4.2008, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15
А тебе это не будет затруднительно?
Насчет просто Query... А как его использовать? Ведь его, чтоб данные из середины прочитать, придется заново запрашивать. А DataSet  - раз получил выборку и юзаешь скока угодно и в любом порядке.

Насчет документа... В нем шапка про директора и отдел кадров - не берется из базы, т.к. они постоянны и их ручками вбить можно.

Из базы берутся данные по наименованию подразделений, списки профессий и работников.

Подскажи что-нибудь, плиз.

В любом случае уже благодарен за первый ответ))) А то я впервые на этом форуме и удивился - никто почему-то не отвечает, даже пусть и не в тему(((

Присоединённый файл ( Кол-во скачиваний: 7 )
Присоединённый файл  file.zip 0,98 Kb
PM MAIL ICQ   Вверх
Rodman
Дата 2.4.2008, 14:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function InsertData(Teg{имя тега}, Data{слешь, когда нужен}, info{параметры}:String):String;
begin
  if (Length(info)>0)then
    Result:='<'+Teg+' '+info+'>'
  else
    Result:='<'+Data+Teg+'>';
end;

procedure TForm1.Button1Click(Sender: TObject);
var sList:TStringList;
begin
  sList:=TStringList.Create;
  try
    sList.Add(InsertData('ПеречниЛьготныхПрофессий', '', 'ВерсияФормата="1.6"'));// забиваем глобальные теги
    sList.Add(InsertData('ПеречниЛьготныхПрофессий', '/', '');//закрываем его
    sList.Insert(sList.Count-1, InsertData('Перечень', '', 'ДатаСоставления="02.04.2008" Тип="ИСХОДНЫЙ" СогласованоСПрофсоюзом="1" СтатусПроверки="НЕ-ПРОВЕРЯЛСЯ"'));//вложеный тег
    sList.Insert(sList.Count-1, InsertData('Перечень', '/', ''));//закрываем
    sList.Insert(sList.Count-2, InsertData('Предприятие', '', 'РегНомер="130-519-842223" Наименование="ЗАО ОМЗ" Тип="ПРОИЗВОДСТВО"'));
    sList.Insert(sList.Count-2, InsertData('Предприятие', '/', ''));
    sList.Insert(sList.Count-3, InsertData('ВидДеятельности', '', ''));//открытие
    sList.Insert(sList.Count-3, 'СПИСОК-1-2');//значение
    sList.Insert(sList.Count-3, InsertData('ВидДеятельности', '/', ''));//закрытие
    sList.Insert(sList.Count-3, InsertData('Директор', '', ''));//открыите
    sList.Insert(sList.Count-3, 'sdf');// и тут снова надо влаживать
    sList.Insert(sList.Count-3, InsertData('Директор', '/', ''));

    //Count - 3 и подобное, это когда тебе надо не в последнюю сроку записывать, а с отступом
    sList.SaveToFile('MyXML.XML');
  finally
    sList.Free;
  end;
end;
end.
вот по такому принципу


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Kbl4AH
Дата 3.4.2008, 07:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15
Спасибо, буду пробоватьsmile
PM MAIL ICQ   Вверх
Deniz
Дата 3.4.2008, 08:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1251
Регистрация: 16.10.2004
Где: Новый Уренгой

Репутация: 8
Всего: 44
Цитата(Rodman @  2.4.2008,  17:43 Найти цитируемый пост)
//Count - 3 и подобное, это когда тебе надо не в последнюю сроку записывать, а с отступом
а зачем?
Я думаю лучше
1. Открыл тег (с параметрами)
2. Добавил инфу
3. Закрыл тег
а так с Count - 3 и подобное можно запутаться или промахнуться.
Немного подправлю, надеюсь автор не против
Код

function InsertData(Teg{имя тега}, Data{слешь, когда нужен}, info{параметры}:String):String;
begin
  Result:=Trim('<' + Teg + ' ' + info) + '>' + Data + '</' + Teg + '>';
end;


Добавлено через 7 минут и 38 секунд
Вот забыл же
Код

s:='';
s:=s + InsertData('Перечень', '', 'ДатаСоставления="02.04.2008" Тип="ИСХОДНЫЙ" СогласованоСПрофсоюзом="1"');
s:=s + InsertData('Предприятие', '', 'РегНомер="130-519-842223" Наименование="ЗАО ОМЗ" Тип="ПРОИЗВОДСТВО"');
s:=s + InsertData('ВидДеятельности', 'СПИСОК-1-2', '');
s:=InsertData('ПеречниЛьготныхПрофессий', s, 'ВерсияФормата="1.6"');
получается 1 длинная строчка, не совсем красиво.


--------------------
"Для того чтобы сделать шаг вперед, достаточно пинка сзади" (с)
PM ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0452 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.