readdatabase.vbs
Dim im, rs
Set im = CreateObject("ActiveImage.Images.1")
Set rs = CreateObject("adodb.recordset")
dsn = "tonec"
rs.Open "pictures", dsn, 2, 3
rs.MoveFirst
im.ReadFromDatabase rs.Fields("Bitmap")
rs.Close
im.WriteToFile "C:\readdb.png"
im.SetImageType 1
im.SetJpegQuality 100
im.WriteToFile "C:\readdb.jpg"
im.DestroyImage
Set im = Nothing
|
 |
 |
Picture 1. readdb.jpg (size - 29 Kb) |
Picture 2. readdb.png (size - 3 Kb) |
|