how to creat a database in binary format

Public Class cateloges

Dim serialno As Integer

Dim updatebt As Boolean = False

Dim total As Double = 0.0

Dim img As String = ""

Private Sub btref_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btref.Click

' On Error GoTo errorhandler

Dim photo As String

txtcode.Text = ""

img = Getapp() & "\inspireimage\noimg.jpg"

Exit Sub

MsgBox("ERROR:-" & Microsoft.VisualBasic.vbCrLf & Err.Description)

End Sub

Private Sub btbrow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbrow.Click

' On Error GoTo errorhandler

If OpenFileDialog1.FileName <> "OpenFileDialog1" Then

If updatebt = False Then

Call setimgpath(CStr(OpenFileDialog1.FileName), "2")

Else

Call setimgpath(CStr(OpenFileDialog1.FileName), "3")

End If

Call disconnect()

Call connect()

cmd.CommandText = "delete from temp"

Dim ms1 As FileStream = New FileStream(OpenFileDialog1.FileName, FileMode.Open)

Dim arr As Byte() = New Byte(ms1.Length) {}

cmd.CommandText = ""

Dim str As String = "INSERT INTO temp(tempimg) VALUES(@temp)"

Dim cmd11 As New SqlClient.SqlCommand(str, con)

Dim temp As SqlParameter = New SqlParameter("@temp", SqlDbType.Image)

' title

'copyimg()

Dim str1 As String = "select tempimg from temp"

Dim cmd12 As New SqlClient.SqlCommand(str, con)

Call connect()

Dim arr1 As Byte() = CType(cmd11.ExecuteScalar, Byte())

Dim ms2 As MemoryStream = New MemoryStream(arr)

Else

img = Getapp() & "\inspireimage\noimg.jpg"

End If

Exit Sub

MsgBox("ERROR:-" & Microsoft.VisualBasic.vbCrLf & Err.Description)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Me.Close()

End Sub

Private Sub cateloges_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclose.Click

Me.Close()

End Sub

'Private Sub caltotal()

' Dim i As Integer = 0

' txttotalpc.Text = 0

' For i = 0 To DataGridView1.Rows.Count - 1

' txttotalpc.Text = Val(txtpc.Text) + Val(DataGridView1.Rows(i).Cells(4).Value)

' Next

'End Sub

Private Sub btedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btedit.Click

' On Error GoTo errorhandler

btnew.Visible = True

btedit.Visible = False

txtcode.Visible = False

cbcode.Visible = True

updatebt = True

Call fillcatlog()

Exit Sub

'------------------------------error handling----------------------------

MsgBox("ERROR:-" & Microsoft.VisualBasic.vbCrLf & Err.Description)

End Sub

Private Sub btnew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnew.Click

' On Error GoTo errorhandler

btnew.Visible = False

btedit.Visible = True

txtcode.Visible = True

cbcode.Visible = False

updatebt = False

Call fillcatlog()

Exit Sub

'------------------------------error handling----------------------------

MsgBox("ERROR:-" & Microsoft.VisualBasic.vbCrLf & Err.Description)

End Sub

Private Sub cateloges_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call checkmatel()

Call fillcatlog()

Call fillcombo()

rbtgold.Checked = True

End Sub

Private Sub fillcatlog()

'On Error GoTo errorhandler

txtgwt.Text = ""

txtngwt.Text = "0"

txtnswt.Text = "0"

txtstogross.Text = ""

txtpc.Text = ""

txtwt.Text = ""

img = Getapp() & "\inspireimage\noimg.jpg"

Call disconnect()

Exit Sub

'------------------------------error handling----------------------------

MsgBox("ERROR:-" & Microsoft.VisualBasic.vbCrLf & Err.Description)

End Sub

Private Sub fillcombo()

' On Error GoTo errorhandler

Call connect()

cmd.CommandText = "select purity_id,purity_code from puritymaster order by purity_id"

While dr.Read = True

End While

cmd.CommandText = "select stonename_id, stonename_name from stonenamemaster order by stonename_id"

While dr.Read = True

End While

cmd.CommandText = "select stoneshape_id, stoneshape_name from stoneshapesizemaster order by stoneshape_id "

While dr.Read = True

End While

cmd.CommandText = "select * from catalogtype order by cata_type asc"

While dr.Read = True

End While

Exit Sub

'------------------------------error handling----------------------------

MsgBox("ERROR:-" & Microsoft.VisualBasic.vbCrLf & Err.Description)

End Sub

Private Sub cbstoname_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbstoname.SelectedIndexChanged

' On Error GoTo errorhandler

Call connect()

txtstocolor.Text = ""

cmd1.CommandText = "select * from stonenamemaster where stonename_id=" & Val(cbstnameid.Text)

If dr1.Read = True Then

If IsDBNull(dr1.Item(2)) = False Then

End If

End If

Exit Sub

'------------------------------error handling----------------------------

MsgBox("ERROR:-" & Microsoft.VisualBasic.vbCrLf & Err.Description)

End Sub

Private Sub calgstone()

On Error GoTo errorhandler

Dim i As Integer

For i = 0 To DataGridView1.Rows.Count - 1

Next

Exit Sub

'------------------------------error handling----------------------------

MsgBox("ERROR:-" & Microsoft.VisualBasic.vbCrLf & Err.Description)

End Sub

Private Sub btadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btadd.Click

On Error GoTo errorhandler

If txtpc.Text <> "" And txtwt.Text <> "" Then

Call calgstone()

txtpc.Text = ""

txtwt.Text = ""

Else

MsgBox("Please Enter PC Value and Wt")

End If

Exit Sub

'------------------------------error handling----------------------------

MsgBox("ERROR:-" & Microsoft.VisualBasic.vbCrLf & Err.Description)

' Call caltotal()

End Sub

Private Sub btsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsave.Click

On Error GoTo errorhandler

Call connect()

'Call caltotal()

Dim i As Integer

Dim mgn As String = ""

Dim mgn1 As Double

Call calgstone()

If updatebt = False Then

If txtcode.Text = "" Then

MsgBox("Design Code Should not be blank")

Exit Sub

End If

Dim ms1 As FileStream = New FileStream(img, FileMode.Open)

Dim arr As Byte() = New Byte(ms1.Length) {}

cmd.CommandText = ""

Dim str As String = "INSERT INTO catalogmaster(cat_design_id,cat_img,purity_id,cat_itemgrosswt,cat_netgoldwt,cat_netsilverwt,cat_stonewt,cat_type,cat_totalpc) VALUES(@srno,@pic,@pid,@cat_itgross,@goldwt,@silverwt,@cat_swt,@catype,@totalpc)"

Dim cmd11 As New SqlClient.SqlCommand(str, con)

Dim srno As SqlParameter = New SqlParameter("@srno", SqlDbType.NVarChar, 50)

Dim catype As SqlParameter = New SqlParameter("@catype", SqlDbType.NVarChar, 50)

Dim pid As SqlParameter = New SqlParameter("@pid", SqlDbType.Int)

Dim cat_itgross As SqlParameter = New SqlParameter("@cat_itgross", SqlDbType.Float)

Dim goldwt As SqlParameter = New SqlParameter("@goldwt", SqlDbType.Float)

Dim silverwt As SqlParameter = New SqlParameter("@silverwt", SqlDbType.Float)

Dim cat_swt As SqlParameter = New SqlParameter("@cat_swt", SqlDbType.Float)

Dim pic As SqlParameter = New SqlParameter("@pic", SqlDbType.Image)

Dim totalpc As SqlParameter = New SqlParameter("@totalpc", SqlDbType.NVarChar, 50)

cmd1.CommandText = "Select cat_id from catalogmaster where cat_design_id='" & txtcode.Text & "'"

If dr.Read = True Then

Dim catid As Integer

For i = 0 To DataGridView1.Rows.Count - 1

cmd1.CommandText = "insert into catalogstonedetail values(" & catid & ",'" & DataGridView1.Rows(i).Cells(0).Value & "','" & DataGridView1.Rows(i).Cells(1).Value & "','" & DataGridView1.Rows(i).Cells(2).Value & "','" & DataGridView1.Rows(i).Cells(3).Value & "'," & Val(DataGridView1.Rows(i).Cells(4).Value) & "," & Val(DataGridView1.Rows(i).Cells(5).Value) & ")"

Next

End If

Else

If cbcode.Text = "" Then

MsgBox("Design Code Should not be blank")

Exit Sub

End If

cmd1.CommandText = "delete from catalogstonedetail where cat_id=" & Val(cbcatid.Text)

For i = 0 To DataGridView1.Rows.Count - 1

cmd1.CommandText = "insert into catalogstonedetail values(" & cbcatid.Text & ",'" & DataGridView1.Rows(i).Cells(0).Value & "','" & DataGridView1.Rows(i).Cells(1).Value & "','" & DataGridView1.Rows(i).Cells(2).Value & "','" & DataGridView1.Rows(i).Cells(3).Value & "'," & Val(DataGridView1.Rows(i).Cells(4).Value) & "," & Val(DataGridView1.Rows(i).Cells(5).Value) & ")"

Next

cmd.CommandText = ""

Dim str As String = "Update catalogmaster set cat_design_id=@srno,purity_id=@pid,cat_itemgrosswt=@cat_itgross,cat_netgoldwt=@goldwt,cat_netsilverwt=@silverwt,cat_stonewt=@cat_swt,cat_type=@catype,cat_totalpc=@totalpc where cat_id = " & Val(cbcatid.Text)

Dim cmd11 As New SqlClient.SqlCommand(str, con)

Dim srno As SqlParameter = New SqlParameter("@srno", SqlDbType.NVarChar, 50)

Dim pid As SqlParameter = New SqlParameter("@pid", SqlDbType.Int)

Dim cat_itgross As SqlParameter = New SqlParameter("@cat_itgross", SqlDbType.Float)

Dim catype As SqlParameter = New SqlParameter("@catype", SqlDbType.NVarChar, 50)

Dim goldwt As SqlParameter = New SqlParameter("@goldwt", SqlDbType.Float)

Dim silverwt As SqlParameter = New SqlParameter("@silverwt", SqlDbType.Float)

Dim cat_swt As SqlParameter = New SqlParameter("@cat_swt", SqlDbType.Float)

Dim totalpc As SqlParameter = New SqlParameter("@totalpc", SqlDbType.NVarChar, 50)

'Dim path As String

'path = Getapp() & "\inspireimage\noimg.jpg"

If img <> "" Then

Dim str1 As String = "update catalogmaster set cat_img=@pic where cat_id=" & Val(cbcatid.Text)

Dim cmd12 As New SqlClient.SqlCommand(str1, con)

Dim ms1 As FileStream = New FileStream(img, FileMode.Open)

Dim arr As Byte() = New Byte(ms1.Length) {}

Dim pic As SqlParameter = New SqlParameter("@pic", SqlDbType.Image)

End If

'cmd1.Connection = con

'cmd1.CommandText = "Select cat_id from catalogmaster where cat_design_id='" & txtcode.Text & "'"

'dr = cmd1.ExecuteReader

'If dr.Read = True Then

' Dim catid As Integer

' catid = dr.Item(0)

' dr.Close()

' For i = 0 To DataGridView1.Rows.Count - 1

' cmd1.Connection = con

' cmd1.CommandText = "insert into catalogstonedetail values(" & catid & ",'" & DataGridView1.Rows(i).Cells(0).Value & "','" & DataGridView1.Rows(i).Cells(1).Value & "','" & DataGridView1.Rows(i).Cells(2).Value & "'," & Val(DataGridView1.Rows(i).Cells(3).Value) & "," & Val(DataGridView1.Rows(i).Cells(4).Value) & ")"

' cmd1.ExecuteNonQuery()

' Next

'End If

End If

MsgBox("Information Save")

Call fillcatlog()

Dim k As Integer = 0

Call disconnect()

Exit Sub

'------------------------------error handling----------------------------

MsgBox("ERROR:-" & Microsoft.VisualBasic.vbCrLf & Err.Description)

End Sub

Private Sub cbcatid_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbcatid.SelectedIndexChanged

End Sub

Private Sub cbcode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbcode.SelectedIndexChanged

On Error GoTo errorhandler

txtgwt.Text = ""

txtngwt.Text = ""

txtnswt.Text = ""

txtstogross.Text = ""

txtpc.Text = ""

txtwt.Text = ""

If Val(cbcatid.Text) > 0 Then

Call connect()

cmd2.CommandText = "select * from catalogmaster where cat_id=" & Val(cbcatid.Text)

If dr2.Read = True Then

If IsDBNull(dr2.Item(3)) = False Then

End If

If IsDBNull(dr2.Item(4)) = False Then

End If

If IsDBNull(dr2.Item(5)) = False Then

End If

If IsDBNull(dr2.Item(6)) = False Then

End If

If IsDBNull(dr2.Item(7)) = False Then

End If

If IsDBNull(dr2.Item(9)) = False Then

End If

End If

cmd2.CommandText = "select * from catalogstonedetail where cat_id=" & Val(cbcatid.Text)

While dr2.Read

End While

Dim str As String = "select cat_img from catalogmaster where cat_id=" & Val(cbcatid.Text)

Dim cmd11 As New SqlClient.SqlCommand(str, con)

Call connect()

Dim arr As Byte() = CType(cmd11.ExecuteScalar, Byte())

Dim ms1 As MemoryStream = New MemoryStream(arr)

img = ""

Exit Sub

If Err.Number = 53 Then

Else

MsgBox("ERROR:-" & Microsoft.VisualBasic.vbCrLf & Err.Description)

End If

Else

End If

End Sub

Private Sub cbstoshape_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbstoshape.SelectedIndexChanged

' On Error GoTo errorhandler

Call connect()

txtsize.Text = ""

cmd1.CommandText = "select * from stoneshapesizemaster where stoneshape_id=" & Val(cbstshapeid.Text)

If dr1.Read = True Then

If IsDBNull(dr1.Item(2)) = False Then

End If

End If

Exit Sub

'------------------------------error handling----------------------------

MsgBox("ERROR:-" & Microsoft.VisualBasic.vbCrLf & Err.Description)

End Sub

Private Sub cbstshapeid_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbstshapeid.SelectedIndexChanged

End Sub

Private Sub btfull_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btfull.Click

End Sub

Private Sub cbpucode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbpucode.SelectedIndexChanged

On Error GoTo errorhandler

Call connect()

cmd1.CommandText = "select * from puritymaster where purity_code='" & cbpucode.Text & "'"

While dr3.Read

End While

Exit Sub

'--------- Error Handling---------

MsgBox("ERROR:-" & Microsoft.VisualBasic.vbCrLf & Err.Description)

End Sub

Private Sub cbputype_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbputype.SelectedIndexChanged

On Error GoTo errorhandler

Call connect()

cmd1.CommandText = "select * from puritymaster where purity_id=" & Val(cbpuid.Text)

If dr1.Read = True Then

If IsDBNull(dr1.Item(3)) = False Then

End If

End If

Exit Sub

'--------- Error Handling---------

MsgBox("ERROR:-" & Microsoft.VisualBasic.vbCrLf & Err.Description)

End Sub

Private Sub checkmatel()

If rbtgold.Checked = True Then

txtnswt.Enabled = False

txtngwt.Enabled = True

Call connect()

cmd.CommandText = "select * from puritytype where purity_matel='gold' order by purity_id asc"

While dr.Read

End While

Else

If rbtsilver.Checked = True Then

txtngwt.Enabled = False

txtnswt.Enabled = True

Call connect()

cmd.CommandText = "select * from puritytype where purity_matel='silver' order by purity_id asc"

While dr.Read

End While

End If

End If

End Sub

Private Sub rbtgold_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtgold.CheckedChanged

Call checkmatel()

'If rbtgold.Checked = True Then

' Call connect()

' cmd.Connection = con

' cmd.CommandText = "select * from puritytype where purity_matel='gold' order by purity_id asc"

' dr = cmd.ExecuteReader

' cbpucode.Items.Clear()

' While dr.Read

' cbpucode.Items.Add(dr(1))

' cbpucode.SelectedIndex = 0

' End While

' dr.Close()

'End If

End Sub

Private Sub rbtsilver_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtsilver.CheckedChanged

Call checkmatel()

'If rbtsilver.Checked = True Then

' Call connect()

' cmd.Connection = con

' cmd.CommandText = "select * from puritytype where purity_matel='silver' order by purity_id asc"

' dr = cmd.ExecuteReader

' cbpucode.Items.Clear()

' While dr.Read

' cbpucode.Items.Add(dr(1))

' cbpucode.SelectedIndex = 0

' End While

' dr.Close()

'End If

End Sub

Private Sub cbdtype_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbdtype.SelectedIndexChanged

Dim a As Integer = 1

Dim code As String = ""

Call connect()

cmd.CommandText = "select cat_id,cat_design_id from catalogmaster where cat_type='" & cbdtype.Text & "'"

cbcode.Items.Add("Select")

cbcatid.Items.Add("Select")

While dr4.Read = True

End While

code = cbdtype.Text & "-" & a

txtgwt.Text = ""

txtngwt.Text = ""

txtnswt.Text = ""

txtstogross.Text = ""

txtpc.Text = ""

txtwt.Text = ""

End Sub

Private Sub DataGridView1_RowsRemoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewRowsRemovedEventArgs) Handles DataGridView1.RowsRemoved

Call calgstone()

'Call caltotal()

End Sub

Private Sub cbstnameid_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbstnameid.SelectedIndexChanged

End Sub

End Class