Listboxtaki bilgileri tabloya yazmak

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

[/color][/size][/font]

uygulamayı çalıştıramadığım için deneyemedim, kodu aşağıdaki ile değiştir.

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

hocama ek olarak
formumuz içinde bu konu ile ilgili yapılmışlardan örnekler var ,formumuzun arama motorunda aratıp incelerseniz belki faydalı olabilir

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.