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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

aliyuzen

Aktif Üye
AL.... YÜ....
 Belirtilmemiş
 100
 29
 02/09/2010
0
 İstanbul
 
 Ofis 2013 32 Bit
 18/10/2018,16:27
Çö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

Kurucu
OZ.... AK....
 41
 11.593
 469
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,18:27
Çö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
ME.... B.....
 46
 3.167
 67
 29/10/2008
982
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,23:26
Çö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
AL.... YÜ....
 Belirtilmemiş
 100
 29
 02/09/2010
0
 İstanbul
 
 Ofis 2013 32 Bit
 18/10/2018,16:27
Çö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ü Web Üzerinde Tabloya Veri Aktarma Hk. serkan1985 4 118 15/11/2018, 09:55
Son Yorum: serkan1985
Çözüldü Formdan Tabloya Kayıt Yaparken,,silerken Makro Yerine Vba Kodları Kullanımı Oğuz Türkyılmaz 12 426 13/10/2018, 11:35
Son Yorum: Oğuz Türkyılmaz
Çözüldü Bağlı Tablo Bilgileri Gösterme Ve Yenileme Hata ielmacilar 3 219 28/08/2018, 23:52
Son Yorum: mehmetdemiral
Çözüldü Tek Bir Formdan 6 Tabloya Veri kursun 8 311 28/08/2018, 13:53
Son Yorum: kursun
Çözüldü Forma Girilen Veriyi İkinci Bir Tabloya Yazdırma Amras 1 216 28/07/2018, 23:31
Son Yorum: Amras

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