Tüm Platformlar için Hızlı Uygulama Geliştirme Kitap Yayın Süreci
Kitap gözden geçirilmek üzere BTG (Bilgi ve Teknoloji Grubu) 'na gönderildi. 05.10.2018-14:10
BTG (Bilgi ve Teknoloji Grubu) tarafından iki sayfalık bir reklam tasarımı bekleniyor. 08.10.2018 - 15:30

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
DataSet To XML
#1
Daha önce Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol 'e aktarmıştım şimdi DBGrid'i XML'e aktarmam gerekti yapmışken buraya da atayım dedim. İhtiyacı olan kullansın, var ise hatam veya daha kolay yolu yordamı yorum ile bildirirseniz sevinirim.

Var
 XML : IXMLDOCUMENT;
 PolisoftXMLExport,TabloName,Field:IXMLNODE;
 i,a:integer;
begin
  if  Data.IsEmpty then
  begin
    ShowMessage('DataSet is not null');
    Exit;
  end;
 XML := NewXMLDocument;
 XML.Encoding  := 'utf-8';
 XML.Options   := [doNodeAutoIndent];
 PolisoftXMLExport      := XML.AddChild('PolisoftXMLExport');
  for I := 1 to Data.RecordCount do
    begin
      TabloName := PolisoftXMLExport.AddChild('Police',i);
       Data.First;
       for a := 1 to Data.FieldCount do
         begin
            Field := TabloName.AddChild(Data.Fields[a-1].FieldName,0);
                 Field.Text := Data.Fields[a-1].AsString;
         end;
    end;
 XMl.SaveToFile(Path);
 ShellExecute(HANDLE_FLAG_INHERIT,'open',PAnsiChar(Path),nil,nil,SW_HIDE); 

end 






7qyQ45.png
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#2
Merhaba,
Paylaşım için teşekkür ederiz. 
Üzerinde çalıştığınız uygulama, herkesin işine yarayabilecek faydalı bir araç gibi görünüyor. Smile
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#3
SELECT dbms_xmlgen.getxmltype('select first_name, last_name, phone_number, email from employees where employee_id in (100,101)')

FROM dual;

PL/SQL ile bu şekilde bir kullanım mevcut. Ama diğerlerinde çalışırmı bilemiyorum.
Cevapla
#4
(31-03-2017, Saat: 14:25)AhmetBi Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
SELECT dbms_xmlgen.getxmltype('select first_name, last_name, phone_number, email from employees where employee_id in (100,101)')

FROM dual;

PL/SQL ile bu şekilde bir kullanım mevcut. Ama diğerlerinde çalışırmı bilemiyorum.

Malesef çalışmaz  Wink
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  DataSet To Json yhackup 3 457 22-12-2017, Saat: 19:44
Son Yorum: yhackup
  Dataset Out Of Memory Hatası? delphi-x 2 501 02-11-2017, Saat: 00:16
Son Yorum: delphi-x
  Dataset Swap Row (Çözüldü) uparlayan 11 1.388 07-07-2017, Saat: 20:13
Son Yorum: cengaver
  ado dataset eof veya bof hakkında cinarbil 3 967 11-05-2017, Saat: 16:24
Son Yorum: mcuyan
  cachedupdates true dataset en sorgulama masteryoda 2 674 04-05-2017, Saat: 18:11
Son Yorum: masteryoda



Konuyu Okuyanlar: 1 Ziyaretçi