tableden xml olarak import / export sorunu

[Metinx]

Merhaba arkadaşlar bu forumda ilk mesajım yeni üye olma fırsatı buldum.
benim sorunum f.b databaseden xml olarak veri çıkartıyorum ama bunu başka bir tableye alamıyorum kodlarım aşağıdaki gibi yardımcımolursanız sevinirim.

Oluşturmak için

Kod: Tümünü seç

with DbtoXML1 do
begin
 XMLOlustur;
end;

okumak için

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var i:Integer; Alan:TField;
begin

  ClientDataSet1.First;
  while not ClientDataSet1.Eof do begin
    IBDataSet1.Append;
    for i:=0 to IBDataSet1.FieldCount-1 do begin
      Alan:=ClientDataSet1.FindField(IBDataSet1.Fields[i].FieldName);
      if Assigned(Alan) then IBDataSet1.Fields[i].Assign(Alan);
    end;
    IBDataSet1.Post;
    ClientDataSet1.Next;
  end;
end;



end.

kullanıyorum ama invalid argument diye bir hata veriyor.
saygılarımla..

[ikutluay]

dbtoxml diye bir komut varmı standart delphide... yoksa componentmi kudunuz.

ben smimport ve sm export kullanmanızı öneririm ancak ucretlidir

[Metinx]

compenent yine bu siteden üstadlardan edindiğinm bir bileşendir. ( Bu arada o üstadtan özür diliyorum ismini hatırlayamadım)

bu arada projem için bu şart yardımcı olabilecek arkadaşlara şimdiden tşk ederim.

[Metinx]

Arkadaşlar yardımcı olacak bir arkadaş yokmu. lütfen sorunumu çözmemde bana yardımcı olun...

[aslangeri]

s.a.
hatayı derlerken mi alıyorsunuz yoksa çalışırken mi?
hatayı verdiği satırı tespit edin...
ona göre çözüm önerileri gelebilir.
eğer çalışırken veriyorsa yukardakilere ek olarak
tablolarının yapısını ve oluşan xml dosyasını da gönder. Onlarıda kontrol etmek lazım...
kolay gelsin.

[Metinx]

aslangeri ilgin için tşk. ederim tableden yukarıdaki şekilde dışarıya bilgi aktarabiliyorum ama mevcut proğramımdaki firebird vt me mesela satış detay tablom var 3 ürün girilmiş 4 üründe xmlde var import ettiğim zaman 7 ürün olacak durum bu ilgilerinize...