Visual Basic2

Kita akan membuat Visual Basic dengan mengakses ke Ms. Access, mari lihat langkah-langkah berikut ini:

Pertama kita isikan data-data untuk Ms.Accessnya, seperti gambar dibawah ini;

Ini tampilan setelah data-datanya terisi

Lalu tampilkan bagian dari tabel jenis tersebut

Setelah ini kita masuk ke Visual Basicnya, lihat langkah-langkah berikut ini;

1.  Buat Mdi.Parentnya
2. Buat Form loginnya juga
3.  Untuk Data sourcenya yaitu dengan mengklik Data, lalu Add New Data Source (ikuti step-step yang ada di perintah tersebut)
4.  Lalu buat Form1 (Di sebelah kiri ada WindowsApplications1, Klik kanan, Add, WindowsForm) akan muncul form1
5. Buat designnya

• Di Button 1 (ADD), lalu tulis kodingnya
• Di Button 2 (EDIT), tulis kodingnya
• Di Button 3 (DEL), tulis kodingnya
• Di Button 4 (SAVE), tulis kodingnya
• Ada GroupBoxnya (Terdiri dari Jenis-jenis komik)
• Masukan juga Label dan TextBox
• Data GridView juga, untuk memunculkan  penyewaan komik
• Terakhir yaitu buat reportnya

Ini kodingnya;
 Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Dim x As New MDIParent1

        If UsernameTextBox.Text = "Harba" And PasswordTextBox.Text = "1234" Then
            x.Show()
        Else
            MsgBox("Maaf anda salah memasukan username atau pasword, mohon agar menghubungi bagian administrasi")

        End If

    End Sub

Ini Koding untuk Add, Save, Delete Dan Edit

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TPenyewaanBindingSource.AddNew()
        Jenis_KomikTextBox1.Focus()
        Button1.Visible = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TPenyewaanBindingSource.EndEdit()
        Me.TPenyewaanTableAdapter.Update(Me.Penyewaan_KomikDataSet.TPenyewaan)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TPenyewaanTableAdapter.Delete(Jenis_KomikTextBox.Text, GenreTextBox.Text, Jumlah_yang_dipinjamTextBox.Text, Tanggal_PeminjamanDateTimePicker.Text, Tanggal_PengembalianDateTimePicker.Text)
        TPenyewaanTableAdapter.Fill(Me.Penyewaan_KomikDataSet.TPenyewaan)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.TPenyewaanTableAdapter.Update(Me.Penyewaan_KomikDataSet.TPenyewaan)
        TPenyewaanTableAdapter.Insert(Jenis_KomikTextBox1.Text, GenreTextBox1.Text, Jumlah_yang_dipinjamTextBox.Text, Tanggal_PengembalianDateTimePicker.Text, Tanggal_PeminjamanDateTimePicker.Text)
        TPenyewaanTableAdapter.Fill(Me.Penyewaan_KomikDataSet.TPenyewaan)
        MsgBox("Data Berhasil Tersimpan!", MsgBoxStyle.Information, "Success")
    End Sub
End Class

Kita Klik Debug akan muncul tampilan seperti ini

Tulis Jenis, Genre, Jumlah pinjaman, Tanggal pentimpanan dan Tanggal pengembalian. Lalu klik save

Sebelum muncul seperti gambar diatas, akan muncul data yang seperti ini. Klik File, lalu menu yang pertama

pilih yang TJenis

Data Berhasil tersimpan

Ini adalah Data Connectionnya

Form untuk repotnya

Ini setelah reportnya berhasil muncul

Selesailah sudah pemprograman dari Ms. Access yang mengakses ke Visual Studio. Terimakasih :)