Listboxtaki bilgileri tabloya yazmak
Tarih
07/12/2011 17:32
Konu Sahibi
aliyuzen
Yorumlar
3
Okunma
1272
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
03/01/2017,17:00
Çözüldü 
Sponsor Reklam
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.177
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,02:52
Çö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.836
29/10/2008
902
Ankara
Ofis 2010 32 Bit
Çözüldü 
Sponsor Reklam
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
03/01/2017,17:00
Çö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
  Listedeki tüm kayıtları tabloya ekleme nightashes 2 88 01/01/2017, 11:54 nightashes
  FORMDA BULUNAN VERİYİ TABLOYA KOPYALAMA fatihkara 12 329 21/12/2016, 18:32 fatihkara
  Tablodan başka Tabloya ilişki Kurma 53rize 2 128 21/12/2016, 13:01 53rize
  Tabloya eklerken aynı kayıt varsa eklenmemesi. nightashes 4 125 18/12/2016, 18:09 nightashes
  Harita da Seçilen Checkbox ile Tabloya Kayıt sadikkavakli 2 130 10/12/2016, 15:42 sadikkavakli


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