Menampilkan Nilai Kurs BI Ke Ms Access

 Menampilkan Nilai Kurs BI Ke Ms Access - Untuk menampilkan nilai kurs Bank Indonesia (BI) di database Microsoft Access, Anda dapat menggunakan Visual Basic for Applications (VBA) dan API (Application Programming Interface) yang disediakan oleh BI. Berikut ini adalah langkah-langkah yang dapat Anda ikuti:

1. Buka database Microsoft Access yang ingin Anda gunakan.
2. Buka VBA dengan cara menekan tombol Alt + F11 atau dengan memilih menu Database Tools -> Visual Basic.
3. Pada jendela VBA, buat sebuah modul baru dengan cara memilih menu Insert -> Module.
4. Pada modul yang baru saja dibuat, tambahkan kode berikut untuk mengirim permintaan ke API dan menangkap respons:

' Buat objek XMLHTTP

Dim http As New MSXML2.XMLHTTP

' Kirim permintaan ke API Kurs BI

http.Open "GET", "https://www.bi.go.id/id/moneter/informasi-kurs/transaksi-bi/Default.aspx", False

http.Send

' Dapatkan respons dari API

Dim respons As String

respons = http.ResponseText

' Hapus objek XMLHTTP

Set http = Nothing

' Buat objek HTMLDocument

Dim doc As New HTMLDocument

' Muat respons ke dalam objek HTMLDocument

doc.body.innerHTML = respons

' Dapatkan nilai kurs dari tabel

Dim kurs As String

kurs = doc.getElementsByClassName("table-kurs").Item(0).innerText

' Tampilkan nilai kurs di kolom A1

me.value_kurs = kurs

Sekian Terimakasih

Tweet

Subscribe to receive free email updates: