0 Database Data Buku (Console) dengan VB.NET 2008

Imports System.Data.SqlClient
Module Databuku
#Region “Deklarasi Variabel”
Dim connString, vkodebuku, vjudulbuku, vpengarang, vpenerbit, SqlIns, SqlDel, SqlView As String
Dim pilmenu, SqlQryCheck, SqlUpd As String
Dim vjmleksemplar As Integer
Dim lagi, yakin, kmbmenu As Char
Dim conn As SqlConnection
Dim CmdNon, CmdView, CmdCheck As SqlCommand
Dim Adapter As New SqlDataAdapter
Dim DtTb As New DataTable
Dim rdr As SqlDataReader
#End Region
Sub Main()
Console.Title = (“PROGRAM DATA BUKU BY MUTASIM RIDHO 09.11.1123″)
Console.WriteLine(“Pilih Menu di Bawah Ini !”)
Console.WriteLine(“=========================”)
Console.WriteLine(“1. Inputkan Data Baru”)
Console.WriteLine(“2. Tampilkan Data”)
Console.WriteLine(“3. Ubah Data”)
Console.WriteLine(“4. Hapus Data”)
Console.WriteLine(“5. Tutup Program”)
Console.WriteLine(“=========================”)
Console.Write(“Menu : “)
pilmenu = Console.ReadLine()
If pilmenu = 1 Then
Console.Clear()
Call Input()
ElseIf pilmenu = 2 Then
Console.Clear()
Call Lihat()
ElseIf pilmenu = 3 Then
Console.Clear()
Call Ubah()
ElseIf pilmenu = 4 Then
Console.Clear()
Call Hapus()
ElseIf pilmenu = 5 Then
Exit Sub
End If
End Sub
Sub Koneksi()
connString = “Data Source=.;Initial Catalog=dbdatabuku;Integrated Security=True”
conn = New SqlConnection(connString)
End Sub
Sub Input()
Console.Title = (“Masukkan Data”)
Call Koneksi()
SqlIns = “insert into tbdaftarbuku(kodebuku, judulbuku, pengarang, penerbit, jmleksemplar)”
SqlIns = SqlIns & “values(@vkodebuku,@vjudulbuku,@vpengarang,@vpenerbit,@vjmleksemplar)”

CmdNon = New SqlCommand(SqlIns, conn)
CmdNon.Parameters.Add(“@vkodebuku”, SqlDbType.Char, 5)
CmdNon.Parameters.Add(“@vjudulbuku”, SqlDbType.VarChar, 50)
CmdNon.Parameters.Add(“@vpengarang”, SqlDbType.VarChar, 50)
CmdNon.Parameters.Add(“@vpenerbit”, SqlDbType.VarChar, 50)
CmdNon.Parameters.Add(“@vjmleksemplar”, SqlDbType.Int)
conn.Open()
Try
Console.Write(“Masukkan Kode Buku       : “)
vkodebuku = Console.ReadLine()
Console.Write(“Masukkan Judul Buku      : “)
vjudulbuku = Console.ReadLine()
Console.Write(“Masukkan Pengarang       : “)
vpengarang = Console.ReadLine()
Console.Write(“Masukkan Penerbit        : “)
vpenerbit = Console.ReadLine()
Console.Write(“Masukkan Jumlah Eksemplar: “)
vjmleksemplar = Console.ReadLine()

SqlQryCheck = (“select * from tbdaftarbuku where kodebuku =’” & vkodebuku & “‘”)
CmdCheck = New SqlCommand
CmdCheck.Connection = conn
CmdCheck.CommandType = CommandType.Text
CmdCheck.CommandText = SqlQryCheck
Adapter = New SqlDataAdapter(CmdCheck)
DtTb = New DataTable(“Tabel_Buku”)
Adapter.Fill(DtTb)

If DtTb.Rows.Count <> 0 Then
Console.WriteLine(“Data dengan kode ” & vkodebuku & ” sudah ada!, Inputkan kode yang lain!”)
Else
CmdNon.Parameters(“@vkodebuku”).Value = vkodebuku
CmdNon.Parameters(“@vjudulbuku”).Value = vjudulbuku
CmdNon.Parameters(“@vpengarang”).Value = vpengarang
CmdNon.Parameters(“@vpenerbit”).Value = vpenerbit
CmdNon.Parameters(“@vjmleksemplar”).Value = vjmleksemplar
CmdNon.ExecuteNonQuery()
Console.WriteLine(“Data dengan kode ” & vkodebuku & ” berhasil dimasukkan!, Simpan Data Sukses!”)
End If
Console.Write(“Ingin masukkan data lagi? [Y/T] : “)
lagi = Console.ReadLine()
If lagi = “Y” Then
Console.Clear()
Call Input()
Else
conn.Close()
End If

Catch ex As Exception
Console.WriteLine(“Terjadi Kesalahan dengan detail seperti berikut :”)
Console.WriteLine(“=========================”)
Console.WriteLine(ex.ToString)
Console.WriteLine(“=========================”)
End Try
Console.Write(“Kembali Ke Menu Utama [Y/T] : “)
kmbmenu = Console.ReadLine()
If kmbmenu = “Y” Then
Console.Clear()
Call Main()
Else
Console.ReadLine()
End If
End Sub
Sub Lihat()
Console.Title = (“Lihat Data”)
Call Koneksi()
conn.Open()
SqlView = “select * from tbdaftarbuku”
Try
CmdView = New SqlCommand(SqlView, conn)
rdr = CmdView.ExecuteReader
While rdr.Read
‘ Console.WriteLine(“Kode     Judul    Pengarang   Penerbit    Jumlah “)
‘Console.WriteLine(“{0}      {1}      {2}         {3}         {4} “)
‘Console.WriteLine(rdr.GetString(0).PadRight(5), rdr.GetString(1).PadRight(7), rdr.GetString(2).PadRight(7), rdr.GetString(3).PadRight(7), rdr.GetValue(4).ToString.PadRight(7))
Console.WriteLine(“Kode: {0} Judul: {1}   Pengarang: {2}   Penerbit: {3}   Jumlah : {4}”, _
rdr.GetString(0).PadRight(5), rdr.GetString(1).PadRight(7), rdr.GetString(2).PadRight(7), rdr.GetString(3).PadRight(7), rdr.GetValue(4).ToString.PadRight(7))
End While
Catch ex As Exception
Console.WriteLine(“Terjadi Kesalahan dengan detail seperti berikut :”)
Console.WriteLine(“=========================”)
Console.WriteLine(ex.ToString)
Console.WriteLine(“=========================”)

End Try
Console.WriteLine(“”)
Console.Write(“Kembali Ke Menu Utama [Y/T] : “)
kmbmenu = Console.ReadLine()
If kmbmenu = “Y” Then
Console.Clear()
Call Main()
Else
Console.ReadLine()
End If
End Sub
Sub Ubah()
Console.Title = (“Ubah Data”)
Call Koneksi()
SqlUpd = “update tbdaftarbuku set judulbuku=@vjudulbuku, pengarang=@vpengarang, penerbit=@vpenerbit, jmleksemplar=@vjmleksemplar where kodebuku=@vkodebuku”
conn.Open()
Try
CmdNon = New SqlCommand(SqlUpd, conn)
CmdNon.Parameters.Add(“@vkodebuku”, SqlDbType.Char, 5)
CmdNon.Parameters.Add(“@vjudulbuku”, SqlDbType.VarChar, 50)
CmdNon.Parameters.Add(“@vpengarang”, SqlDbType.VarChar, 50)
CmdNon.Parameters.Add(“@vpenerbit”, SqlDbType.VarChar, 50)
CmdNon.Parameters.Add(“@vjmleksemplar”, SqlDbType.Int)

Console.Write(“Masukkan Kode Buku       : “)
vkodebuku = Console.ReadLine()
Console.Write(“Masukkan Judul Buku      : “)
vjudulbuku = Console.ReadLine()
Console.Write(“Masukkan Pengarang       : “)
vpengarang = Console.ReadLine()
Console.Write(“Masukkan Penerbit        : “)
vpenerbit = Console.ReadLine()
Console.Write(“Masukkan Jumlah Eksemplar: “)
vjmleksemplar = Console.ReadLine()

SqlQryCheck = (“select * from tbdaftarbuku where kodebuku=’” & vkodebuku & “‘”)
CmdCheck = New SqlCommand
CmdCheck.Connection = conn
CmdCheck.CommandType = CommandType.Text
CmdCheck.CommandText = SqlQryCheck
Adapter = New SqlDataAdapter(CmdCheck)
DtTb = New DataTable(“Tabel_Buku”)
Adapter.Fill(DtTb)

If DtTb.Rows.Count = 0 Then
Console.WriteLine(“Data dengan kode ” & vkodebuku & ” tidak ada!, Inputkan kode yang lain!”)
Else
CmdNon.Parameters(“@vkodebuku”).Value = vkodebuku
CmdNon.Parameters(“@vjudulbuku”).Value = vjudulbuku
CmdNon.Parameters(“@vpengarang”).Value = vpengarang
CmdNon.Parameters(“@vpenerbit”).Value = vpenerbit
CmdNon.Parameters(“@vjmleksemplar”).Value = vjmleksemplar
CmdNon.CommandText = SqlUpd
CmdNon.ExecuteNonQuery()
Console.WriteLine(“Data dengan kode ” & vkodebuku & ” berhasil diubah!, Simpan Data Sukses!”)
End If
Console.WriteLine(“”)
Console.Write(“Ingin ubah data lagi? [Y/T] : “)
lagi = Console.ReadLine()
If lagi = “Y” Then
Console.Clear()
Call Ubah()
Else
conn.Close()
End If

Catch ex As Exception
Console.WriteLine(“Terjadi Kesalahan dengan detail seperti berikut :”)
Console.WriteLine(“=========================”)
Console.WriteLine(ex.ToString)
Console.WriteLine(“=========================”)
End Try
Console.Write(“Kembali Ke Menu Utama [Y/T] : “)
kmbmenu = Console.ReadLine()
If kmbmenu = “Y” Then
Console.Clear()
Call Main()
Else
Console.ReadLine()
End If
End Sub
Sub Hapus()
Console.Title = (“Hapus Data”)
Call Koneksi()
conn.Open()
Try
CmdNon = New SqlCommand(SqlDel, conn)
CmdNon.Parameters.Add(“@vkodebuku”, SqlDbType.Char, 5)
SqlDel = (“delete from tbdaftarbuku where kodebuku=@vkodebuku”)

Console.Write(“Masukkan Kode Buku    : “)
vkodebuku = Console.ReadLine()

CmdNon.Parameters(“@vkodebuku”).Value = vkodebuku
CmdNon.CommandText = SqlDel

SqlQryCheck = (“select * from tbdaftarbuku where kodebuku=’” & vkodebuku & “‘”)
CmdCheck = New SqlCommand
CmdCheck.Connection = conn
CmdCheck.CommandType = CommandType.Text
CmdCheck.CommandText = SqlQryCheck
Adapter = New SqlDataAdapter(CmdCheck)
DtTb = New DataTable(“Tabel_Buku”)
Adapter.Fill(DtTb)

If DtTb.Rows.Count = 0 Then
Console.WriteLine(“Data dengan kode ” & vkodebuku & ” tidak ada!, Inputkan kode yang lain!”)
Else
Console.Write(“Anda Yakin? [Y/T] : “)
yakin = Console.ReadLine()
If yakin = “Y” Then

CmdNon.ExecuteNonQuery()
Console.WriteLine(“Data dengan kode ” & vkodebuku & ” Telah dihapus!”)
Else
conn.Close()
End If
End If

Console.Write(“Ingin hapus data lagi? [Y/T] : “)
lagi = Console.ReadLine()
If lagi = “Y” Then
Console.Clear()
Call Hapus()
Else
conn.Close()
End If
Catch ex As Exception
Console.WriteLine(“Terjadi Kesalahan dengan detail seperti berikut :”)
Console.WriteLine(“=========================”)
Console.WriteLine(ex.ToString)
Console.WriteLine(“=========================”)
End Try
Console.Write(“Kembali Ke Menu Utama [Y/T] : “)
kmbmenu = Console.ReadLine()
If kmbmenu = “Y” Then
Console.Clear()
Call Main()
Else
Console.ReadLine()
End If
End Sub
End Module