*************************************************************** -
'**
'** adodb.streamを使用してデータベースにファイルを保存/読み取ります
'** Microsoft ActiveXDataObjects2.5Library以上を参照してください
'**
'** -----データベース接続文字列 テンプレート - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'**アクセスデータベース
'** iconcstr = "provider = microsoft.jet.oledb.4.0; persistecurityinfo = false"＆_
'** "; dataSource =データベース名"
'**
'** SQLデータベース
'** iconcstr = "provider = sqloledb.1; perstessecurityinfo = true;"＆_
'** "userid = username; password = password; initialcatalog = database name; datasource = sql server name" "
'**
'**************************************************************************************************
'
'ファイルをデータベースに保存します
subs_savefile（）
dimistmasadodb.stream
dimireasadodb.recordset
dimiconcstring
'データベース接続文字列
iconcstr = "provider = microsoft.jet.oledb.4.0; perstessecurityinfo = false"＆_
"; dataSource = f：/mydocuments/customer data 1.mdb" "
'コンテンツのファイルを読み取ります
setistm = newadodb.stream
withistm
.type = adtypebinary 'バイナリモード
。開ける
.loadfromfile "c：/test.doc"
終わりに
「ファイルを保存するテーブルを開きます
setire = newadodb.Recordset
withire
「テーブル」、ICONC、AdopenKeyset、Adlockoptimisticをオープンします
.ddnew'add新しいレコード
.fields（ "ファイルコンテンツを保存するフィールド"）= istm.read
。アップデート
終わりに
'完了後にオブジェクトを閉じます
ire.close
istm.close
Endingub
'データベースからデータを読んで、ファイルとして保存します
subs_readfile（）
dimistmasadodb.stream
dimireasadodb.recordset
dimiconcasstring