قطعه کد خواندن عکس از دیتابیس آفلاین

[reza16 2]

سلام دوستان من قطعه کد خواندن عکس از دیتابیس آفلاین را میخواهم اگه میشه راهنمایی کنید .با تشکر

[shahab.es 5,429]

سلام

Dim bit1 As Bitmap
	   Cur = SQL.ExecQuery("SELECT * FROM tbl")
    Cur.Position = 0
    Dim Buffer() As Byte
    Buffer = Cur.GetBlob("image")
    Dim InputStream1 As InputStream
    InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
    bit1.Initialize2(InputStream1)
    InputStream1.Close
	Cur.Close