TUGAS VB2 MANIPULASI DATA

Tugas VB 2 Koneksi dengan Database 

Pada blog ini saya akan membuat aplikasi untuk sebuah koperasi simpan pinjam,

Seperti biasa pada saat pembuatan aplikasi kita harus membuat project baru terlebih dahulu yang terlihat pada gambar berikut ini:

Kemudian pada windows form1 saya membuat form untuk login bagi nasabah bank atau peminjam untuk melakukan LogIn pada form ini. Username dan Password pada saat memasuki office atau pada saat menunggu antrian untuk melakukan peminjaman pada perusahaan misalnya:

Source Code untuk Button OK

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "diva" Then
            If TextBox2.Text = "12345" Then
                MainForm.Show()
            Else
                MessageBox.Show("ID atau Password anda salah. Silahkan ulang kembali!")
            End If
        Else
            MessageBox.Show("ID atau Password anda salah. Silahkan ulang kembali!")
        End If
    End Sub
End Class

Sebelum membuat aplikasi pada visual studio saya membuat database yang berjudul DataPinjaman, database tersebut dibuat untuk mengetahui segala yang berhubungan dengan pinjaman pada perusahaan yang memfasilitasi pinjaman yang saya buat ini.

Berikut ini adalah gambar Table yang saya buat untuk para anggota dapat mengetahui tentang jenis pinjaman, besarnya pinjaman, bunga pijaman, danangsuran yang dibayar setiap bulannya.

Berikutnya adalah gambar database table datapeminjaman yang saya buat bagi para peminjam mengisi data ini agar terlihat berapa periode pembayaran pinjaman yang sudah dilakukan :

Query Design ini menghubungkan untuk keterkaitan antara tablekelaspeminjaman dan TableDataPinjaman, klik Query Design, klik Table kedua tulisan table tersebut untuk menghubungkan kedua data tersebut:

Untuk mengkoneksian antara aplikasi yang kita buat dengan database caranya sebagai berikut:

-          Klik datasource yang terletak disebah kiri dan dibawahToolbox

Muncul dialog dan pilih database kemudian klik database hingga Finish maka  database sudah terkoneksi denagn program.

Ketika sudh terkoneksi maka drag datasource yang sudah di koneksikan tadi pada form yang ditambahkan sehingga muncul tampilan sebagai beriku:

1.      Table Kelas Peminjaman

Source code nya yaitu :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\diva\Database1.accdb"

        Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)

        objekKoneksi.Open()

        Dim tambah As String = "INSERT INTO datapeminjam values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"

        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)

        oCmd.ExecuteNonQuery()

        MsgBox("SUKSES")

        objekKoneksi.Close()

    End Sub

End Class

Jika di klik save maka akan muncul seperti ini :

2.      Table Data Peminjaman

Source code nya masih sama seperti diatas yaitu :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\diva\Database1.accdb"

        Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)

        objekKoneksi.Open()

        Dim tambah As String = "INSERT INTO datapeminjam values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"

        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)

        oCmd.ExecuteNonQuery()

        MsgBox("SUKSES")

        objekKoneksi.Close()

    End Sub

End Class

Jika di klik save maka akan muncul seperti ini :

 

Demikian tugas Vb2 ini semoga bermanfaat:) TERIMAKASIH