****************************************************************************
'**
'** Simpan/Baca File ke Database Menggunakan AdodB.Stream
'** Referensi Microsoft ActiveXDataObjectS2.5Library dan di atas
'**
'** ----- String koneksi basis data Templat-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'** Akses database
'** iconcstr = "provider = microsoft.jet.oledb.4.0; persistecurityInfo = false" & _
'** "; DataSource = Nama Basis Data"
'**
'** SQL Database
'** iconcstr = "penyedia = sqloledb.1; persistecurityInfo = true;" & _
'** "userId = username; kata sandi = kata sandi; initialcatalog = nama basis data; dataSource = nama server sql"
'**
'**********************************************************************************************
'
'Simpan file ke database
Subs_savefile ()
Dimistmasadodb.stream
Dimireasadodb.recordset
Dimiconcstrasstring
'String koneksi basis data
iconcstr = "provider = microsoft.jet.oledb.4.0; persistecurityInfo = false" & _
"; DataSource = f:/MyDocuments/Data Pelanggan 1.MDB"
'Baca file ke konten
SetistM = newadodb.stream
WithistM
.Type = mode biner adtypeBinary '
.Membuka
.LoadFromFile "c: /test.doc"
Endwith
'Buka tabel yang menyimpan file
Setire = newadodb.recordset
Withire
.Open "Tabel", Iconc, AdopenKeyset, Adlockoptimistic
.Addnew'add catatan baru
.Fields ("bidang yang menyimpan konten file") = ISTM.READ
.Memperbarui
Endwith
'Tutup objek setelah selesai
ire.close
ISTM.Close
Endsub
'Baca data dari database dan simpan sebagai file
Subs_readfile ()
Dimistmasadodb.stream
Dimireasadodb.recordset
Dimiconcasstring