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