Halo teman-teman apa kabar? mudah-mudahan selalu di beri kesehatan ya. Kali ini saya akan membuat penjelasan bagaimana membuat sebuah fungsi CRUD dengan menggunakan visual studio yang terkoneksi databas dengan microsoft access.
Yang jelas langkah pertama yang dilakukan. membuat tampilan untuk design utamanya seperti gambar berikut.
Disini tools apa saja yang diguna adalah TexBox, Lebel, Button, Data Gridvlew dan Data TimePicker.
Langkah selanjutnya saya akan memcoba untuk mengisi data dan memasukan data ke dalam aplikasi yg sudah saya buat.
Setelah di isi lalu saya save apa datanya berjalan dengan baik berikut contoh gambar di bawah ini.
Dan data berhasil disimpan.
Dan langkah selanjutnya membuat databasenya, disini saya hanya mengunakan Microsoft Access. Disini saya membuat satu database disini untuk menyimpan data pemesana cat, menyimpan data pemesana atau informasi yang disimpan dan ini contoh gambar databasenya.
Setelah berhasil dibuat langkah berikutnya mengkoneksikan antara program yang dibuat dengan databasenya dan berikut captur codingan untuk mengkoneksikan ke database:
Langkah selanjutnya saya membuat codingan diform menu utama agar saat program dirun ketika diklik memu-menu yang kita inginkan akan keluar sesuai apa yang di inginkan dan berikut contoh capture codigannya.
Dan berikut codingan untuk keseluruannya:
Imports System.Data.OleDb
Module ModKoneksi
Public conn As OleDbConnection
Public cmd As OleDbCommand
Public da As OleDbDataAdapter
Public dr As OleDbDataReader
Public ds As DataSet
Sub Koneksi()
conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "/DBSiswa.accdb")
conn.Open()
End Sub
End Module
Private Sub BtnSimpan_Click(sender As Object, e As EventArgs) Handles BtnSimpan.Click
cmd = New OleDbCommand("SELECT * FROM DATA WHERE No_Pemesanan='" & TxtPemesan.Text & "'", conn)
dr = cmd.ExecuteReader
dr.Read()
Try
If Not dr.HasRows Then
Dim simpan As String = "INSERT INTO DATA VALUES('" & TxtPemesan.Text & "','" & TxtNama.Text & "','" & Txtnik.Text & "','" & txtJenisMotor.Text & "','" & TxtJenisCat.Text & "','" & txttglPemesan.Text & "','" & txtWarnaCat.Text & "','" & txtalamat.Text & "','" & txtUang.Text & "')"
cmd = New OleDbCommand(simpan, conn)
cmd.ExecuteNonQuery()
MsgBox("Data Berhaasil diSimpan")
TampilGrid()
Else
Dim edit As String = "UPDATE DATA SET Nama='" & TxtNama.Text & "',NIK='" & Txtnik.Text & "',Jenis_Motor='" & txtJenisMotor.Text & "',Jenis_Cat='" & TxtJenisCat.Text & "',Tanggal_Pemesan='" & txttglPemesan.Text & "',Warna_Cat='" & txtWarnaCat.Text & "',Alamat='" & txtalamat.Text & "',pendidikan='" & txtUang.Text & "' where No_Pemesan='" & TxtPemesan.Text & "'"
cmd = New OleDbCommand(edit, conn)
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil diuBah")
TampilGrid()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
Call KosongkanData()
End Sub
Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
If TxtPemesan.Text = "" Then
MsgBox("Kode No Anggota Harus diisi dulu", MsgBoxStyle.Information)
TxtPemesan.Focus()
Exit Sub
Else
If MessageBox.Show("Yakin akan di hapus ?", "Perhatian", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Dim hapus As String = "DELETE * FROM DATA WHERE No_Pemesanan='" & TxtPemesan.Text & "'"
cmd = New OleDbCommand(hapus, conn)
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil di Hapus", MsgBoxStyle.Information)
Call KosongkanData()
Call TampilGrid()
Else
Call KosongkanData()
End If
End If
End Sub
Private Sub BtnBatal_Click(sender As Object, e As EventArgs) Handles BtnBatal.Click
Call KosongkanData()
End Sub
Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click
Close()
End Sub
Sekian dan terima kasi, semoga bermanpat
Yang jelas langkah pertama yang dilakukan. membuat tampilan untuk design utamanya seperti gambar berikut.
Disini tools apa saja yang diguna adalah TexBox, Lebel, Button, Data Gridvlew dan Data TimePicker.
Langkah selanjutnya saya akan memcoba untuk mengisi data dan memasukan data ke dalam aplikasi yg sudah saya buat.
Setelah di isi lalu saya save apa datanya berjalan dengan baik berikut contoh gambar di bawah ini.
Dan data berhasil disimpan.
Dan langkah selanjutnya membuat databasenya, disini saya hanya mengunakan Microsoft Access. Disini saya membuat satu database disini untuk menyimpan data pemesana cat, menyimpan data pemesana atau informasi yang disimpan dan ini contoh gambar databasenya.
Setelah berhasil dibuat langkah berikutnya mengkoneksikan antara program yang dibuat dengan databasenya dan berikut captur codingan untuk mengkoneksikan ke database:
Langkah selanjutnya saya membuat codingan diform menu utama agar saat program dirun ketika diklik memu-menu yang kita inginkan akan keluar sesuai apa yang di inginkan dan berikut contoh capture codigannya.
Dan berikut codingan untuk keseluruannya:
Imports System.Data.OleDb
Module ModKoneksi
Public conn As OleDbConnection
Public cmd As OleDbCommand
Public da As OleDbDataAdapter
Public dr As OleDbDataReader
Public ds As DataSet
Sub Koneksi()
conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "/DBSiswa.accdb")
conn.Open()
End Sub
End Module
Private Sub BtnSimpan_Click(sender As Object, e As EventArgs) Handles BtnSimpan.Click
cmd = New OleDbCommand("SELECT * FROM DATA WHERE No_Pemesanan='" & TxtPemesan.Text & "'", conn)
dr = cmd.ExecuteReader
dr.Read()
Try
If Not dr.HasRows Then
Dim simpan As String = "INSERT INTO DATA VALUES('" & TxtPemesan.Text & "','" & TxtNama.Text & "','" & Txtnik.Text & "','" & txtJenisMotor.Text & "','" & TxtJenisCat.Text & "','" & txttglPemesan.Text & "','" & txtWarnaCat.Text & "','" & txtalamat.Text & "','" & txtUang.Text & "')"
cmd = New OleDbCommand(simpan, conn)
cmd.ExecuteNonQuery()
MsgBox("Data Berhaasil diSimpan")
TampilGrid()
Else
Dim edit As String = "UPDATE DATA SET Nama='" & TxtNama.Text & "',NIK='" & Txtnik.Text & "',Jenis_Motor='" & txtJenisMotor.Text & "',Jenis_Cat='" & TxtJenisCat.Text & "',Tanggal_Pemesan='" & txttglPemesan.Text & "',Warna_Cat='" & txtWarnaCat.Text & "',Alamat='" & txtalamat.Text & "',pendidikan='" & txtUang.Text & "' where No_Pemesan='" & TxtPemesan.Text & "'"
cmd = New OleDbCommand(edit, conn)
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil diuBah")
TampilGrid()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
Call KosongkanData()
End Sub
Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
If TxtPemesan.Text = "" Then
MsgBox("Kode No Anggota Harus diisi dulu", MsgBoxStyle.Information)
TxtPemesan.Focus()
Exit Sub
Else
If MessageBox.Show("Yakin akan di hapus ?", "Perhatian", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Dim hapus As String = "DELETE * FROM DATA WHERE No_Pemesanan='" & TxtPemesan.Text & "'"
cmd = New OleDbCommand(hapus, conn)
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil di Hapus", MsgBoxStyle.Information)
Call KosongkanData()
Call TampilGrid()
Else
Call KosongkanData()
End If
End If
End Sub
Private Sub BtnBatal_Click(sender As Object, e As EventArgs) Handles BtnBatal.Click
Call KosongkanData()
End Sub
Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click
Close()
End Sub
Sekian dan terima kasi, semoga bermanpat
Komentar
Posting Komentar