Database VB.NET + Ms. Access

•  Objek ADO.NET ini berfungsi menyediakan antar muka pengrograman pada project kita dengan berbagai sumber data. Dengan kata lain pengolahan data pada database dilakukan melalui kode-kode ADO.NET ini, lalu ditampilkan pada aplikasi kita.
• OLEbConnection Merupakan suatu program yang berfungsi mengkoneksikan ke database dan memberikan informasi – informasi data.       Cara Menggunakan nya yaitu Melakukan Koneksi ke Sumber Data.
• Misalnya OleDbConnection pada komponen ADO.net.
• OleDbCommand adalah suatu program yang menjalankan perintah-perintah pada sumber data.
• OleDbDataReader merupakan kumpulan record-record yang diambil dari database yang berfungsi membaca data pada sumber data dengan sifat forward only dan read only.
• Cara menggunakannya biasanya digunakan pada tampilan control      tampilan data seperti DataGrid, GridView, dsb.

Memulai Ms. Access 2007

Start > All Program > Microsoft Office > MS Access 2007

Lanjutkan dengan memilih New Blank Database.

•  Beri Nama database dengan ADOGaji

•  Lalu save pada folder

• Masuk kedalam design view sebagai tempat merancang isi table
• Rancang isi field seperti pada gambar lalu save tabel dengan nama pegawai

Setelah Database dibuat pada Ms. Access, buat form pada VB seperti pada gambar:

Buatlah Sebuah Modul dengan cara : project – Add Module – beri nama Module1

Lalu isi kode program berikut ke dalam Module1

SELECT .. CASE

Perintah SELECT CASE mirip seperti perintah IF yaitu untuk membandingkan nilai,

SELECT CASE variabel
    Case Nilai1
        Pernyataan1
    Case Nilai2
        Pernyataan2
    ...
    Case Else
        Pernyataan_Terakhir
END SELECT
    

Contoh penggunaan perintah SELECT CASE:

Module.Module1
    Sub Main()
        Dim a As Integer
        a = 2
        SELECT CASE a
        Case 1
            Console.WriteLine("Nilai1 Terpenuhi")
        Case 2
            Console.WriteLine("Nilai2 Terpenuhi")
        Case 3
            Console.WriteLine("Nilai3 Terpenuhi")
        Case Else
            Console.WriteLine("Tidak ada yang memenuhi syarat")
        END SELECT
    Console.ReadKey()
    End Sub
End Module
    

Jika pernyataan SELECT CASE di atas dijalankan maka akan menampilkan hasil sebagai berikut:

Nilai2 Terpenuhi

Percabangan (IF) Menggunakan Keyword AND dan OR

Penggunaan IF juga dapat digunakan untuk membandingkan beberapa nilai diantaranya menggunakan AND dan OR,

    
    IF kriteria1 [[[AND|OR] kriteria2]...] THEN
        Pernyataan-pernyataan
    END IF
    

    IF a > 1 AND a < 5 THEN
        Console.WriteLine("Kriteria Terpenuhi!")
    END IF
    

Pernyataan Console di atas hanya akan dijalankan oleh VB apabila nilai dari variabel a lebih besar dari 1 dan lebih kecil dari 5, dengan kata lain harus bernilai 2, 3, 4, atau 5.

    IF a < 10 OR a > 20 THEN
        Console.WriteLine("Kriteria Terpenuhi!")
    END IF
    

Pernyataan Console di atas hanya akan dijalankan oleh VB apabila nilai dari variabel a lebih besar kecil dari 10 (..., 6, 7, 8, 9) atau lebih besar dari 20 (21, 22, 23, 24, ...).