ASP Painter
Home
Home
Samples
Samples
Purchase
Purchase
Download
Download
Documentation
Documentation


ASPPainter::Database::Read.vbs

							
'============================================================
'Sample 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



home samples purchase documentation download