Membuat Aplikasi Basis Data menggunakan VisData dengan Engine Access

Membuat Aplikasi Basis Data menggunakan VisData dengan Engine Access

    Untuk membuat aplikasi basis data menggunakan VisData, langkah awalnya sama dengan membuat aplikasi seperti biasa, masih menggunakan Application EXE project. Namun harus ada yang kita aktifkan yaitu “Microsoft ActiveX Data Objects 2.5 Library” pada Menu “Project → Reference” . Dan juga kita harus mengaktifkan “Microsoft ADO Data Control 6.0” dan “Microsoft DataGrid Control 6.0 (OLEDB)” pada Menu “Project → Components”.

    Selanjutnya adalah masuk ketahap pembuatan database, cara membuat databasenya adalah dengan meng-Klik menu “Add-Ins” dan pilih “Visual Data Manager”. Selanjutnya akan muncul windows “Visual Data Manager” pada window tersebut pilih menu “File → New Database → Microsoft Access → Version 7.0 MDB...”. Lalu tentukan nama database dan letak database tersebut. Lalu akan muncul Database Window, klik kanan pada Properties di Database Window lalu pilih New Table. Akan ada Window baru yang muncul dan ketikan nama tabel pada Table Name, lalu klik tombol Add Field. Ketikan nama field pada Name : dan tentukan tipe data pada Type : dan unchecklist pada AllowZeroLength, lalu klik OK apabila semua field telah dibuat klik Close lalu klik Build the Table. Berikut adalah Database,table dan field yang kita buat beserta konfigurasinya :

Database Name :			Mahasiswa.mdb
Table Name :			Mahasiswa
Field
Name	Type	Size	AllowZeroLength	Required
NPM	Integer	8	Unchecked	Checked
Nama	Text	50	Unchecked	Checked
Kelas	Text	5	Unchecked	Checked

   

Selanjutnya adalah menentukan Primary Key yang berfungsi agar tidak ada data yang sama pada field yang telah ditentukan. Pada kesempatan ini field yang dibuat Primary Key adalah NPM, karena tidak ada mahasiswa yang mempunyai NPM yang sama. Caranya adalah klik kanan pada Mahasiswa yang berada pada Database Window lalu pilih Design.. maka akan muncul window seperti kita ingin membuat tabel, selanjutnya adalah klik tombol Add Index maka akan muncul window baru, lalu ketikan NPM pada Name dan pilih NPM pada Availabel Fields : , Checklist Primary dan unchecklist Unique dan IgnoreNulls, lalu klik OK dan klik Close. Database telah berhasil dibuat.

Kemudian kita design layout (antarmuka) aplikasi kita, berikut adalah object yang digunakan beserta propertiesnya.

Object	Properties
	Name		Caption/Text		DataSource		DataField
Label	LBL_NPM		NPM
	LBL_Nama		Nama
	LBL_Kelas		Kelas
TextBox	TXT_NPM				Adodc1		NPM
	TXT_Nama				Adodc1		Nama
	TXT_Kelas				Adodc1		Kelas
Command Button	CMD_Tambah		&Tambah
	CMD_Simpan		&Simpan
	CMD_Hapus		&Hapus
	CMD_Keluar		&Keluar
Adodc	Adodc1
Object	Properties
	Name	DataSource		AllowAddNew		AllowArrows		AllowDelete		AllowUpdate
DataGrid	DataGrid1	Adodc1		FALSE		TRUE		FALSE		FALSE

Pada Adodc1 klik kanan pilih ADODC Properties, lalu pilih Build pada Use Connection String, pada tab Provider pilih Microsoft Jet 4.0 OLE DB Provider lalu klik Next lalu tentukan databasenya pada Select or enter a database name: setelah itu klik Test Connection lalu Klik OK. Tentukan 2 – adCmdTable pada Command Type dan Mahasiswa pada Table or Stored Procedure Name pada tab RecordSource di Windows ADODC Properties.

Selanjutnya kita masuk pada pengkodean, berikut adalah codingnya.

Private Sub CMD_Tambah_Click()

Adodc1.Recordset.AddNew

Text1.SetFocus

End Sub

Private Sub CMD_Simpan_Click()

Adodc1.Recordset.Update

End Sub

Private Sub CMD_Hapus_Click()

a = MsgBox("Anda Yakin Menghapus Data Ini ?", vbYesNo, "Hapus Data")

If a = vbYes Then

Adodc1.Recordset.Delete

End If

End Sub

Private Sub CMD_Keluar_Click()

a = MsgBox("Anda Yakin Ingin Keluar ?", vbYesNo, "Keluar")

If a = vbYes Then

End

End If

End Sub

Berikut tampilan aplikasinya :

SELESAI.