Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
07/12/2011 17:32
Konu Sahibi
aliyuzen
Yorumlar
3
Okunma
1652
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

aliyuzen

Aktif Üye
Aktif Üye
AL.... YÜ....
 Belirtilmemiş
 95
 28
 02/09/2010
0
 İstanbul
 
 Ofis 2013 32 Bit
 06/08/2018,15:18
Çözüldü 
Herkese merhaba,

Ek'te, desteğini bu siteden aldığım bir veritabanı mevcut.
Veritabanını değerli forum üyelerinden biri yazmış.
Ben de aktif olarak bazı projelerimde kullanıyorum.

Ancak, form üzerindeki dataları tarih dahil, bir tabloya aktarmam lazım.
Bunu beceremedim. Yardımlarınızı rica ederim.

Ayrıca, bu veritabanını yazan ve emeği geçen herkese teşekkürler.


Ek Dosyalar
TCMB otomatik kur alma.zip(20.93 KB)
[/color][/size][/font]



Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 41
 11.274
 464
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:40
Çözüldü 
uygulamayı çalıştıramadığım için deneyemedim, kodu aşağıdaki ile değiştir.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Private Sub BtnKurAl_Click()
If ResmiTatil(Me.TxtTarih) = False Then
   MsgBox "Resmi Tatil Günü Seçtiniz." & vbCrLf & _
          "Lütfen tarihi değiştirerek tekrar deneyiniz.", vbInformation, "UYARI !"

   Exit Sub

End If

Me.LstKurlar.RowSource = ""

Me.LstKurlar.AddItem ("DövizCinsi" & ";" & "Orijinal İsim" & ";" & "Alış" & ";" & "Satış")

Dim xmlDoc As MSXML2.DOMDocument50

   Dim DovizListesi As MSXML2.IXMLDOMNodeList

   Dim Dovizler As MSXML2.IXMLDOMNode


   Set xmlDoc = New MSXML2.DOMDocument50

   xmlDoc.async = False

 If Me.TxtTarih < Date Then
      xmlDoc.Load "http://www.tcmb.gov.tr/kurlar/" _
                & Format(Me.TxtTarih, "yyyymm") & "/" _
                & Format(Me.TxtTarih, "ddmmyyyy") & ".xml"
          Else
        
      xmlDoc.Load "http://www.tcmb.gov.tr/kurlar/today.xml"
      
 End If

   Set DovizListesi = xmlDoc.documentElement.selectNodes("Currency")

  On Error GoTo hata
   Dim DovizCinsi, OrjIsim, Alis, Satis As String
   
   '

   For Each Dovizler In DovizListesi
   
      DovizCinsi = Dovizler.selectSingleNode("Isim").Text
      OrjIsim = Dovizler.selectSingleNode("CurrencyName").Text
      Alis = Dovizler.selectSingleNode("ForexBuying").Text
      Satis = Dovizler.selectSingleNode("ForexSelling").Text
      
        Me.LstKurlar.AddItem (DovizCinsi & ";" & OrjIsim & ";" & Alis & ";" & Satis)
        
Dim rs As New ADODB.Recordset
rs.Open "Table1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("Tarih") = Me.TxtTarih
rs("Doviz_Cinsi") = DovizCinsi
rs("Orijinal_Isim") = OrjIsim
rs("Alis") = Alis
rs("Satis") = Satis
rs.Update
Set rs = Nothing
Set Conn = Nothing
        
        
  Next

  Set xmlDoc = Nothing
  
  
  
hata: Exit Sub

End Sub


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

C*e*l*o*y*c*e

Uzman
Uzman
ME.... B.....
 46
 3.137
 67
 29/10/2008
982
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,06:55
Çözüldü 
hocama ek olarak
formumuz içinde bu konu ile ilgili yapılmışlardan örnekler var ,formumuzun arama motorunda aratıp incelerseniz belki faydalı olabilir



Kullanici Avatari

aliyuzen

Aktif Üye
Aktif Üye
AL.... YÜ....
 Belirtilmemiş
 95
 28
 02/09/2010
0
 İstanbul
 
 Ofis 2013 32 Bit
 06/08/2018,15:18
Çözüldü 
sledgeab, merhaba üstadım,

kodu denedim. ancak, listbox a ilk 3 kaydı getiriyor ve tabloya iki satır atıyor... loop ta bir sorun var sanırım. hızlı cevabınız için teşekkürler.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Bağlı Tablo Bilgileri Gösterme Ve Yenileme Hata ielmacilar 3 159 28/08/2018, 23:52
Son Yorum: mehmetdemiral
Çözüldü Tek Bir Formdan 6 Tabloya Veri kursun 8 215 28/08/2018, 13:53
Son Yorum: kursun
Çözüldü Forma Girilen Veriyi İkinci Bir Tabloya Yazdırma Amras 1 147 28/07/2018, 23:31
Son Yorum: Amras
Çözüldü Verileri Tabloya Kayıt Etmek m_demir 5 188 24/07/2018, 14:43
Son Yorum: m_demir
Çözüldü Sorgu Ve Metin Kutusundan Tabloya veri kaydı raburabu 2 184 23/07/2018, 12:18
Son Yorum: raburabu

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.