Dim filesize As UInt32
Dim ms As New MemoryStream
pbBookImg1.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim imgbyte() As Byte = ms.GetBuffer
filesize = ms.Length
Dim sql As String
Dim dt As String
dt = Format(Now, "yyyy-MM-dd")
Select Case btnSave.Tag
Case "Add"
sql = "Insert into tbl_bookmaster(bookID,title,isbn,pages,langID,edition,authID,pubID,pubYear,secID,description,totalCopies,bookImg,dtCreated,isDelete) values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)"
Call addBookID()
Case "Update"
sql = "Update tbl_bookmaster set bookID=?,title=?,isbn=?,pages=?,langID=?,edition=?,authID=?,pubID=?,pubYear=?,secID=?,description=?,totalCopies=?,bookImg=? where bookID='" & Trim(dgvBookMaster.Tag) & "'"
End Select
cmd = New Odbc.OdbcCommand(sql, con)
cmd.Parameters.AddWithValue("?", lblBookID.Text)
cmd.Parameters.AddWithValue("?", txtTitle.Text)
cmd.Parameters.AddWithValue("?", txtISBN.Text)
cmd.Parameters.AddWithValue("?", txtPages.Text)
cmd.Parameters.AddWithValue("?", cbxLang.SelectedValue)
cmd.Parameters.AddWithValue("?", txtEdition.Text)
cmd.Parameters.AddWithValue("?", cbxAuth.SelectedValue)
cmd.Parameters.AddWithValue("?", cbxPublisher.SelectedValue)
cmd.Parameters.AddWithValue("?", txtYrPublished.Text)
cmd.Parameters.AddWithValue("?", cbxSection.SelectedValue)
cmd.Parameters.AddWithValue("?", txtDescription.Text)
cmd.Parameters.AddWithValue("?", txtCopies.Text)
cmd.Parameters.AddWithValue("?", imgbyte)
cmd.Parameters.AddWithValue("?", dt)
cmd.ExecuteNonQuery()
Call cleaner(tpDetails)
Call dgvloader("Select bookID,title,isbn,edition,fullName,pubDesc,pubYear,secDesc from vw_bookmaster where isDelete=0", dgvBookMaster)
lblBookID.Text = ""
dgvBookMaster.Tag = ""
tcBooks.SelectedTab = tpMain
Call buttEnabler(pnlLside, False)
ms.Close()
ms.Dispose()
da.Dispose()