Terkadang, kita perlu menyimpan artikel kata ke database untuk pencarian dan penggunaan di masa mendatang, tetapi bagaimana cara melakukannya? Di bawah ini adalah dua metode menyimpan dokumen Word dalam database.
Cara pertama: simpan seluruh dokumen word ke database, yang tidak hanya menyimpan konten dalam dokumen word, tetapi juga menyimpan format dalam word.
Saat menyimpan, jika database yang digunakan adalah SQL Server, bidang penyimpanan dokumen Word harus menggunakan tipe data Biner. Jika database ACCESS digunakan, objek OLE harus digunakan.
Kode sumber lengkapnya adalah sebagai berikut:
'Unduh file apa pun dari database ke lokal:
Fungsi Publik LoadFile (ByVal col Sebagai ADODB.Field, ByVal FileName As String) Sebagai Boolean 'Dapatkan data biner
Tentang Kesalahan GoTo myerr:
Redupkan arrBytes() Sebagai Byte
Redupkan FreeFileNumber Sebagai Integer
lngsize = col.Ukuran Aktual
arrBytes = col.GetChunk(ukuran lng)
Nomor File Gratis = File Gratis
Buka Nama File Untuk Akses Biner Tulis Sebagai #FreeFileNumber
Masukkan #FreeFileNumber, , arrBytes
Tutup #FreeFileNumber
LoadFile = Benar
myerr:
Jika Err.Number <> 0 Lalu
LoadFile = Salah
Err. Jelas
Akhiri Jika
Fungsi Akhir
'Unggah file dari lokal ke database
Fungsi Publik UpLoadFile (ByVal FileName, ByVal col As ADODB.Field) Sebagai Boolean
Tentang Kesalahan GoTo myerr:
Redupkan arrBytes() Sebagai Byte
Redupkan FreeFileNumber Sebagai Integer
Nomor File Gratis = File Gratis
Buka Nama File Untuk Biner Sebagai #FreeFileNumber
n = LOF(Nomor File Gratis)
ReDim arrBytes(1 Ke n) Sebagai Byte
Dapatkan #FreeFileNumber, , arrBytes
Tutup #FreeFileNumber
kol.AppendChunk(arrBytes)
UpLoadFile = Benar
myerr:
Jika Err.Number <> 0 Lalu
UpLoadFile = Salah
Err. Jelas
Akhiri Jika
Fungsi Akhir
Metode kedua:
Saat mendesain database, bidang desain meliputi: wjmc (nama file), wjsx (ekstensi file), Wjnr (isi file adalah tipe data biner). (Jika database menggunakan database akses, konten file adalah objek ole, dan database server sql adalah gambar)
Program ini dapat beroperasi pada semua jenis file.
Redupkan Wenjian Sebagai String
Redupkan RD Sebagai Byte
Redupkan UKURAN Selamanya
KonstMYSIZE = 1048576
Redupkan WENJIANN() Sebagai Byte
Redupkan Rs Sebagai ADODB.Recordset Baru
Rs.Buka pilih * dari wj, Cn, 1, 3
Rs.TambahBaru
Rs!wjmc = Pertengahan(Nama, 1, InStr(Nama, .) - 1)
Rs!wjsx = Tengah(Nama, InStr(Nama, .) + 1)
'nama adalah nama file ditambah ekstensinya
Buka Nama File Untuk Akses Biner Baca Sebagai #1
UKURAN = LOF(1)
Lakukan Sementara UKURAN - MYSIZE >= 0
ReDim WENJIANN(MYSIZE) Sebagai Byte
Dapatkan #1, , WENJIANN
Rs!wjnr.AppendChunk WENJIANN
UKURAN = UKURAN - UKURAN SAYA
Lingkaran
Jika UKURAN > 0 Maka
ReDim WENJIANN(UKURAN) Sebagai Byte
Dapatkan #1, , WENJIANN
Rs!wjnr.AppendChunk WENJIANN
Akhiri Jika
Tutup #1
Rs.Pembaruan
Tetapkan Rs=Tidak Ada
Jika Anda membutuhkan artikel ini, tandai artikel ini.