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

VS2015 using Bootstrap

this is how you gonna do that.. yes it is sometimes learning using tutorial book makes us boring.. so this tutorial is how to make it simple but very useful in understanding Tutorial To Download

CheckBox dalam DataGridView VB.Net

Pada saat membuat aplikasi (VB.Net) untuk materi skripsi, terbesit bagaimana cara baru untuk memberikan hak akses user secara dinamis pada sistem. setelah dicoba dengan tanya-tanya. akhirnya bisa mendapatkan cara itu... wah sesuatu banget dah.... inti dari posting ini hanya pada barisan kode berikut : Private Sub BtnSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSIMPAN.Click Dim Y As String = Mid(CmbUSER.Text, 1, 7) Dim iROW As Integer Dim AKSES As String For iROW = 0 To DGVSample.Rows.Count - 1 'AksesBox = Nama CheckBox yang ada di DatagridView If DGVSample.Rows(iROW).Cells("AksesBox").Value Then ...

APLIKASI TERBILANG VB.NET DENGAN CLASS

Agan-agan sekalian, kali ini kita akan coba untuk membuat Aplikasi Terbilang VB.Net 2005. seperti tutorial sebelumnya buatlah sebuah form aplikasi untuk me-run lalu tambahkan sebuah CLASS pada aplikasi anda dan isikan kodingnya seperti dibawah ini dengan seksama Public Class CLASS_TERBILANG Public Function ANGKA_TERBILANG(ByVal n As Double) As String Dim SATUAN As String() = {"", "SATU", "DUA", "TIGA", "EMPAT", "LIMA", _ "ENAM", "TUJUH", "DELAPAN", "SEMBILAN", "SEPULUH", "SEBELAS"} Select Case n Case 0 To 11 ANGKA_TERBILANG = " " + SATUAN(Fix(n)) Case 12 To 19 ANGKA_TERBILANG = ANGKA_TERBILANG(n Mod 10) + " BELAS" Case 20 To 99 ANGKA_TERBILANG = ANGKA_TERBILANG(Fix(n / 10)) + " PULUH" + _ ANGK...

OPRAG-OPREG

Search This Blog