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

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 1.203 c
14-1096338106
saysu
2004-09-28 06:21
2004.10.17
Multitier technologies versus (Кто выиграет?)


1-1096945516
_Konstantin
2004-10-05 07:05
2004.10.17
Определение платформы.


1-1096882766
pipll
2004-10-04 13:39
2004.10.17
Копирование каталога целиком (с файлами и подкаталогами)


14-1096368443
vecna
2004-09-28 14:47
2004.10.17
в чем смысл


4-1095260152
Alexis
2004-09-15 18:55
2004.10.17
Проблема с ExitProcess( )





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