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


ASPPainter::Database::Write.vbs

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



home samples purchase documentation download