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 />

Dim ds As New dsEmail
        Dim emailHeaderTable As New dsEmail.EmailHeaderDataTable
        Dim emailToAdressesTable As New dsEmail.EmailToAddressesDataTable
        Dim emailHeaderAdapter As New dsEmailTableAdapters.EmailHeaderTableAdapter
        Dim EmailToAddressesTableAdapter As New dsEmailTableAdapters.EmailToAddressesTableAdapter

        emailHeaderTable = emailHeaderAdapter.GetData
        emailToAdressesTable = EmailToAddressesTableAdapter.GetData

        ds.Tables.Add(emailHeaderTable)
        ds.Tables.Add(emailToAdressesTable)

        For Each emailHeaderRow As dsEmail.EmailHeaderRow In emailHeaderTable.Rows
            Dim emailToAddressRow() As dsEmail.EmailToAddressesRow = emailHeaderRow.GetEmailToAddressesRows
            For Each toRow As dsEmail.EmailToAddressesRow In emailToAddressRow
                MsgBox(toRow.ToAddress)

            Next
        Next

clsPubConnection.GetQuery rs1, "insert query here", 1, 1
    Set dgd1.DataSource = rs1
    dgd1.Refresh

If rs.State = 1 Then rs.Close
    With rs
    .CursorType = intCursorType
    .LockType = intLockType
    .ActiveConnection = cn
    .Source = strSqlCommand
    .Open
    End With