Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

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

« önceki sonraki »
Sayfa: [1] 2  Hepsi   Aşağı git

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
XML Dosyasından Veritabanına bilgi girerken sonsuz döngüye girme sorunu
« : 17 Ocak 2012 00:40:21 »
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 »
Kayıtlı
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
Ynt: XML Dosyasından Veritabanına bilgi girerken sonsuz döngüye girme sorunu
« Yanıtla #1 : 17 Ocak 2012 09:11:30 »
hocam konuyla ilgili bilgim yok ama repeat until dışında while not eof  olmuyor mu?
Kayıtlı
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
Ynt: XML Dosyasından Veritabanına bilgi girerken sonsuz döngüye girme sorunu
« Yanıtla #2 : 17 Ocak 2012 09:17:30 »
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.
Kayıtlı
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
Ynt: XML Dosyasından Veritabanına bilgi girerken sonsuz döngüye girme sorunu
« Yanıtla #3 : 17 Ocak 2012 09:23:20 »
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;
Kayıtlı
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
Ynt: XML Dosyasından Veritabanına bilgi girerken sonsuz döngüye girme sorunu
« Yanıtla #4 : 17 Ocak 2012 10:58:31 »
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
Kayıtlı
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
Ynt: XML Dosyasından Veritabanına bilgi girerken sonsuz döngüye girme sorunu
« Yanıtla #5 : 17 Ocak 2012 10:59:43 »
Alıntı yapılan: sheshman - 17 Ocak 2012 10:58:31
Kendine Not: Rakı içerken program yazma :D
Hayır, Program yazarken rakı içme :)
Kayıtlı
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
Ynt: XML Dosyasından Veritabanına bilgi girerken sonsuz döngüye girme sorunu
« Yanıtla #6 : 17 Ocak 2012 11:05:50 »
Gerçi ben içmenin hayalini kuruyodum ama o bile yetti :D ALKOLİK HAREKET ENGELLENEMEZ :D
Kayıtlı
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
Ynt: XML Dosyasından Veritabanına bilgi girerken sonsuz döngüye girme sorunu
« Yanıtla #7 : 17 Ocak 2012 11:05:50 »
Alıntı yapılan: cakirr42 - 17 Ocak 2012 10:59:43
Alıntı yapılan: sheshman - 17 Ocak 2012 10:58:31
Kendine Not: Rakı içerken program yazma :D
Hayır, Program yazarken rakı içme :)

rakı her turlu gider :D
Kayıtlı
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
Ynt: XML Dosyasından Veritabanına bilgi girerken sonsuz döngüye girme sorunu
« Yanıtla #8 : 17 Ocak 2012 11:07:07 »
Ben su içiyorum daha sağlıklı :D :D :D
SU HAYATTIR HAYAT GÜZEEEL :D
Kayıtlı
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
Ynt: XML Dosyasından Veritabanına bilgi girerken sonsuz döngüye girme sorunu
« Yanıtla #9 : 17 Ocak 2012 11:08:50 »
tabi katılıyorum rakı sek içilmez zaten su katıcanki ab-u hayat olsun :D
Kayıtlı
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
Ynt: XML Dosyasından Veritabanına bilgi girerken sonsuz döngüye girme sorunu
« Yanıtla #10 : 17 Ocak 2012 11:09:32 »
Alıntı yapılan: tawer1 - 17 Ocak 2012 11:08:50
tabi katılıyorum rakı sek içilmez zaten su katıcanki ab-u hayat olsun :D
:)
Kayıtlı
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
Ynt: XML Dosyasından Veritabanına bilgi girerken sonsuz döngüye girme sorunu
« Yanıtla #11 : 17 Ocak 2012 11:13:27 »
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 »
Kayıtlı
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
Ynt: XML Dosyasından Veritabanına bilgi girerken sonsuz döngüye girme sorunu
« Yanıtla #12 : 17 Ocak 2012 11:14:14 »
ne diyon sen yaa zaten içmişin belli :D :D
Kayıtlı
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
Ynt: XML Dosyasından Veritabanına bilgi girerken sonsuz döngüye girme sorunu
« Yanıtla #13 : 17 Ocak 2012 11:17:14 »
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 :)
Kayıtlı
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
Ynt: XML Dosyasından Veritabanına bilgi girerken sonsuz döngüye girme sorunu
« Yanıtla #14 : 17 Ocak 2012 11:18:26 »
:D :D bilseydim msn açardım gece yatmadım çalıştım :D
Kayıtlı
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"
Sayfa: [1] 2  Hepsi   Yukarı git
« önceki sonraki »