Visual Basic

<br />
    Public Sub SearchByteArray(ByVal ByteArr() As Byte)<br />
        Dim strSQL As String<br />
        Dim oConn As SqlConnection<br />
        Dim oCmd As SqlCommand<br />
        Dim oBLOBParam As SqlParameter<br />
        Dim str As String = ""<br />
        '   Try<br />
        ' Create and open connection object<br />
        oConn = New SqlConnection("data source=XXX;initial catalog=CustomApps;user id=sa;pwd=xxx;")<br />
        oConn.Open()<br />
        ' Insert statement<br />
        ' Notice that @BLOBValue is a placeholder for the actual data<br />
        strSQL = "SELECT BlobField from MyImageTable where BlobField = (@BLOBValue)"<br />
        ' Create a command object<br />
        oCmd = oConn.CreateCommand()<br />
        ' Set SQL statement<br />
        oCmd.CommandText = strSQL<br />
        ' Create a command parameter<br />
        oBLOBParam = New SqlParameter("@BLOBValue", SqlDbType.Image, ByteArr.Length, ParameterDirection.Input)<br />
        ' Finally, set the actual data<br />
        oBLOBParam.Value = ByteArr<br />
        ' Add this parameter to the command<br />
        oCmd.Parameters.Add(oBLOBParam)<br />
        ' Execute SQL statement<br />
        MessageBox.Show(oCmd.ExecuteNonQuery())<br />
        ' Close the connection<br />
        oConn.Close()<br />
       <br />
    End Sub<br />