how to creat a database in binary format

Question

i have to create a sql database in binary format is it possible to create and transaction on binary database if yes then please give me wright the suggestion this is my contact no 09273172515 if any buddy wants a extra information thank you

hitesh bansal · Answer

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 PictureBox1.BackgroundImage = PictureBox2.BackgroundImage txtcode.Text =  img = Getapp() & \inspireimage
oimg.jpg Exit Sub errorhandler: MsgBox( ERROR:- & Microsoft.VisualBasic.vbCrLf & Err.Description) disconnect() End Sub Private Sub btbrow_Click( ByVal sender As System.Object ByVal e As System.EventArgs) Handles btbrow.Click ' On Error GoTo errorhandler PictureBox1.BackgroundImage = PictureBox2.BackgroundImage OpenFileDialog1.ShowDialog() 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.Connection = con cmd.CommandText = delete from temp cmd.ExecuteNonQuery() Dim ms1 As FileStream = New FileStream(OpenFileDialog1.FileName FileMode.Open) Dim arr As Byte () = New Byte (ms1.Length) {} ms1.Read(arr 0 ms1.Length) ms1.Close() 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) temp.Value = arr cmd11.Parameters.Add(temp) ' title cmd11.ExecuteNonQuery() 'copyimg() img = OpenFileDialog1.FileName 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) PictureBox1.BackgroundImageLayout = ImageLayout.Stretch PictureBox1.BackgroundImage = Image.FromStream(ms2) Else img = Getapp() & \inspireimage
oimg.jpg End If Exit Sub errorhandler: MsgBox( ERROR:- & Microsoft.VisualBasic.vbCrLf & Err.Description) disconnect() 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 closemaster() 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---------------------------- errorhandler: 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---------------------------- errorhandler: 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 =  DataGridView1.Rows.Clear() txtpc.Text =  txtwt.Text =  img = Getapp() & \inspireimage
oimg.jpg PictureBox1.BackgroundImage = PictureBox2.BackgroundImage Call disconnect() Exit Sub '------------------------------error handling---------------------------- errorhandler: MsgBox( ERROR:- & Microsoft.VisualBasic.vbCrLf & Err.Description) End Sub Private Sub fillcombo() ' On Error GoTo errorhandler Call connect() cmd.Connection = con cmd.CommandText = select purity_idpurity_code from puritymaster order by purity_id dr = cmd.ExecuteReader cbpuid.Items.Clear() cbpucode.Items.Clear() While dr.Read = True cbpuid.Items.Add(dr.Item(0)) cbpucode.Items.Add(dr.Item(1)) cbpuid.SelectedIndex = 0 cbpucode.SelectedIndex = 0 End While dr.Close() cmd.CommandText = select stonename_id stonename_name from stonenamemaster order by stonename_id dr = cmd.ExecuteReader cbstnameid.Items.Clear() cbstoname.Items.Clear() While dr.Read = True cbstnameid.Items.Add(dr.Item(0)) cbstoname.Items.Add(dr.Item(1)) cbstnameid.SelectedIndex = 0 cbstoname.SelectedIndex = 0 End While dr.Close() cmd.CommandText = select stoneshape_id stoneshape_name from stoneshapesizemaster order by stoneshape_id  dr = cmd.ExecuteReader cbstshapeid.Items.Clear() cbstoshape.Items.Clear() While dr.Read = True cbstshapeid.Items.Add(dr.Item(0)) cbstoshape.Items.Add(dr.Item(1)) cbstshapeid.SelectedIndex = 0 cbstoshape.SelectedIndex = 0 End While dr.Close() cmd.CommandText = select * from catalogtype order by cata_type asc dr = cmd.ExecuteReader cbdtype.Items.Clear() While dr.Read = True cbdtype.Items.Add(dr.Item(1)) cbdtype.SelectedIndex = 0 End While dr.Close() Exit Sub '------------------------------error handling---------------------------- errorhandler: 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 cbstnameid.SelectedIndex = cbstoname.SelectedIndex Call connect() txtstocolor.Text =  cmd1.Connection = con cmd1.CommandText = select * from stonenamemaster where stonename_id= & Val(cbstnameid.Text) dr1 = cmd1.ExecuteReader If dr1.Read = True Then If IsDBNull(dr1.Item(2)) = False Then txtstocolor.Text = dr1.Item(2) End If End If dr1.Close() Exit Sub '------------------------------error handling---------------------------- errorhandler: MsgBox( ERROR:- & Microsoft.VisualBasic.vbCrLf & Err.Description) End Sub Private Sub calgstone() On Error GoTo errorhandler Dim i As Integer txtstogross.Text = 0 txttotalpc.Text = 0 For i = 0 To DataGridView1.Rows.Count - 1 txttotalpc.Text = txttotalpc.Text + Val(DataGridView1.Rows(i).Cells(4).Value) txtstogross.Text = txtstogross.Text + Val(DataGridView1.Rows(i).Cells(5).Value) Next Exit Sub '------------------------------error handling---------------------------- errorhandler: 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 DataGridView1.Rows.Add(cbstoname.Text txtstocolor.Text cbstoshape.Text txtsize.Text txtpc.Text txtwt.Text) Call calgstone() cbstoname.SelectedIndex = 0 cbstoshape.SelectedIndex = 0 txtpc.Text =  txtwt.Text =  Else MsgBox( Please Enter PC Value and Wt ) End If txtgwt.Text = Val(txtngwt.Text) + Val(txtnswt.Text) + (Val(txtstogross.Text) / 5) Exit Sub '------------------------------error handling---------------------------- errorhandler: 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 cmd1.Connection = con 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) {} ms1.Read(arr 0 ms1.Length) ms1.Close() cmd.CommandText =  Dim str As String = INSERT INTO catalogmaster(cat_design_idcat_imgpurity_idcat_itemgrosswtcat_netgoldwtcat_netsilverwtcat_stonewtcat_typecat_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) srno.Value = txtcode.Text cmd11.Parameters.Add(srno) Dim catype As SqlParameter = New SqlParameter( @catype  SqlDbType.NVarChar 50) catype.Value = cbdtype.Text cmd11.Parameters.Add(catype) Dim pid As SqlParameter = New SqlParameter( @pid  SqlDbType.Int) pid.Value = Val(cbpuid.Text) cmd11.Parameters.Add(pid) Dim cat_itgross As SqlParameter = New SqlParameter( @cat_itgross  SqlDbType.Float) cat_itgross.Value = Val(txtgwt.Text) cmd11.Parameters.Add(cat_itgross) Dim goldwt As SqlParameter = New SqlParameter( @goldwt  SqlDbType.Float) goldwt.Value = Val(txtngwt.Text) cmd11.Parameters.Add(goldwt) Dim silverwt As SqlParameter = New SqlParameter( @silverwt  SqlDbType.Float) silverwt.Value = Val(txtnswt.Text) cmd11.Parameters.Add(silverwt) Dim cat_swt As SqlParameter = New SqlParameter( @cat_swt  SqlDbType.Float) cat_swt.Value = Val(txtstogross.Text) cmd11.Parameters.Add(cat_swt) Dim pic As SqlParameter = New SqlParameter( @pic  SqlDbType.Image) pic.Value = arr cmd11.Parameters.Add(pic) Dim totalpc As SqlParameter = New SqlParameter( @totalpc  SqlDbType.NVarChar 50) totalpc.Value = Val(txttotalpc.Text) cmd11.Parameters.Add(totalpc) cmd11.ExecuteNonQuery() 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 & '' & DataGridView1.Rows(i).Cells(3).Value & ' & Val(DataGridView1.Rows(i).Cells(4).Value) &  & Val(DataGridView1.Rows(i).Cells(5).Value) & ) cmd1.ExecuteNonQuery() Next End If Else cmd1.Connection = con 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) cmd1.ExecuteNonQuery() For i = 0 To DataGridView1.Rows.Count - 1 cmd1.Connection = con 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) & ) cmd1.ExecuteNonQuery() Next cmd.CommandText =  Dim str As String = Update catalogmaster set cat_design_id=@srnopurity_id=@pidcat_itemgrosswt=@cat_itgrosscat_netgoldwt=@goldwtcat_netsilverwt=@silverwtcat_stonewt=@cat_swtcat_type=@catypecat_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) srno.Value = txtcode.Text cmd11.Parameters.Add(srno) Dim pid As SqlParameter = New SqlParameter( @pid  SqlDbType.Int) pid.Value = Val(cbpuid.Text) cmd11.Parameters.Add(pid) Dim cat_itgross As SqlParameter = New SqlParameter( @cat_itgross  SqlDbType.Float) cat_itgross.Value = Val(txtgwt.Text) cmd11.Parameters.Add(cat_itgross) Dim catype As SqlParameter = New SqlParameter( @catype  SqlDbType.NVarChar 50) catype.Value = cbdtype.Text cmd11.Parameters.Add(catype) Dim goldwt As SqlParameter = New SqlParameter( @goldwt  SqlDbType.Float) goldwt.Value = Val(txtngwt.Text) cmd11.Parameters.Add(goldwt) Dim silverwt As SqlParameter = New SqlParameter( @silverwt  SqlDbType.Float) silverwt.Value = Val(txtnswt.Text) cmd11.Parameters.Add(silverwt) Dim cat_swt As SqlParameter = New SqlParameter( @cat_swt  SqlDbType.Float) cat_swt.Value = Val(txtstogross.Text) cmd11.Parameters.Add(cat_swt) Dim totalpc As SqlParameter = New SqlParameter( @totalpc  SqlDbType.NVarChar 50) totalpc.Value = txttotalpc.Text cmd11.Parameters.Add(totalpc) 'Dim path As String 'path = Getapp() & \inspireimage
oimg.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) {} ms1.Read(arr 0 ms1.Length) ms1.Close() Dim pic As SqlParameter = New SqlParameter( @pic  SqlDbType.Image) pic.Value = arr cmd12.Parameters.Add(pic) cmd12.ExecuteNonQuery() 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 k = cbdtype.SelectedIndex cbdtype.SelectedIndex = 0 cbdtype.SelectedIndex = k Call disconnect() Exit Sub '------------------------------error handling---------------------------- errorhandler: 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 cbcode.SelectedIndex = cbcatid.SelectedIndex End Sub Private Sub cbcode_SelectedIndexChanged( ByVal sender As System.Object ByVal e As System.EventArgs) Handles cbcode.SelectedIndexChanged On Error GoTo errorhandler cbcatid.SelectedIndex = cbcode.SelectedIndex txtgwt.Text =  txtngwt.Text =  txtnswt.Text =  txtstogross.Text =  DataGridView1.Rows.Clear() txtpc.Text =  txtwt.Text =  If Val(cbcatid.Text) > 0 Then Call connect() cmd2.Connection = con cmd2.CommandText = select * from catalogmaster where cat_id= & Val(cbcatid.Text) dr2 = cmd2.ExecuteReader If dr2.Read = True Then If IsDBNull(dr2.Item(3)) = False Then cbpuid.SelectedItem = dr2.Item(3) End If If IsDBNull(dr2.Item(4)) = False Then txtgwt.Text = dr2.Item(4) End If If IsDBNull(dr2.Item(5)) = False Then txtngwt.Text = dr2.Item(5) End If If IsDBNull(dr2.Item(6)) = False Then txtnswt.Text = dr2.Item(6) End If If IsDBNull(dr2.Item(7)) = False Then txtstogross.Text = dr2.Item(7) End If If IsDBNull(dr2.Item(9)) = False Then txttotalpc.Text = dr2.Item(9) End If End If dr2.Close() cmd2.Connection = con cmd2.CommandText = select * from catalogstonedetail where cat_id= & Val(cbcatid.Text) dr2 = cmd2.ExecuteReader While dr2.Read DataGridView1.Rows.Add(dr2.Item(1) dr2.Item(2) dr2.Item(3) dr2.Item(4) dr2.Item(5) dr2.Item(6)) End While dr2.Close() 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) PictureBox1.BackgroundImageLayout = ImageLayout.Stretch PictureBox1.BackgroundImage = Image.FromStream(ms1) img =  Exit Sub errorhandler: If Err.Number = 53 Then PictureBox1.BackgroundImage = PictureBox2.BackgroundImage Else MsgBox( ERROR:- & Microsoft.VisualBasic.vbCrLf & Err.Description) End If Else PictureBox1.BackgroundImage = PictureBox2.BackgroundImage 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 cbstshapeid.SelectedIndex = cbstoshape.SelectedIndex Call connect() txtsize.Text =  cmd1.Connection = con cmd1.CommandText = select * from stoneshapesizemaster where stoneshape_id= & Val(cbstshapeid.Text) dr1 = cmd1.ExecuteReader If dr1.Read = True Then If IsDBNull(dr1.Item(2)) = False Then txtsize.Text = dr1.Item(2) End If End If dr1.Close() Exit Sub '------------------------------error handling---------------------------- errorhandler: 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 cbstoshape.SelectedIndex = cbstshapeid.SelectedIndex End Sub Private Sub btfull_Click( ByVal sender As System.Object ByVal e As System.EventArgs) Handles btfull.Click frm_image.PictureBox1.BackgroundImage = PictureBox1.BackgroundImage frm_image.ShowDialog() 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.Connection = con cmd1.CommandText = select * from puritymaster where purity_code=' & cbpucode.Text & ' dr3 = cmd1.ExecuteReader cbputype.Items.Clear() cbpuid.Items.Clear() While dr3.Read cbpuid.Items.Add(dr3.Item(0)) cbputype.Items.Add(dr3.Item(2)) cbputype.SelectedIndex = 0 cbpuid.SelectedIndex = 0 End While dr3.Close() Exit Sub '--------- Error Handling--------- errorhandler: 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 cbpuid.SelectedIndex = cbputype.SelectedIndex txtpuval.Text = cbputype.SelectedItem On Error GoTo errorhandler Call connect() cmd1.Connection = con cmd1.CommandText = select * from puritymaster where purity_id= & Val(cbpuid.Text) dr1 = cmd1.ExecuteReader If dr1.Read = True Then If IsDBNull(dr1.Item(3)) = False Then txtpurremark.Text = dr1.Item(3) End If End If dr1.Close() Exit Sub '--------- Error Handling--------- errorhandler: 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.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() Else If rbtsilver.Checked = True Then txtngwt.Enabled = False txtnswt.Enabled = True 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 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.Connection = con cmd.CommandText = select cat_idcat_design_id from catalogmaster where cat_type=' & cbdtype.Text & ' dr4 = cmd.ExecuteReader cbcode.Items.Clear() cbcatid.Items.Clear() cbcode.Items.Add( Select ) cbcatid.Items.Add( Select ) While dr4.Read = True cbcode.Items.Add(dr4.Item(1)) cbcatid.Items.Add(dr4.Item(0)) a = a + 1 End While cbcode.SelectedIndex = 0 cbcatid.SelectedIndex = 0 code = cbdtype.Text & - & a dr4.Close() txtcode.Text = code txtgwt.Text =  txtngwt.Text =  txtnswt.Text =  txtstogross.Text =  DataGridView1.Rows.Clear() 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