ASPPainter::Database::Read.vbs
Dim pic
Set pic = CreateObject("ASPPainter.Pictures.1")
Set conn = CreateObject("adodb.Connection")
Set rs = CreateObject("adodb.recordset")
conn.Open "asppainter"
rs.Open "pictures", conn, 2,3
rs.MoveFirst
rs.MoveLast
pic.LoadDatabase(rs.Fields("Bitmap"))
rs.Close
pic.SaveToFile "C:\read.png"
pic.DestroyALL
Set im = Nothing
 |
Picture 1. read.png |
More samples:
Read,
Write
See also:
LoadDatabase,
SaveToFile, DestroyALL