ASPPainter::Database::Write.vbs
Dim pic
Set pic = CreateObject("ASPPainter.Pictures.1")
pic.LoadFile "C:\fish.gif"
Set rs = CreateObject("adodb.recordset")
Set conn = CreateObject("adodb.Connection")
conn.Open "asppainter"
rs.Open "pictures", conn, 2,3
rs.AddNew
pic.SaveToDatabase rs.Fields("Bitmap")
rs.Update
rs.Close
pic.DestroyALL
Set pic = nothing
More samples:
Read,
Write
See also:
LoadFile, SaveToDatabase,
SaveToFile, DestroyALL