LABTI Visual Basic - Database (Microsoft Access)

Pada awalnya sebelum saya membuat program database pada VB, saya membuat Format Database terlebih dahulu pada microsoft Access yaitu seperti berikut :

Setelah saya membuat format database pada microsoft access , kemudian saya membuat coding program pada visual basic 6.0 untuk mengkoneksikan dengan microsoft access .

List Program

1.    Logika Program

Analisa Program :

Dalam pembuatan program ini saya menggunakan Microsoft visual basic. Versi Microsoft Visual Basic 6.0. Pada program ini saya menggunakan sebuah sistem database dari Microsoft access yang terkoneksi dengan visual basic.

Penjelasan program :

Sebelum saya melakukan pemograman , pada list program pertama saya membuat 4 textbox, 5 label ,1 Data Grid , 1 Adodc dan 2 Command Button. Setelah itu saya memberikan nama variabel tertentu pada masing – masing .

1. Adodc1.Recordset.AddNew

Pada sintax yang pertama kali ini, saya memasukan syntax Adodc1.Recordset.AddNew yang merupakan sebuah syntax untuk membuat sebuah record baru pada adodc .

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

Kemudian saya memasukkan syntax diatas yang befungsi untuk input data “NPM” pada datagrid. penginputan data tersebut akan didapatkan jika kita menginput data pada textbox1 yang dibuat.

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

           

Kemudian saya masukan syntax diatas untuk menginput data “Nama” pada datagrid . penginputan data tersebut didapatkan jika kita input data pada textbox2 yang telah dibuat.

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

           

Kemudian saya memasukkan syntax diatas yang befungsi untuk input data “Alamat” pada datagrid. Penginputan data tersebut akan didapatkan jika kita menginput data pada textbox3 yang telah dibuat.

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

           

Kemudian saya memasukkan syntax diatas yang befungsi untuk input data “Kelast” pada datagrid. Penginputan data tersebut akan didapatkan jika kita menginput data pada textbox3 yang telah dibuat.

            6. Adodc1.Recordset.Update

Syntax yang berikut ini saya masukan yang berfungsi untuk membuat record atau data baru pada datagrid jika data yang pertama telah terpenuhi penginputanya .

            7 End Sub

Dan yang terakhir saya memasukan sintax “End Sub” yang  berfungsi untuk menghentikan semua proses pada program atau merupakan batas akhir dari semua syntax tang telah dibuat.

           

           

Syntax Pada CommandButton 2

                       

            Adodc1.Recordset.Delete

           

Saya menambahkan syntax pada comandbutton ke dua ini yaitu  berfungsi untuk menghapus data penginputan yang salah, atau data yang sudah tidak dibutuhkan lag .

2.      BERIKUT INI ADALAH SEMUA SYNTAX  DARI PROGRAM VB

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