Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Set rs = New ADODB.Recordset
- rs.Open "select * from YourTable", Connection, adOpenKeyset, adLockOptimistic
- Set mstream = New ADODB.Stream
- mstream.Type = adTypeBinary
- mstream.Open
- mstream.LoadFromFile "c:myfile.pdf"
- rs.Fields("blobfield").Value = mstream.Read
- rs.Update
Add Comment
Please, Sign In to add comment
