場合によっては、将来の検索や使用のために単語記事をデータベースに保存する必要がありますが、どうすればよいでしょうか?以下に、Word 文書をデータベースに保存する 2 つの方法を示します。
1 つ目の方法: Word 文書全体をデータベースに保存します。これにより、Word 文書内のコンテンツが保存されるだけでなく、Word の形式も保存されます。
保存する場合、使用するデータベースが SQL Server の場合、Word 文書を保存するフィールドはバイナリ データ型を使用する必要があります。ACCESS データベースを使用する場合は、OLE オブジェクトを使用する必要があります。
完全なソースコードは次のとおりです。
'データベースからローカルにファイルをダウンロードします:
Public Function LoadFile(ByValcol As ADODB.Field, ByVal FileName As String) As Boolean 'バイナリデータを取得
エラー時 GoTo myerr:
Dim arrBytes() をバイトとして
Dim FreeFileNumber As Integer
lngsize = 列.ActualSize
arrBytes =col.GetChunk(lngsize)
FreeFileNumber = フリーファイル
バイナリ アクセス用に FileName を開く #FreeFileNumber として書き込み
#FreeFileNumber、、arrBytes を入力します
#FreeFileNumberを閉じる
LoadFile = True
マイヤー:
Err.Number <> 0 の場合、次に
LoadFile = False
エラークリア
終了の場合
終了機能
'ファイルをローカルからデータベースにアップロードします
Public Function UpLoadFile(ByVal FileName, ByValcol As ADODB.Field) As Boolean
エラー時 GoTo myerr:
Dim arrBytes() をバイトとして
Dim FreeFileNumber As Integer
FreeFileNumber = フリーファイル
バイナリのファイル名を #FreeFileNumber として開きます
n = LOF(フリーファイル番号)
ReDim arrBytes(1 To n) バイトとして
#FreeFileNumber、、arrBytes を取得
#FreeFileNumberを閉じる
Col.AppendChunk(arrBytes)
UpLoadFile = True
マイヤー:
Err.Number <> 0 の場合、次に
UpLoadFile = False
エラークリア
終了の場合
終了機能
2 番目の方法:
データベースを設計する場合、設計フィールドには、wjmc (ファイル名)、wjsx (ファイル拡張子)、Wjnr (ファイルの内容はバイナリ データ タイプ) が含まれます。 (データベースがアクセス データベースを使用している場合、ファイルのコンテンツは ole オブジェクトであり、SQL サーバー データベースはイメージです)
プログラムはすべての種類のファイルを操作できます。
文字列としてのディム・ウェンジアン
バイトとしてのディム RD
寸法はできるだけ長くしてください
ConstMYSIZE = 1048576
Dim WENJIANN() をバイトとして
新しい ADODB.Recordset としての Dim Rs
Rs.Open select * from wj, Cn, 1, 3
Rs.追加新規
Rs!wjmc = Mid(名前, 1, InStr(名前, .) - 1)
Rs!wjsx = Mid(名前, InStr(名前, .) + 1)
'name はファイル名に拡張子を加えたものです
バイナリ アクセス用にファイル名を開く #1 として読み取る
サイズ = ロフト(1)
SIZE - MYSIZE >= 0 の間実行します
ReDim WENJIANN(MYSIZE) として バイト
#1 を獲得、ウェンジアン
Rs!wjnr.AppendChunk ウェンジアン
サイズ = サイズ - マイサイズ
ループ
SIZE > 0 の場合
ReDim WENJIANN(SIZE) をバイトとして
#1 を獲得、ウェンジアン
Rs!wjnr.AppendChunk ウェンジアン
終了の場合
閉じる #1
Rs.アップデート
Rs=何も設定しない
この記事が必要な場合は、ブックマークしてください。