Başlangıç > Kodlar > VB.NET ile TCMB’den kur çekmek diğer bir alternatif

VB.NET ile TCMB’den kur çekmek diğer bir alternatif


.net versiyonu

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dsDoviz As New DataSet(“Currency”)
Try
Me.ErrorProvider1.SetError(Me.DateTimePicker1, Nothing)
Dim adres As String = “http://www.tcmb.gov.tr/kurlar/”
adres &= Me.DateTimePicker1.Value.ToString(“yyyyMM”) & _
“/” & Me.DateTimePicker1.Value.ToString(“ddMMyyyy”) & “.xml”
Me.StatusBar1.Text = “Veriler aliniyor.”
dsDoviz.ReadXml(adres)
With DataGrid1
.DataSource = dsDoviz
.DataMember = “Currency”
.CaptionText = Me.DateTimePicker1.Value.ToString(“dd-MM-yyyy”) & ” TCMB doviz kurlari listesi”
End With
Me.StatusBar1.Text = “ok”
Catch ex As System.Net.WebException
Me.StatusBar1.Text = “Tarihi degistirip yeniden deneyin.”
Me.ErrorProvider1.SetError(Me.DateTimePicker1, “Secilen tarihteki kur listesine ulasilamadi!”)
Catch ex As Exception
Me.StatusBar1.Text = ex.Message
End Try
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: