Manajemen Database Visual Basic. Net Dengan SQL Server

Buatlah database di dalam SQL SERVER dengan ketentuan berikut ini;

Nama Database	Penjualan_BarangII
Nama Tabel	Master_Barang
Column Name	Data Type
Kode_Customer	Char(15) Primary Key
Nama_Customer	Char(35)
Alamat_Customer	Char(50)
Telepon	Char(15)

Buatlah tampilan form untuk memproses tabel Barang, seperti di bawah ini;

Sekenario Form;

Form terdapat Kode Customer, Nama Customer, Alamat Customer,Telepon. Data yang sudah diisi dalam form akan tersimpan setelah menekan tombol save serta data akan muncul di dalam Daftar Customer, dan akan kosong apabila menekan New dan Cancel, dan apabila menekan tombol Find maka akan muncul inputbox dan data yang diinputkan kedalam inputbox akan puncul di dalam datagrid view , serta apabila menekan tombol delete maka akan muncul inputbox dan data yang diinputkan kedalam inputbox akan hilang di dalam datagrid view serta apabila menekan tombol close maka akan keluar dari program

Atur Propertinya, sebagai berikut :

No.	Objek	Properti	Nilai Properti
1.	Form1	NameText StartPosition	frMasterBarangMaster Barang CenterScreen
2.	GroupBox1Label1 s/d Label 6 TextBox1 TextBox2 TextBox3 TextBox4	TextText Name Name Name Name Multiline ScrollBars Name	| Input Buku |Seperti di Form Seperti di Form TxtKode_Customer txtNama_ Customer txtalamat_ Customer True Vertical txttelepon_ Customer
3.	GroupBox2Button1 Button2 Button3 Button4 Button5 Button6	TextName Text Name Text Name Text Name Text Name Text Name Text	| Proses |btNew &New btSave &Save btCancel &Cancel btFinf &Find btDelete &Delete btClose &Close
4	DataGridView1	Name	dgvCustomer

Tambahkan Kode Program Seperti Tampilan Berikut ini;

Imports System.DataImports System.Data.SqlClient Public Class frcustomer Public koneksi As String Public sql1, sql2, sql3, sql4 As String Public conn As SqlClient.SqlConnection = Nothing Public cmd As SqlClient.SqlCommand = Nothing Public dtadapter As SqlClient.SqlDataAdapter = Nothing Public dtreader As SqlClient.SqlDataReader = Nothing Public dttable As New DataTable Private Sub frcustomer_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Leave cmd.Dispose() conn.Close() End Sub Private Sub frcustomer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ‘PERINTAH KONEKSI DATABASE DISIMPAN 1 BARIS koneksi = “Data Source= localhost\sqlexpress;Initial Catalog=Penjualan_BarangII;Integrated Security=True” conn = New SqlClient.SqlConnection(koneksi) conn.Open() End Sub Sub simpan() sql1 = “Insert into Master_customer values(‘” & Me.txtkode_customer.Text & “‘,'” & Me.txtnama_customer.Text & “‘,'” & Me.txtalamat_Customer.Text & “‘,'” & Me.txttelepon_Customer.Text & “‘)” cmd = New SqlClient.SqlCommand(sql1) cmd.Connection = conn cmd.ExecuteNonQuery() End Sub Sub daftar() sql2 = “select * from master_customer” dtadapter = New SqlDataAdapter(sql2, conn) ‘dibuat satu baris Dim CST As New DataTable CST.Clear() dtadapter.Fill(CST) dgvcustomer.DataSource = CST End Sub Sub kosong() Me.txtkode_customer.Text = “” Me.txtnama_customer.Text = “” Me.txtalamat_Customer.Text = “” Me.txttelepon_Customer.Text = “” Me.txtkode_customer.Focus() End Sub Sub cari() Dim cari As String cari = InputBox(“Masukan Kode Customer”, “Pencarian”) sql3 = “select * from master_customer where kode_Customer = ‘” & cari & “‘” dtadapter = New SqlDataAdapter(sql3, conn) ‘dibuat satu baris Dim CST As New DataTable CST.Clear() dtadapter.Fill(CST) dgvcustomer.DataSource = CST End Sub Sub delete() Dim hapus As String hapus = InputBox(“Masukan Kode Customer”, “Penghapusan”) sql4 = “delete from master_customer where kode_customer = ‘” & hapus & “‘” cmd = New SqlClient.SqlCommand(sql4) cmd.Connection = conn cmd.ExecuteNonQuery() End Sub Private Sub btnew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnew.Click kosong() End Sub Private Sub btsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsave.Click simpan() kosong() MsgBox(“Data Sudah Disimpan”, MsgBoxStyle.Information, “Perhatian”) daftar() End Sub Private Sub btcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcancel.Click kosong() End Sub Private Sub btFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btFind.Click cari() End Sub Private Sub btDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDelete.Click delete() daftar() MsgBox(“Data Telah Terhapus”, MsgBoxStyle.Information, “Informastion”) End Sub Private Sub btclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclose.Click Me.Close() End Sub End Class

Manajemen Database Visual Basic 2008 dengan Microsoft Access

Kode Program:

Imports System.Data Imports System.Data.OleDb Public Class frbuku     Public koneksi As String     Public sql1, sql2, sql3, sql4, sql5 As String     Public conn As OleDb.OleDbConnection = Nothing     Public cmd As OleDb.OleDbCommand = Nothing     Public dtadapter As New OleDb.OleDbDataAdapter     Public dttable As New DataTable Private Sub frbuku_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        koneksi = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\dbperpustakaan.mdb”        conn = New OleDb.OleDbConnection(koneksi)        conn.Open()     End Sub     Sub bersih()         Me.txtkodebuku.Focus()         Me.txtjudul.Text = “”         Me.txtpengarang.Text = “”         Me.txtpenerbit.Text = “”      End Sub      Sub simpan()           ‘Ditulis Satu Baris      sql1 = “Insert into tbbuku values(‘” & Me.txtkodebuku.Text & “‘,'” & Me.txtjudul.Text & “‘,'” &          Me.txtpengarang.Text & “‘,'” & Me.txtpenerbit.Text & “‘)”      cmd = New OleDb.OleDbCommand(sql1)      cmd.Connection = conn      cmd.ExecuteNonQuery()      End Sub      Sub daftar()         sql2 = “select * from tbbuku”         dtadapter = New OleDbDataAdapter(sql2, conn)         Dim BRG As New DataTable         BRG.Clear()         dtadapter.Fill(BRG)         DgvBuku.DataSource = BRG     End Sub     Sub cari()         Dim cari As String         cari = InputBox(“Masukan Kode Buku”, “Pencarian”)         sql3 = “select * from tbbuku where Kode_Buku = ‘” & cari & “‘”         dtadapter = New OleDbDataAdapter(sql3, conn)         Dim CST As New DataTable         CST.Clear()         dtadapter.Fill(CST)         DgvBuku.DataSource = CST     End Sub     Sub delete()         Dim hapus As String         hapus = InputBox(“Masukan Kode Buku”, “Penghapusan”)         sql4 = “delete from tbbuku where Kode_Buku = ‘” & hapus & “‘”         cmd = New OleDb.OleDbCommand(sql4)         cmd.Connection = conn         cmd.ExecuteNonQuery()     End Sub     Sub edit()         sql5 = “update tbbuku set Judul = ‘” & txtjudul.Text & “‘, Pengarang = ‘” & txtpengarang.Text & “‘, Penerbit = ‘” & txtpenerbit.Text & “‘ where Kode_Buku = ‘” & txtkodebuku.Text & “‘”         cmd = New OleDb.OleDbCommand(sql5)         cmd.Connection = conn         cmd.ExecuteNonQuery()     End Sub      Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click         simpan()         daftar()         bersih()         MsgBox(“Data Sudah Disimpan”, MsgBoxStyle.Information, “Perhatian”)     End Sub      Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click         bersih()         MsgBox(“Data Sudah digagalkan”, MsgBoxStyle.Information, “Perhatian”)     End Sub      Private Sub btnclose_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.Click         Me.Close()     End Sub      Private Sub btncari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncari.Click         cari()     End Sub