Penggunaan CRUD pada Visual Basic 6.0 - Hey Kawan Relainc Andro, Kali ini kita akan bahas tentang CRUD pada VB 6.0
Apa sih CRUD itu? CRUD Adalah CREATE, READ, UPDATE, DELETE.
Jadi kita dapat membuat, membaca, memperbaharui dan menghapus suatu data dengan menggunakan visual basic tersebut.
Dengan ADODC kita dapat berhubungan dengan database Access lalu melakukan pengolahan data standar seperti menambah, menghapus, cari, hapus simpan dan lain-lain.
Apa sih CRUD itu? CRUD Adalah CREATE, READ, UPDATE, DELETE.
Jadi kita dapat membuat, membaca, memperbaharui dan menghapus suatu data dengan menggunakan visual basic tersebut.
Dalam pengaplikasian CRUD tersebut, pada kesempatam kali ini kita menggunakan Microsoft Acces dan Visual Basic 6.0.
- Membuat Program dari Vb6 dengan tampilan Program sbb:
 |
| Design Database -RELAINC ANDRO- |
Dengan contoh program tersebut kita bisa menambahkan, menghapus, memperbaharui, dan membaca.
Selain menggunakan Visual Basic, kita juga menggunakan Microsoft Access untuk menyimpan data-data yang telah terinput.
Dalam program vb tersebut:
Selain menggunakan Visual Basic, kita juga menggunakan Microsoft Access untuk menyimpan data-data yang telah terinput.
Dalam program vb tersebut:
- Membuat Form
Dalam form tersebut terdapat
A. Label
 |
| Label Nim dan Nama -Relainc Andro- |
Ada Label untuk Nama dan NIM, Label tersebut hanya sebagai informasi untuk user, dimana menginoutkan Nama dan NIM.
B. Textbox
 |
| Textbox Nim dan Nama -Relainc Andro- |
Ada Textbox untuk menginputkan Nama dan NIM
C. Command Button
 | |
| Command Button -Relainc Andro- |
 |
| Command Cetak dan Exit -Relainc Andro- |
Dan juga ada 5 command button untuk menjalankan progam tersebut, yaitu:
- Add = untuk menambahkan data baru.
- Clear = untuk mereset textbox nama dan nim menjadi kosong, sehingga user dapat menginput data yang baru. (cmd clear ini bukan untuk menghapus data)
- Delete = untuk mengapus data, dengan cara memilih dahulu data yang akan dihapus dengan mengklik data tersebut pada DataGrid lalu klik cmd delete, maka data tersebut akan terhapus.
- Update = untuk memperbaharui atau mengganti isi dari data yang dikehendaki. Dengan cara memilih data pada DataGrid, lalu data tersebut secara otomatis akanada pada textbox Nama dan NIM lalu ubah data sesuai yang diinginkan.
- Exit = untuk keluar dari program.
- Cetak = untuk mencetak data yang sudah diinputkan
D. Adodc
 |
| Adodc -Relainc Andro- |
 |
| Form CRUD -Relainc Andro- |
Membuat Koneksi pada Vb 6.0
Membuat Code InsertDim db As Connection
Dim rs As Recordset
Setelah itu buat sub koneksi untuk memanggil koneksi dimana database disimpan
Sub koneksi()
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_barang.mdb;Persist Security Info=False"
End Sub
Private Sub Command1_Click()
db.Execute "INSERT INTO mhs(nim,nama)values('" & Text1.Text & "','" & Text2.Text & "')"
MsgBox "Data tersimpan"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Koneksi [memanggil koneksi agar data pada DataGrid datap terupdate]
Set rs = New Recordset
rs.Open "mhs", db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End SubMembuat Code Clear
Private Sub Command2_Click()Membuat Code Exit
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()Membuat Code Update
Unload Me
End Sub
Private Sub Command4_Click()Membuat Code Delete
Dim cari As String
cari = Text1.Text
db.Execute "UPDATE mhs SET nama = '" & Text2.Text & "' WHERE nim='" & cari & "'"
MsgBox "Data telah di update"
Text1.Text = ""
Text2.Text = ""
Koneksi [memanggil koneksi agar data pada DataGrid datap terupdate]
Set rs = New Recordset
rs.Open "mhs", db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
Private Sub Command5_Click()Membuat Code Cetak
cari = Text1.Text
db.Execute "DELETE * FROM mhs Where nim='" & cari & "'"
MsgBox "Data telah di delete"
Koneksi [memanggil koneksi agar data pada DataGrid datap terupdate]
Set rs = New Recordset
rs.Open "mhs", db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
Private Sub Command6_Click()
Load DataEnvironment1
DataReport1.Show
End Sub
Membuat Code DataGrid1 Read
Private Sub Form_Load()Membuat Code Form Load
''melakukan koneksi database dimana database disimpan di tempat project berada (untuk refres data baru)
koneksi
Set rs = New Recordset
rs.Open "mhs", db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
Private Sub Form_Load()
''melakukan koneksi database dimana database disimpan di tempat project berada (untuk refres data baru)
koneksi
Set rs = New Recordset
rs.Open "mhs", db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
- Untuk Code Pada Modul Seperti Tampilan berikut :
Code Modul -Relainc Andro-
- Tampilan untuk data report adalah sbb:
 |
| Report -Relainc Andro- |
Jika ingin mendownload Source Code berikut bisa Download Disini atau Dibawah ini.
Terima Kasih, Semoga Bermanfaat. RELAINC ANDRO
Semoga Bermanfaat, jika ingin mengeshare di blog anda tolong sumber artikel di tulis di blog/website anda. Terima Kasih Salam RELAINC ANDRO
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
