TCMB Döviz Kurlarını Verilen Tarih İle Veritabanına Almak

[sadikkavakli]

Değerli Üstadlar,

Merkez Bankasındaki günlük kurları alabiliyorum. Fakat Geçmiş Tarihlerdeki döviz kurlarını alıp veri tabanına yazmak istiyorum çalışmalarım oldu fakat başaramadım.
Günlük kurlar code bölümünde veriyorum. sizden ricam verilen tarihdeki kurların veritabanımda bulundurulmasıdır.

Saygıarımla.

Not: Konu ile ilgili olmayan cevaplar verilmemesini rica ediyorum.

Kod: Tümünü seç

var i:integer;
begin
   if kontrol=0 then
   begin
      XMLDocument1.Active:=false;
      XMLDocument1.FileName:='http://www.tcmb.gov.tr/kurlar/today.xml';
      XMLDocument1.Active:=true;
   end;
   i:=1;
   baslangic:=XMLDocument1.DocumentElement.ChildNodes .FindNode('Currency');
   repeat
      isim:=baslangic.ChildNodes.Nodes['Isim'].Text;
      alis:=baslangic.ChildNodes.Nodes['ForexBuying'].Text;
      satis:=baslangic.ChildNodes.Nodes['ForexSelling'].Text;
      balis:=baslangic.ChildNodes.Nodes['BanknoteBuying'].Text;
      bsatis:=baslangic.ChildNodes.Nodes['BanknoteSelling'].Text;
      euro:=baslangic.ChildNodes.Nodes['CrossRateEuro'].Text;
      StringGrid1.Cells[0,i]:=isim;
      StringGrid1.Cells[1,i]:=alis;
      StringGrid1.Cells[2,i]:=satis;
      StringGrid1.Cells[3,i]:=balis;
      StringGrid1.Cells[4,i]:=bsatis;
      StringGrid1.Cells[5,i]:=euro;
      i:=i+1;
      baslangic:=baslangic.NextSibling;
   Until baslangic=nil;

end;

[xozcanx]

Merhaba;

http://evds.tcmb.gov.tr/cgi-bin/famecgi ... dovizgn.db linkini incelerseniz buradan istediğiniz döviz kurlarını istediğiniz tarih aralığında CSV olarak alabilirsiniz.
öncelikle tarih aralığını seçin daha sonra hangi kurları almak istiyorsanız alış,satış daha sonra Kaydet .CSV derseniz tüm geçmiş kayıtları almış olursunuz. gerisi import zaten

Kolay gelsin.

[sadikkavakli]

Sayın xozcanx,

Cevabınız için teşekkür ederim.

Aşağıdaki excel örnek çalışmayı Delphi mantığına nasıl çevirebiliriz.

[xozcanx]

Merhaba;
Delphi mantığına derken delphiye aktarmaktan mı bahsediyorsunuz acaba?

Eğer bundan bahsediyorsanız http://www.dosya.tc/server29/guW0KS/KUR ... I.zip.html burada bir örnek var bir bakın.

Kolay Gelsin,

[sadikkavakli]

Sayın xozcanx,

Cevabınız için çok teşekkür ederim.

Delphi ile datetimepict.(Edit e tarih girilerek de olabilir) ile tarih verilince Merkez bankasındaki o tarihe ait olan kur bilgilerini Forma yazması ve daha sonra kaydet butonu ile tarihe göre access datasında tutmasını sağlamam gerekiyor.( Access datasında kaydedilen her günün kur bilgisi olmalı)
Saygılarımla.

Aşağıdaki hata mesajı vermektedir.



[Fatal Error] KUR.dpr(5): File not found: 'Vcl.Forms.dcu'

[xozcanx]

Merhaba,
Daha onceki mesajda soyledigim islemi yaptiysaniz eger yani merkez bankasindan eski datalari csv olarak cektiyseniz bunlari acces veritabaniniza aktarabilir bundan sonrakileri ise gunluk kurlari ilk mesajinizda belirttiginiz gibi cekebilir veritabanina yazabilirsiniz, arama kodu ile ilgili bilgi istiyorsaniz bunu adoquery sayesinde SQL komutu ile hizli birsekilde ekrana getirebilirsiniz. Kendiniz bir deyin eger basarili olamaz iseniz aksam bir ornek uygulama hazirlayip paylasirim.
Kolay gelsin.

[sadikkavakli]

Sayın xozcanx

Size de zahmet olacak ama yardımcı olabilirseniz çok sevinirim. Acemilik çok kötü bir şey.

Saygılarımla.

[xozcanx]

Merhaba;
Dün Akşam gönderecektim bir işim çıktı gönderemedim az önce aklıma geldi, ekte örnek var incelersiniz.
verdiği hata ise delphi sürümünden kaynaklı,

[sadikkavakli]

Sayın xozcanx,

çok teşekkür ederim. Elinize sağlık

Hakkınız helal ediniz.

[xozcanx]

Helal olsun, ne demek,
Burası bilgi paylaşım formu, bildiğimiz bir şeyi paylaşmaz isek, hep bana mantığı ile hareket edersek ülke olarak ilerlemek yerine gerileriz.
İyi çalışmalar,
Başarıla.