| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
XML для запихивания данных в таблицы.... [D6, dBase, FoxPro]
Алексей © (2004-09-20 09:35:00)Возник вопросик: а можно ли каким либо образом сделать следующий финт ушами:
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.
Алексей (2004-09-20 14:25:00) [1]А как ?
Deniz (2004-09-20 13:38:00) [2]Так тебе просто перекачать данные надо или ...?
ApplyUpdates не пройдет, потому как небыло изменений.
Алексей (2004-09-20 12:16:00) [3]Подробнее, плиз.
Делаю так:
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 09:47:00) [4]Можно!
Работать с XML хорошо умеет TClientDataSet.
| |
