LoadDBMapFile

説明

PDF フォーム フィールドとデータベース フィールドが正しく対応しているかを確認するマップ ファイルを読み込みます。マップ ファイルは同じデータに対して、データベースと PDF が異なるフィールド名を使用している場合に役立ちます。

戻り値の型

Long

戻り値

説明

-1

マップ ファイルを開けません

0

正常終了

構文

object.LoadDBMapFile PathToMapFile

LoadDBMapFile メソッドは次のパラメータから構成されています。

パラメータ

値の型

説明

Object

 

Toolkit オブジェクト

PathToMapFile

String

マップ ファイルへのフルパス。マップ ファイルについては、次のセクションを参照してください。

マップ ファイル

マップ ファイルは、指定したデータに対応する一連のテキストラインを含みます。一般的なテキスト ラインの例は次のとおりです。

PDFFieldName|DBFieldName|HowToMerge

マップ ファイルは次のパラメータから構成されています。

Parts

説明

PDFFieldName

PDF 文書のフィールド名。複数の PDF フィールドを同じ名前で割り当てる場合、フィールド名の最後にフィールド番号を付加しないでください。

DBFieldName

レコードセットに表示されるフィールド名

HowToMerge

SetFormDataField の属性。0、1、-995 などです。

備考

フィールドに画像を割り当てる場合、DBFieldNameFILE:fieldname とします (fieldname は有効な画像のパス)。

strPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") & "\"

Set TK = CreateObject("APToolkit.Object")

TK.FormNumbering = 1

r = TK.OpenOutputFile("Output.pdf") 'newly generated PDF

TK.LoadDBMapFile ("MapFile.txt")

r = TK.SetDBInputTemplate("Input.pdf")

For i = 1 To 5 'copy 5 pages of input to output

SQL = "Select * From Properties"

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath & "ias.mdb;Persist Security Info=False"

TK.SetMasterQuery strConn, "Admin", "", -1, "select * from properties where bag=2" 'must find a record

TK.SetDBMultiRowSeparator "" 'provides the delimiter that separates the # in form field names for serparate records

r = TK.DBToForm(False)

TK.ResetFormFields

Next

TK.CloseOutputFile

Set TK = Nothing