Skip to main content

How To Check Picture In Database



 Private Sub CARI_FOTO()
        MyConnection.TUTUPKONEKSI()
        cmd = New SqlCommand("Select Photo, AutoRecordNoStamp From mstSTAMP " & _
                            "Where AutoRecordNoStamp='" & LblAutoStampNo.Text & "'", MyConnection.BUKAKONEKSI)
        DTR = cmd.ExecuteReader
        DTR.Read()

        'Cek kalo2 data gambar ada ato gak didalam database 01.12.2014
        If DTR("Photo").ToString <> "" Then
            Dim Gambar As New IO.MemoryStream _
            (CType(DgvSTAMP.Item(7, DgvSTAMP.CurrentRow.Index).Value, Byte()))

            ImgFOTO.SizeMode = PictureBoxSizeMode.StretchImage
            ImgFOTO.Image = Image.FromStream(Gambar)
        Else
            ImgFOTO.Image = Nothing
        End If
    End Sub

Comments

Popular posts from this blog

Pop Up message Visual Studio "The operation could not be completed. The process cannot access the file because it is being used by another process"

Run your Visual Studio as Administrator account

Create Comment As .xls In Farpoint Spread

  Private Sub TAGS_PARENTING()         Dim DTPopUp As New DataTable         With DTPopUp             .Columns.Add("SEQ", GetType(String))             .Columns.Add("QTY", GetType(String))             .Columns.Add("ETD", GetType(String))             .Columns.Add("ETA", GetType(String))             DTPopUp = MePostab_Control.Cari_TAG_PARENTING         End With         With FPPOSTAB             For GG As Integer = 0 To .ActiveSheet.RowCount - 1             ...