Imports MySql.Data.MySqlClient

​

Public Class Book

    Dim conn As MySqlConnection = New MySqlConnection("server=localhost;username=root;password=;database=library")

    Dim i As Integer

​

    Private Sub btnexit_Click(sender As Object, e As EventArgs) Handles btnexit.Click

        Me.Close()

    End Sub

    Private Sub Book_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

​

    Private Sub btnupdt_Click(sender As Object, e As EventArgs) Handles btnupdt.Click

        save()

​

    End Sub

    Public Sub save()

        Try

            Dim cmd As New MySqlCommand("INSERT INTO `book`(`B_Id`, `B_name`, `Author`, `Available`) VALUES (@bid,@bname,@author,@available")

            cmd.Parameters.Clear()

            cmd.Parameters.AddWithValue("@bid", MySqlDbType.VarChar).Value = txtbid.Text

            cmd.Parameters.AddWithValue("@bname", MySqlDbType.VarChar).Value = txtbname.Text

            cmd.Parameters.AddWithValue("@author", MySqlDbType.VarChar).Value = txtauther.Text

            cmd.Parameters.AddWithValue("@available", MySqlDbType.Int16).Value = txtav.Text

​

            i = cmd.ExecuteNonQuery

            If i > 0 Then

                MessageBox.Show("Record save success ...!", "BOOK", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Else

                MessageBox.Show("Record save failed ...!", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)

            End If

        Catch ex As Exception

            MsgBox(ex.Message)

        Finally

            conn.Close()

        End Try

    End Sub

​

    Private Sub btninst_Click(sender As Object, e As EventArgs) Handles btninst.Click

​

    End Sub

End Class

​

​