Penggunaan CRUD pada Visual Basic 6.0

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.


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:
Penggunaan CRUD pada Visual Basic 6.0
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:
  • Membuat Form
Dalam form tersebut terdapat
A. Label
Penggunaan CRUD pada Visual Basic 6.0
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
Penggunaan CRUD pada Visual Basic 6.0
Textbox Nim dan Nama -Relainc Andro-
 Ada Textbox untuk menginputkan Nama dan NIM

C. Command Button
Penggunaan CRUD pada Visual Basic 6.0
Command Button -Relainc Andro-
Penggunaan CRUD pada Visual Basic 6.0
Command Cetak dan Exit -Relainc Andro-
  Dan juga ada 5 command button untuk menjalankan progam tersebut, yaitu:
  1. Add = untuk menambahkan data baru. 
  2. Clear = untuk mereset textbox nama dan nim menjadi kosong, sehingga user dapat menginput data yang baru. (cmd clear ini bukan untuk menghapus data) 
  3. 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.
  4. 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. 
  5. Exit = untuk keluar dari program. 
  6. Cetak = untuk mencetak data yang sudah diinputkan
D.  Adodc
Penggunaan CRUD pada Visual Basic 6.0
Adodc -Relainc Andro-
Dengan ADODC kita dapat berhubungan dengan database Access lalu melakukan pengolahan data standar seperti menambah, menghapus, cari, hapus simpan dan lain-lain.

Penggunaan CRUD pada Visual Basic 6.0
Form CRUD -Relainc Andro-

Membuat Koneksi pada Vb 6.0
Dim 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
 Membuat Code Insert
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 Sub
 Membuat Code Clear
Private Sub Command2_Click()
    Text1.Text = ""
    Text2.Text = ""
    Text1.SetFocus
End Sub
Membuat Code Exit
Private Sub Command3_Click()
    Unload Me
End Sub
Membuat Code Update
Private Sub Command4_Click()
    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
 Membuat Code Delete
Private Sub Command5_Click()
    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
 Membuat Code Cetak
Private Sub Command6_Click()
       Load DataEnvironment1
       DataReport1.Show
   End Sub

Membuat Code DataGrid1 Read
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
 Membuat Code Form Load
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 :
    Penggunaan CRUD pada Visual Basic 6.0
    Code Modul -Relainc Andro-
  • Tampilan untuk data report adalah sbb: 
Penggunaan CRUD pada Visual Basic 6.0
Report -Relainc Andro-
Terima Kasih, Salam Relainc Andro Semoga bermanfaat.

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

Previous
Next Post »
Post a Comment
Thanks for your comment