LA - Database Pada Visual Basic

LAPORAN AKHIR

Mata Praktikum        : Algoritma dan Pemrograman 2A (AP 2A)

Kelas                          : 1IA16

Praktikum Ke-           : 3 (Tiga)

Tanggal                     : 16 April 2014

Materi                         : Database pada VB

NPM                           : 50413168

Nama                         : Adham Bachtiar Yuda Perkasa

Ketua Asisten           : Febrian Reza

Nama Asisten           :

Paraf Asisten                        :

Jumlah Lembar        : 5 Lembar

LABORATORIUM TEKNIK INFORMATIKA

UNIVERSITAS GUNADARMA

2014

Sebelum memulai membuat program database pada VB , saya membuat Format Database terlebih dahulu pada microsoft Access seperti berikut :

Setelah membuat format database diatas pada microsoft access , sekarang saya memulai coding pada visual basic agar terkoneksi dengan microsoft access .

Tampilan Awal Program

Cara Koneksi Microsoft Access ke Visual Basic

Klik kanan pada adodc kemudian pilih property , muncul general pilih build dan cari letak database yg telah dibuat tadi .

                       

Kemudia pilih RecordSourche dan pilih nama tabel yang telah dibuat

Kemudian lihat di properties data grid pada kolom dataSource pilih Adodc1 , kemudia retreive pada data grid .

                           

     

.    List Program

             

2.    Logika Program

Analisa Program :

Program ini merupakan latihan dalam mebuat program menggunakan Microsoft visual basic. Versi Microsoft Visual Basic 6.0. Pada program ini saya menggunakan sebuah sistem database yang terkoneksi dengan visual basic .

Di sini saya akan membuat program Input Database dengan dikoneksikan dengan Microsoft Access

Penjelasan program :

Sebelum melakukan coding , saya membuat 4 textbox , 5 label ,1 Data Grid , 1 Adodc dan 2 Command Button . Setelah itu saya beri variabel masing – masing .

1. Adodc1.Recordset.AddNew

Syntax diatas merupakan sebuah syntax untuk membuat sebuah record baru pada adodc .

2. Adodc1.Recordset.Fields("NPM") = Text1.Text

Syntax diatas untuk input data NPM pada datagrid . input data tersebut didapatkan jika kita input data pada textbox1.

            3. Adodc1.Recordset.Fields("Nama") = Text2.Text

           

Syntax diatas untuk input data NAMA pada datagrid . input data tersebut didapatkan jika kita input data pada textbox2.

            4. Adodc1.Recordset.Fields("Alamat") = Text3.Text

           

Syntax diatas untuk input data Alamat pada datagrid . input data tersebut didapatkan jika kita input data pada textbox3.

            5. Adodc1.Recordset.Fields("Kelas") = Text3.Text

           

Syntax diatas untuk input data Alamat pada datagrid . input data tersebut didapatkan jika kita input data pada textbox4.

            6. Adodc1.Recordset.Update

Syntax diatas berfungsi untuk membuat record atau data baru pada datagrid jika data yang pertama telah terpenuhi .

            7 End Sub

End Sub berfungsi untuk menghentikan proses pada program atau merupakan batas akhir dari syntax .

           

            Pada CommandButton 2

                       

            Adodc1.Recordset.Delete

           

Syntax diatas berfungsi untuk menghapus data yang salah , atau data yang sudah tidak dibutuhkan lagi .

            INI ADALAH SYNTAX PENUH DARI PROGRAM INI

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields("NPM") = Text1.Text

Adodc1.Recordset.Fields("Nama") = Text2.Text

Adodc1.Recordset.Fields("Alamat") = Text3.Text

Adodc1.Recordset.Fields("Kelas") = Text4.Text

Adodc1.Recordset.Update

End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Delete

End Sub

Output Program