AccessTr.neT

Tam Versiyon: Listboxtaki bilgileri tabloya yazmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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]
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.