Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.17;
Скачать: 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 вся ветка

Текущий архив: 2004.10.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.043 c
14-1096265624
TUser
2004-09-27 10:13
2004.10.17
Нейронные сети


11-1080335740
nester
2004-03-27 00:15
2004.10.17
Почему не работают события popupmenu в trayicon


1-1096707265
zStas
2004-10-02 12:54
2004.10.17
idBase64Encoder


3-1095452204
BigError
2004-09-18 00:16
2004.10.17
Запуск двух MySQL под Windows XP.


3-1095427841
denis24
2004-09-17 17:30
2004.10.17
*.gdb