Delphi Dünyası Facebook'ta

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

Gönderen Konu: XML Dosyasından Veritabanına bilgi girerken sonsuz döngüye girme sorunu  (Okunma sayısı 486 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
Arkadaşlar Selam,

aşağıdaki kod ile xml dosyasından bilgi çekip veritabanına eklerken sonsuz döngüye giriyor,çözemedim.

Kod:  (Unknown Language)
  1. var
  2.     StartItemNode : IXMLNode;
  3.     ANode : IXMLNode;
  4.     kimlik, aciklama, adres : WideString;
  5. begin
  6. XMLDoc.FileName := 'http://localhost/LM/xml_cevirme.php';
  7. XMLDoc.Active:=True;
  8. StartItemNode := XMLDoc.DocumentElement.ChildNodes.First.ChildNodes.FindNode('bilgi') ;
  9. ANode := StartItemNode;
  10. repeat
  11. kimlik:= ANode.ChildNodes['kimlik'].Text;
  12. aciklama:= ANode.ChildNodes['aciklama'].Text;
  13. adres:= ANode.ChildNodes['adres'].Text;
  14. with adoquery1 do
  15. begin
  16.   Insert;
  17.   FieldByName('kod').AsString:=kimlik;
  18.   FieldByName('aciklama').AsString:=aciklama;
  19.   FieldByName('adres').AsString:=adres;
  20.   Post;
  21. end;
  22. until ANode = nil;
  23. end;
  24.  

hazır böyle birşey bulmuşken deneyeyim dedim,access 27200 kayıtta 97 MB oldu :D
« Son Düzenleme: 17 Ocak 2012 08:49:01 by sheshman »
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı tawer1

  • Delphi 7 Level 4
  • ****
  • İleti: 333
  • Rep: +0/-0
  • Cinsiyet: Bay
hocam konuyla ilgili bilgim yok ama repeat until dışında while not eof  olmuyor mu?
Seo yapılandırma servisi

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
bu şekilde çalışıyor, örneğin bir listbox veya memo koyduğumda sorunsuz kaydın başından sonuna verileri yazıyor ama direk db ye kaydetmek için araya kod eklediğimde döngüye giriyor.
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı cakirr42

  • Administrator
  • *****
  • İleti: 1.069
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • Ahmet Kürşat ÇAKIR
  • Delphi Sürümü: XE, XE2
sorun şurda:

her seferinde bir sonraki veriye atlaman gerekli bunuda şöyle yaparsın;
until ANode = nil; satırının bi üst satırına;
      ANode := ANode.NextSibling;
eklersen sorun çözülecektir. ayrıca repeat until kullanımında boş xml de access violation tarzı bi hata alabilirsin.
bu yüzden aşağıda while yapısını kullanmalısın :) Kolay Gelsin...
while assigned(ANode) do
  begin


  end;
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
gecenin 2 sinde kodlarken bir şekilde

Kod:  (Unknown Language)
  1. ANode := ANode.NextSibling;
  2.  

satırını silmişim :D -- Kendine Not: Rakı içerken program yazma :D
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı cakirr42

  • Administrator
  • *****
  • İleti: 1.069
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • Ahmet Kürşat ÇAKIR
  • Delphi Sürümü: XE, XE2
Kendine Not: Rakı içerken program yazma :D
Hayır, Program yazarken rakı içme :)
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
Gerçi ben içmenin hayalini kuruyodum ama o bile yetti :D ALKOLİK HAREKET ENGELLENEMEZ :D
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı tawer1

  • Delphi 7 Level 4
  • ****
  • İleti: 333
  • Rep: +0/-0
  • Cinsiyet: Bay
Kendine Not: Rakı içerken program yazma :D
Hayır, Program yazarken rakı içme :)

rakı her turlu gider :D
Seo yapılandırma servisi

Çevrimdışı cakirr42

  • Administrator
  • *****
  • İleti: 1.069
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • Ahmet Kürşat ÇAKIR
  • Delphi Sürümü: XE, XE2
Ben su içiyorum daha sağlıklı :D :D :D
SU HAYATTIR HAYAT GÜZEEEL :D
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"

Çevrimdışı tawer1

  • Delphi 7 Level 4
  • ****
  • İleti: 333
  • Rep: +0/-0
  • Cinsiyet: Bay
tabi katılıyorum rakı sek içilmez zaten su katıcanki ab-u hayat olsun :D
Seo yapılandırma servisi

Çevrimdışı cakirr42

  • Administrator
  • *****
  • İleti: 1.069
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • Ahmet Kürşat ÇAKIR
  • Delphi Sürümü: XE, XE2
tabi katılıyorum rakı sek içilmez zaten su katıcanki ab-u hayat olsun :D
:)
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
oğlum aklıma girmeyin sabah sabah :D 35'lik ne ki meyhaneci 70 lik getir :)
« Son Düzenleme: 17 Ocak 2012 11:14:13 by sheshman »
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı cakirr42

  • Administrator
  • *****
  • İleti: 1.069
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • Ahmet Kürşat ÇAKIR
  • Delphi Sürümü: XE, XE2
ne diyon sen yaa zaten içmişin belli :D :D
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
yahu yok içmedim ama akşam içmek istedim, bir ara sana baktım yoktun sorucaktım sonra saate baktım 2 olmuş dedim içinden çıkamıyorum foruma yazıyım belki birileri uğraşmıştır daha önce :) Kısmetse bu akşam Rakı Şalgam :)
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı cakirr42

  • Administrator
  • *****
  • İleti: 1.069
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • Ahmet Kürşat ÇAKIR
  • Delphi Sürümü: XE, XE2
:D :D bilseydim msn açardım gece yatmadım çalıştım :D
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"