herkese merhaba;
elimde bir program var ve tcmb doviz kurlarını alıyor. çalışma stabil olarak çalışıyor kimin paylaştığını hatırlamıyorum temmuz gibi arşivime çekmiştim işime yarar diye eğer aramızdan biriyse burdan kendisine çok teşekkürler.
benim yapmak istediğim forma eklemiş olduğum kaydet butonuna tıklayınca verileri tarihe göre tabloya kaydetmesi daha sonrada bundan yararlanarak rapor oluşturmayı düşünüyorum. muhasebede çalıştığım için her ay kurlar lazım oluyor tek tek siteden alıp yazmakta uzun sürüyor bununla daha hızlı yapacağımı düşünoyrum.
yardımlarınız için şimdiden teşekkürler
[
attachment=23407]
sayın ustaoglu,
bahsettiğiniz talebinize yönelik olarak,site genelinde çeşitli içeriklerde benzer nitelikte konular mevcut.
aşağıda bir örnek yer almakta.bilginize.
Web Üzerinden Döviz Kuru Sorgula
iyi çalışmalar,saygılar.
(08/09/2015, 16:11)atoz112 yazdı: sayın ustaoglu,
bahsettiğiniz talebinize yönelik olarak,site genelinde çeşitli içeriklerde benzer nitelikte konular mevcut.
iyi çalışmalar,saygılar.
sayın atoz112
cevabınız için çok teşekkür ederim. ancak örnek olarak göstermiş olduğunuz kodu incelediğimde malesef bir şey anlayamadım. Kuru nasıl aldığını ve tabloya kaydettiğini benim örnek olarak eklediğim dosyanın mantığını anlamıştım ve hangi birimleri alacağını dahi değiştirdim ancak tabloya aktarma işini yapamadım bunu nasıl yapabilirim ?
ilgili kod nasıl olmalı bunu uygulamalı olarak göstere bilirseniz veya kodun mantığını yazarsanız çok sevinirim
şimdiden teşekkürler
Sayın ustaoglu,
Bağlantısı verilen konunun 1.mesajındaki örnek uygulamada;sayın ozan bey,Merkez Bankası xml sayfasından tüm kurların alınarak ilgili tabloya aktarılmasını sağlamaktadır.
DovizGetir adlı fonksiyonu incelediğinizde bu daha net görülecektir.
Kod:
...For Each Dovizler In DovizListesi
Dim rs As New ADODB.Recordset
rs.Open "tbl_kurlistesi", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("ParaBirimi") = Dovizler.SelectSingleNode("Isim").Text
rs("KurTarihi") = SorguTarihi
rs("DovizAlis") = Replace(Dovizler.SelectSingleNode("ForexBuying").Text, ".", ",")
rs("DovizSatis") = Replace(Dovizler.SelectSingleNode("ForexSelling").Text, ".", ",")
rs("EfektifAlis") = Replace(Dovizler.SelectSingleNode("BanknoteBuying").Text, ".", ",")
rs("EfektifSatis") = Replace(Dovizler.SelectSingleNode("BanknoteSelling").Text, ".", ",")
rs.Update
Set rs = Nothing
If Dovizler.SelectSingleNode("Isim").Text = "PAKİSTAN RUPİSİ" Then
Exit For
End If
Next
...
kodları ile tabloya kaydedilmesi işlemi gerçekleşmektedir.
İlgili konunun 20.mesajında eklenen örnek uygulama ise,sayın larion bey’in 18.mesajdaki talebi doğrultusunda düzenlenmiş olan uygulamayı içermektedir.bu örnekte de,sadece dolar ve euro değerlerinin alınması sağlanmıştır.
Sonuçta,sizin eklediğiniz örnekte anladığınızı beyan ettiğiniz işleyiş ile bu örnek konudakiler arasında fark yok,işleyiş açısından kast edilmiştir.
Bilginize…iyi çalışmalar,saygılar.
sayın ustaoglu,
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
NOT:
eklediğiniz örnek uygulama üzerinde;
daha verimli bir kullanım içermesi için,uygun görülen değişiklikler ve düzenlemeler yapılmıştır.bilginize.
iyi çalışmalar,
saygılar.
(08/09/2015, 19:57)atoz112 yazdı: sayın ustaoglu,
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
NOT:
eklediğiniz örnek uygulama üzerinde;
saygılar.
Sayın atoz112;
cevabınız ve göstermiş olduğunuz örnekler için çok teşekkür ederim. örneğimde yaptığınız düzenleme içinde teşekkürler.