Aplikasi ini dibuat saat duduk di bangku kuliah, sudah pernah dapat materinya juga pada saat SMK, namun lebih fokus pada saat bangku kuliah. saya share agar bisa bermanfaat untuk orang lain. Membuat aplikasi itu memang di antara mudah dan sulit, mudah bagi mereka yang serius menekuninya , sulit untuk mereka yang ingin instan tanpa belajar.
Pertama yang harus di tulis dalam mengkoneksikan ke database adalah kode di bawah
Dim dt As New ADODB.Connection
Dim WithEvents fdt As ADODB.Recordset
//akhir
Ini di pakai untuk tombol mengembalikan data ke paling awal tombolnya seperti “|<”
Private Sub Command1_Click()
fdt.MoveFirst
End Sub
Ini adalah fungsi perkalian biasa saja antara text dan text
Private Sub Command10_Click()
Text6.Text = Text4.Text * Text5.Tex
Penjelasan : text 6 akan menampilkan hasil dari operasi text 4 dan text 5
End Sub
Ini di pakai untuk tombol mengembalikan data ke sebelumya , tombolnya seperti “<”
Private Sub Command2_Click()
fdt.MovePrevious
If fdt.BOF = True Then fdt.MoveFirst
//ini kode terpenting untuk mencegah error jika kita sudah sampai pada data paling awal
End Sub
Ini di pakai untuk melihat data yang selanjutnya , gambar tombolnya seperti “>”
Private Sub Command3_Click()
fdt.MoveNext
If fdt.EOF = True Then fdt.MoveLast
//ini kode terpenting untuk mencegah error jika kita sudah sampai pada data paling akhir
End Sub
Ini di pakai untuk tombol mengembalikan data ke paling akhir tombolnya seperti “>|”
Private Sub Command4_Click()
fdt.MoveLast
End Sub
Kode ini digunakan untuk menambah data, tentunya digunakan pada tombol dengan nama “ADD” ataupu “TAMBAH”
Private Sub Command5_Click()
fdt.AddNew
Dim addNIM As Integer
Set na = New ADODB.Recordset
na.CursorLocation = adUseClient
na.Open "select Nim from table1 order by Nim desc", dt, adOpenDynamic, adLockOptimistic
addNIM = na.Fields(0) + 1
//kode ini digunakan agar menambah otomatis sebuah nim, yang di setting di dalam database sebagai auto
Text1.Text = addNIM
End Sub
Kode ini digunakan dalam proses mengubah data, tentunya berada pada tombol “Update”
Private Sub Command6_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "Pilih dahulu data yang ingin anda ubah", vbInformation + vbOKOnly, "Perhatian"
Penjelasan MsgBox berfungsi menampilkan dialog box
Text2.SetFocus
Else
fdt.Fields("Nim") = Text1.Text
fdt.Fields("Nama") = Text2.Text
fdt.Fields("Kelas") = Text3.Text
fdt.Update
End If
End Sub
Kode diguakan untuk menghapus data, tentunya nama tombol “DELETE”
Private Sub Command7_Click()
fdt.Delete
End Sub
Kode ini digunakan untuk menutup program yang berjalan.
Private Sub Command8_Click()
Unload Me
End Sub
Kode ini sebenarnya hanya untuk memanggil isi database saja.
Private Sub Command9_Click()
Dim sNIMp As Integer
Dim sNIMa As Integer
Set np = New ADODB.Recordset
Set nak = New ADODB.Recordset
np.CursorLocation = adUseClient
np.Open "select Nim from table1 order by Nim asc", dt, adOpenDynamic, adLockOptimistic
Penjelasan : np.Open untuk menjalankan Query ke database
sNIMp = np.Fields(0)
nak.CursorLocation = adUseClient
nak.Open "select Nim from table1 order by Nim desc", dt, adOpenDynamic, adLockOptimistic
sNIMa = nak.Fields(0)
Text4.Text = sNIMp
Text5.Text = sNIMa
End Sub
Kode ini banyak sekali, namun tak perlu mengetik tinggal memilih pada kolom pertama “fdt” dan kolom kedua “Move complete”
Private Sub fdt_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If (fdt.BOF = True Or fdt.EOF = True) Then Exit Sub
Label4.Caption = fdt.Fields("Nama") & ""
Combo1.Text = fdt.Fields("Kelas") & ""
Text1.Text = fdt.Fields("NIM") & ""
// ini mengandung arti bahwa text1.text nantinya akan menampilkan isi dari database yang fieldnya adalah “NIM” dan begitupun selanjutnya.
Text2.Text = fdt.Fields("Nama") & ""
Text3.Text = fdt.Fields("Kelas") & ""
End Sub
Ini adalah bagian terpenting yaitu di form loadnya. Klik dua kali di form dan tulis kode di bawah
Private Sub Form_Load()
dt.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Siang 11\Mahasiswaa.mdb;Persist Security Info=False"
//ini configurasi koneksi ke database
dt.Open
Set fdt = New ADODB.Recordset
fdt.CursorLocation = adUseClient
fdt.Open "SELECT * FROM table1", dt, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = fdt
// menyeting datagird sebagai tempat untuk enampilkan datanya.
End Sub
Dan inilah hasil runningnya..
Semoga bermanfaat....
0 komentar: