Aplikasi Inventaris Menggunakan VB6 #2 (Code & Ms.Access)

 Lanjut dari Part #1.

Masukkan kode program di setiap komponen seperti di bawah ini.

Private Sub CommandAdd_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub CommandCancel_Click()
ComboAlat.Clear
txtJumlah.Text = ""
TxtHarga.Text = ""
End Sub

Private Sub CommandUpdate_Click()
Adodc1.Recordset.Update
MsgBox "Data Berhasil Diubah", vbInformation, "Success!"
Exit Sub
End Sub

Kemudian kita membuat database-nya untuk menyimpan nilai. Buka Ms. Access kemudian buat tablenya seperti gambar di bawah ini.

 

• Save as Type (Ms. Access Database 2000-2003 format).

• Kemudian balik lagi ke Form lalu klik kanan pada komponen Adodc, ADODC Properties.

• Di Tab General klik build lalu Ms. Jet 4.0 OLE DB Provider.

• Kemudian Next lalu masukkan file database yang kalian buat tadi. Jika sudah Test Connection terlebih dahulu lalu OK. 

• Masih di Properties Adodc pilih Tab RecordSource. Ikuti seperti gambar di bawah ini.
  

• Lalu OK.

Kemudian isi Properties di ComboBox, TextBox dan DataGrid.

Komponen	DataSource	DataField	DataFormat
ComboAlat	Adodc1	Alat	General
txtJumlah	Adodc1	Jumlah	Number
TxtHarga	Adodc1	Harga	Currency
DataGrid1	Adodc1	-	-

Selesai program berhasil dijalankan. Next akan membuat Print Laporan.