*********************************************************************************************************************************************** 누군가
'**
'** adodb.stream을 사용하여 데이터베이스에 파일을 저장/읽습니다
'** 참조 Microsoft ActiveXDataObjects2.5library 이상
'**
'** ----- 데이터베이스 연결 문자열 Template-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'** 액세스 데이터베이스
'** iconcstr = "provider = microsoft.jet.oledb.4.0; persistecurityInfo = false"& _
'** "; DataSource = 데이터베이스 이름"
'**
'** SQL 데이터베이스
'** iconcstr = "provider = sqloledb.1; persistecurityInfo = true;"& _
'** "userId = username; password = password; initialcatalog = database name; dataSource = sql server name"
'**
'*************************************************************************************************************************************************************************************** 누군가
'
'파일을 데이터베이스에 저장하십시오
subs_savefile ()
Dimistmasadodb.stream
DimIREASADODB.RECORDSET
DimiconcStrastring
'데이터베이스 연결 문자열
iconcstr = "제공자 = microsoft.jet.oledb.4.0; persistecurityInfo = false"& _
"; DataSource = f :/myDocuments/고객 데이터 1.mdb"
'내용의 파일을 읽으십시오
setistm = newadodb.stream
Withistm
.type = adtypebinary '바이너리 모드
.열려 있는
.LOADFROMFILE "C : /TEST.DOC"
끝
'파일을 저장하는 테이블을 엽니 다
setire = newadodb.recordset
Withire
. "테이블", ICONC, 채택, adlockoptimistic
.addnew'add 새로운 기록
.fields ( "파일 내용을 저장하는 필드") = istm.read
.업데이트
끝
'완료 후 물체를 닫습니다
IRE.CLOSE
istm.close
Endsub
'데이터베이스에서 데이터를 읽고 파일로 저장하십시오.
subs_readfile ()
Dimistmasadodb.stream
DimIREASADODB.RECORDSET
Dimiconcasstring