 | Artikel Visual Basic |
| Basis Data - Database |
| Pemrograman Grafis |
| E-Book Tutorial |
| Video Kursus - Tutorial |
| Software - Open Source code |
| W E B Programming |
| Windows System |
| XBasicFramework |
| Berbagi Pengalaman |
| Quick Basic |
|
Software gratis! Open Source
Code
|
|
|
|
|
MENU>Artikel Visual Basic>Visual Basic 6.0 Database>Dasar Pengolahan Data (DAO)
|
Pengolahan Database dengan
DAO (Database Access Object) dan Visual Basic |
|
|
|
Pada artikel terdahulu saya telah menjelaskan Struktur
Objek DAO. Dengan pengenalan struktur objek tersebut diharapkan dapat memberikan
pengertian terhadap pemakaian
Data Access Object (DAO).
Sekarang kita akan membuat project pengolahan data dasar dengan DAO dan Visual
Basic.
Sebelum membuat project dengan DAO ini kita lebih dahulu membuat database dengan
Microsoft Access dengan nama dataku.mdb
Selanjutnya kita membuat tabel Karyawan dengan field-field sebagai berikut:
nik ,nama,karyawan masing-masing field dengan type text.
OK. Kita langsung saja. Buat project baru (Standard Project) lalu klik Project -
Refrence - Lalu pilih Microsoft DAO 2.6 Object Library.
Lihat gambar di bawah ini:
setelah itu anda buat form seperti gambar di bawah ini:
Selanjutnya kita ketik kode seperti di bawah ini:
Private oDB As Database
Private oRs As Recordset
Private Sub Form_Load()
Set oDB = OpenDatabase(App.Path & "\dataku.mdb")
Set oRs = oDB.OpenRecordset("select * from karyawan", dbOpenDynaset)
BacaData
End Sub
Private Sub KosongForm()
txtNIK.Text = ""
txtNama.Text = ""
txtAlamat = ""
End Sub
Private Sub BacaData()
txtNIK.Text = oRs.Fields("NIK")
txtNama.Text = oRs.Fields("Nama")
txtAlamat = oRs.Fields("Alamat")
End Sub
Private Sub cmdBaru_Click()
KosongForm
End Sub
Private Sub cmdCari_Click()
Dim sNIK As String
sNIK = InputBox("Isi NIK:")
Dim sSQL As String
sSQL = "select * from karyawan where nik='" & sNIK & "'"
If sNIK <> "" Then
Set oRs = oDB.OpenRecordset(sSQL, dbOpenDynaset)
If oRs.RecordCount > 0 Then
BacaData
Else
MsgBox "Tidak ada data dengan NIK '" & sNIK &
"'"
End If
End If
End Sub
Private Sub cmdHapus_Click()
Dim respon As Variant
respon = MsgBox("Yakin mau hapus Record dengan NIK '" & txtNIK.Text &
"'", vbYesNo)
If respon = vbYes Then
oDB.Execute "delete from karyawan where nik='" & txtNIK.Text &
"'"
KosongForm
End If
End Sub
Private Sub cmdKeluar_Click()
End
End Sub
Private Sub cmdSimpan_Click()
Dim sSQL As String
sSQL = "DELETE FROM karyawan WHERE NIK='" & txtNIK.Text & "'"
oDB.Execute sSQL
sSQL = "INSERT INTO KARYAWAN VALUES('" & txtNIK.Text & "','" &
txtNama.Text & "','" & txtAlamat.Text & "')"
oDB.Execute sSQL
End Sub
Tekan tombol Run atau F5 untuk menjalankan programnya.
Lihat gambar di bawah ini:
 |
Download Project
klik di sini
JIka ingin mempelajar dasar visual basic bisa baca e-book saya yang berjudul TRIK DASAR BELAJAR VISUAL BASIC 6.0
klik di sini
atau Anda ingin mempelajari
TRIK DATABASE VISUAL BASIC 6.0
sebagai penjelasan pembuatan software
database yang lebih detail klik di sini |
|
|
|