Penulis mau share neyh ke teman teman yang sedang belajar vb. Kali ini, penulis akan memberitahu langkah-langkah membuat program biodata mahasiswa.
Langkah pertama adalah membuat database di Microsoft Access dengan tabel:
NPM
Nama
Alamat
Jurusan
Next, simpan database dengan format Microsoft Access 2003.
Lalu untuk mengkoneksikan program ke database nya, kita klik Control Panel-Administrative Tools-ODBC-Add dan klik Microsoft Access driver(*mdb.)-Finish dan kemudian klik nama file database yang telah disimpan.
Lalu, buka Microsoft Visual Basic 6.0 dan ketikkan tampilan seperti ini:
Next, kita ubah propertiesnya sehingga terlihat tampilan seperti ini:
Langkah selanjutnya adalah mengklik tab Project-Components.
Pada tab Controls, klik Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft ADO Data Grid Control 6.0(OLEDB).
Klik OK.
Kemudian klik dan drag Adodc. Atur propertiesnya, ubah nama menjadi Adodcmhs dan klik ConnectionString, lalu Build. Kemudian cari letak file penyimpanan database, dalam hal ini penulis memberi nama file database mahasiswa.
Pada DataGrid, atur propertiesnya pada DataSource, yaitu nama koneksi Adodcmhs dan RecordSource, dalam hal ini adalah nama tabelnya hingga terlihat tampilan:
Kemudian buat codingnya yakni:
Public Baru As Boolean
Public Sub tombol(Tambah, Simpan, Edit, hapus, Keluar As Boolean)
CmdTambah.Enabled = Tambah
CmdSimpan.Enabled = Simpan
CmdEdit.Enabled = Edit
CmdHapus.Enabled = hapus
End Sub
Public Sub Kosong()
Textnpm = ""
TextNama = ""
TextAlamat = ""
TextJurusan = ""
End Sub
Private Sub CmdEdit_Click()
tombol False, True, False, True, True
With Adodcmhs.Recordset
Textnpm.Text = !npm
TextNama.Text = !Nama
TextAlamat.Text = !Alamat
TextJurusan.Text = !Jurusan
End With
Textnpm.SetFocus
xBaru = False
End Sub
Private Sub CmdExit_Click()
Unload Me
End Sub
Private Sub CmdHapus_Click()
tombol True, True, False, False, True
Dim hapus
hapus = MsgBox("are you sure you want to delete it??", vbInformation + vbYesNo, "Warning")
If hapus = vbYes Then
Adodcmhs.Recordset.Delete
Else
MsgBox "no, thank's "
End If
End Sub
Private Sub CmdSimpan_Click()
tombol True, False, True, True, True
Dim save
save = MsgBox("Do you want to save?", vbInformation + vbYesNo, "Save Data")
If save = vbYes Then
With Adodcmhs.Recordset
If Baru Then .AddNew
!npm = Textnpm.Text
!Nama = TextNama.Text
!Alamat = TextAlamat.Text
!Jurusan = TextJurusan.Text
.Update
.Sort = "npm"
Kosong
End With
Else
MsgBox "Save canceled", vbOKOnly + vbInformation, "Canceled"
End If
End Sub
Private Sub CmdTambah_Click()
tombol False, True, False, False, True
Kosong
Baru = True
Textnpm.SetFocus
End Sub
Private Sub Form_Load()
Form1.Caption = "Tiiia"
Adodcmhs.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\User\My Documents\mahasiswa.mdb;Persist Security Info=False"
Adodcmhs.RecordSource = "mhs"
Adodcmhs.Recordset.Sort = "npm"
Baru = False
End Sub
Terakhir...., tinggal me-run kan aja deh......, tampilannya terlihat seperti sbb:
Selamat mencoba yah.....^_^
