textcopy /S Server /D DB /T Table /C Column /F File /I 將檔案寫入 IMAGE 欄位。Dim stream As New ADODB.Stream
stream.Type = adTypeBinary
stream.Open
stream.LoadFromFile "C:\Doc.doc"
cmd.Parameters.Append cmd.CreateParameter("@doc", adLongVarBinary, adParamInput, stream.Size, stream.Read)
cmd.ExecuteSELECT * FROM Docs WHERE CONTAINS(Content, '關鍵字') 或 FREETEXT。wdFormatText → 自訂斷詞器掃描詞頻 → 儲存關鍵字/頻率表。SELECT KEY FROM ... WHERE CONTAINS(Content, '候選詞') → 將命中關鍵字寫入關聯表。安裝光碟 \Program Files\Microsoft SQL Server\80\Tools\DevTools\Samples\ado\Visual Basic\Employee,參考 FillDataFields() 函數處理二進位資料。