veriyi tabloya aktarma

08/09/2015, 13:18

emir ustaoğlu

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]
08/09/2015, 16:11

atoz112

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:34

emir ustaoğlu

(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
08/09/2015, 17:15

atoz112

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.
08/09/2015, 19:57

atoz112

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.
09/09/2015, 17:51

emir ustaoğlu

(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.