Scribd
Upload
14 views3 pages

Bookshop_Management_System_Codes_Fixed

The document provides essential VB.NET and SQL code snippets for a BookShop Management System, including functionalities for database connection, user authentication, adding, updating, deleting, and searching books, as well as generating bills and backing up/restoring the database. Each section includes specific SQL queries and methods for executing them. The code is structured to ensure proper opening and closing of database connections.

Uploaded by

sriram121sri
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
14 views3 pages

Bookshop_Management_System_Codes_Fixed

The document provides essential VB.NET and SQL code snippets for a BookShop Management System, including functionalities for database connection, user authentication, adding, updating, deleting, and searching books, as well as generating bills and backing up/restoring the database. Each section includes specific SQL queries and methods for executing them. The code is structured to ensure proper opening and closing of database connections.

Uploaded by

sriram121sri
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 3

BookShop Management System - Important VB.

NET & SQL Codes

1. SQL Connection String (Connecting to SQL Server)


Imports System.Data.SqlClient

Public Class DBConnection


Public Shared con As SqlConnection = New SqlConnection("Data Source=YOUR_SERVER_NAME;Initial
Catalog=BookShopDB;Integrated Security=True")

' Function to Open Connection


Public Shared Sub OpenConnection()
If con.State = ConnectionState.Closed Then
con.Open()
End If
End Sub

' Function to Close Connection


Public Shared Sub CloseConnection()
If con.State = ConnectionState.Open Then
con.Close()
End If
End Sub
End Class

2. Login System (User Authentication)


Public Function Login(ByVal username As String, ByVal password As String) As Boolean
Dim query As String = "SELECT * FROM Users WHERE Username=@user AND Password=@pass"
Using cmd As New SqlCommand(query, DBConnection.con)
cmd.Parameters.AddWithValue("@user", username)
cmd.Parameters.AddWithValue("@pass", password)

DBConnection.OpenConnection()
Dim reader As SqlDataReader = cmd.ExecuteReader()
If reader.HasRows Then
reader.Close()
DBConnection.CloseConnection()
Return True ' Login successful
End If
reader.Close()
DBConnection.CloseConnection()
End Using
Return False ' Login failed
End Function

3. Add New Book (INSERT Query)


Public Sub AddBook(ByVal title As String, ByVal author As String, ByVal category As String, ByVal
price As Decimal, ByVal stock As Integer)
Dim query As String = "INSERT INTO Books (Title, Author, Category, Price, StockQuantity)
VALUES (@title, @author, @category, @price, @stock)"
Using cmd As New SqlCommand(query, DBConnection.con)
cmd.Parameters.AddWithValue("@title", title)
cmd.Parameters.AddWithValue("@author", author)
cmd.Parameters.AddWithValue("@category", category)
cmd.Parameters.AddWithValue("@price", price)
cmd.Parameters.AddWithValue("@stock", stock)

DBConnection.OpenConnection()
cmd.ExecuteNonQuery()
DBConnection.CloseConnection()
End Using
End Sub

4. Display Books in DataGridView (SELECT Query)


Public Sub LoadBooks(ByVal dgv As DataGridView)
Dim query As String = "SELECT * FROM Books"
Dim adapter As New SqlDataAdapter(query, DBConnection.con)
Dim dt As New DataTable()

adapter.Fill(dt)
dgv.DataSource = dt
End Sub

5. Update Book Details (UPDATE Query)


Public Sub UpdateBook(ByVal bookID As Integer, ByVal title As String, ByVal price As Decimal,
ByVal stock As Integer)
Dim query As String = "UPDATE Books SET Title=@title, Price=@price, StockQuantity=@stock WHERE
BookID=@bookID"
Using cmd As New SqlCommand(query, DBConnection.con)
cmd.Parameters.AddWithValue("@bookID", bookID)
cmd.Parameters.AddWithValue("@title", title)
cmd.Parameters.AddWithValue("@price", price)
cmd.Parameters.AddWithValue("@stock", stock)

DBConnection.OpenConnection()
cmd.ExecuteNonQuery()
DBConnection.CloseConnection()
End Using
End Sub

6. Delete Book (DELETE Query)


Public Sub DeleteBook(ByVal bookID As Integer)
Dim query As String = "DELETE FROM Books WHERE BookID=@bookID"
Using cmd As New SqlCommand(query, DBConnection.con)
cmd.Parameters.AddWithValue("@bookID", bookID)

DBConnection.OpenConnection()
cmd.ExecuteNonQuery()
DBConnection.CloseConnection()
End Using
End Sub
7. Search Book (Using LIKE in SQL)
Public Sub SearchBook(ByVal searchText As String, ByVal dgv As DataGridView)
Dim query As String = "SELECT * FROM Books WHERE Title LIKE @search OR Author LIKE @search"
Dim adapter As New SqlDataAdapter(query, DBConnection.con)
adapter.SelectCommand.Parameters.AddWithValue("@search", "%" & searchText & "%")

Dim dt As New DataTable()


adapter.Fill(dt)
dgv.DataSource = dt
End Sub

8. Generate Bill (Sales Entry in Database)


Public Sub GenerateBill(ByVal customerID As Integer, ByVal totalAmount As Decimal)
Dim query As String = "INSERT INTO Sales (CustomerID, Date, TotalAmount) VALUES (@customerID,
GETDATE(), @totalAmount)"
Using cmd As New SqlCommand(query, DBConnection.con)
cmd.Parameters.AddWithValue("@customerID", customerID)
cmd.Parameters.AddWithValue("@totalAmount", totalAmount)

DBConnection.OpenConnection()
cmd.ExecuteNonQuery()
DBConnection.CloseConnection()
End Using
End Sub

9. Backup Database
Public Sub BackupDatabase(ByVal backupPath As String)
Dim query As String = "BACKUP DATABASE BookShopDB TO DISK=@backupPath"
Using cmd As New SqlCommand(query, DBConnection.con)
cmd.Parameters.AddWithValue("@backupPath", backupPath)

DBConnection.OpenConnection()
cmd.ExecuteNonQuery()
DBConnection.CloseConnection()
End Using
End Sub

10. Restore Database


Public Sub RestoreDatabase(ByVal backupPath As String)
Dim query As String = "RESTORE DATABASE BookShopDB FROM DISK=@backupPath WITH REPLACE"
Using cmd As New SqlCommand(query, DBConnection.con)
cmd.Parameters.AddWithValue("@backupPath", backupPath)

DBConnection.OpenConnection()
cmd.ExecuteNonQuery()
DBConnection.CloseConnection()
End Using
End Sub

You might also like