Listboxtaki bilgileri tabloya yazmak
Tarih
07/12/2011 17:32
Konu Sahibi
aliyuzen
Yorumlar
3
Okunma
1246
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



aliyuzen
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... Y....
72
02/09/2010
0
İstanbul
Ofis 2013 32 Bit
17/05/2016,12:39
Çö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]
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.023
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,14:25
Çö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

Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Bugün,17:32
Çö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
Cevapla


aliyuzen
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... Y....
72
02/09/2010
0
İstanbul
Ofis 2013 32 Bit
17/05/2016,12:39
Çö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.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Bir tablodaki veri toplamını başka tabloya yazdırma shalala 8 198 15/11/2016, 00:59 shalala
  Access Veritabanında Tablo Şifreleme ve Formdan Tabloya Bağlanma Nasıl Yapılır?? mehami 11 310 09/11/2016, 23:35 mehami
  Formda isim girdiğimde tabloya rakam atıyor 53rize 3 114 04/11/2016, 00:56 ozanakkaya
  Tabloya Eklenen Resmi Formda Gösterme Problemi peter088 2 131 19/10/2016, 20:24 peter088
  Buton ile tabloya tarih eklemek mehmet8x 2 178 08/10/2016, 18:17 mehmet8x


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya