What & How

Dim fInfo As New FileInfo(TxtImagePath.Text)

Dim len As Long = fInfo.Length

Dim stream As New FileStream(TxtImagePath.Text(), FileMode.Open)

Dim imgData() As Byte = New Byte(Convert.ToInt32(len - 1)) {}

stream.Read(imgData, 0, len)

Dim Mycon As New SqlConnection(con)

Mycon.Open()

Dim cmd As SqlCommand

Dim rowsaffected As Integer

If BtnSave.Text = "&Update" Then

cmd = New SqlCommand("sptbltrainees_DetailUpdate", Mycon)

cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.AddWithValue("@PISNO", txtPisNo.Text)

cmd.Parameters.AddWithValue("@Rank", CbRank.SelectedIndex)

cmd.Parameters.AddWithValue("@Name", TxtName.Text)

cmd.Parameters.AddWithValue("@Organisation", CbOrg.SelectedIndex)

cmd.Parameters.AddWithValue("@Unit", CbUnit.Text)

cmd.Parameters.AddWithValue("@Image", imgData)

rowsaffected = cmd.ExecuteNonQuery

MessageBox.Show(rowsaffected.ToString & " - row(s) Updated")

BtnEdit.Enabled = True

GroupBox1.Enabled = False

BtnAdd.Enabled = True

BtnDelete.Enabled = True

BtnFind.Enabled = True

BtnSave.Enabled = False

BtnSave.Text = "&Save"

Else

cmd = New SqlCommand("sptbltrainees_DetailInsert", Mycon)