Скачать: CL | DM;

XML для запихивания данных в таблицы....   Найти похожие ветки 

← →
Алексей   (2004-09-20 09:35) [0]

Возник вопросик: а можно ли каким либо образом сделать следующий финт ушами:

1. Получить данные запросом select.
qM.Close; qM.SQL.Clear; qM.SQL.Add("select kod,kolvo from reg");
qM.Open;
2. Сохранить его результат в XML.
qM.SaveToFile("c:\temp1.xml",pfXML);
3. Открыть таблицу.
tMyTable.Open;
4. Загрузить в таблицу из файла
tMyTable.LoadFrom File("c:\temp1.xml");
5. Наслаждаться наличием данных в таблице.

Используются компоненты ADO.
Такой изврат из-за того, что читаю из таблиц Fox, а записываю в таблицы dBase.

---

← →
Deniz ©   (2004-09-20 09:47) [1]

Можно!
Работать с XML хорошо умеет TClientDataSet.

---

← →
Алексей   (2004-09-20 12:16) [2]

Подробнее, плиз.
Делаю так:

  q1.Open;
  ClientDataSet1.Active:=true;
  ClientDataSet1.SaveToFile("c:\1234.xml",dfXML);
  ClientDataSet1.Close;
  t1.open;
  ClientDataSet2.Active:=true;
  ClientDataSet2.LoadFromFile("c:\1234.xml");
  ClientDataSet2.ApplyUpdates(-1);

ClientDataSet2 вяжу с t1 через DataSetProvider2
ClientDataSet1 вяжу с q1 через DataSetProvider1
q1.SQL:="select kod,kolvo from reg"
Структура таблицы к которой вяжется t1:
kod numeric(6,0)
kolvo numeric(12,2)

Поля в таблице reg имеют тотже самый тип....

---

← →
Deniz ©   (2004-09-20 13:38) [3]

Так тебе просто перекачать данные надо или ...?
ApplyUpdates не пройдет, потому как небыло изменений.

---

← →
Алексей   (2004-09-20 14:25) [4]

А как ?

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c