Use ADODB. Stream to save files stored in the database in binary mode to the hard disk

Source: Internet
Author: User

The following code uses the ACCESS database as an example to demonstrate how to save files to the hard disk through ADODB. Stream.

Table: Demo Structure
========================================================
ID: Automatic ID
Filename: Text
Data: OLE object

Code
========================================================
<%
Dim Conn, connstr, RS, SQL, mystream

Connstr = "DBQ =" + server. mappath ("demo. mdb") + "; driver = {Microsoft Access Driver (*. mdb )};"

Set conn = server. Createobject ("ADODB. Connection ")

Conn. Open connstr

SQL = "select * from demo where id = 1"

Set rs = server. Createobject ("ADODB. recordset ")

Rs. Open SQL, Conn, 1, 3

Set mystream = server. Createobject ("ADODB. Stream ")

Mystream. type = 1

Mystream. Open

Mystream. Write RS ("data"). getchunk (RS ("data"). ActualSize-78)

Mystream. savetofile "C:/" & RS ("FILENAME ")

Rs. Close

Set rs = nothing

Conn. Close

Set conn = nothing
%>

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.