ClearQueries

説明

SetMasterQuery および AddRelatedQuery の呼び出し時の接続を閉じてクリアします。

戻り値の型

なし

構文

object.ClearQueries

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

例

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

Set TK = CreateObject("APToolkit.Object")

TK.FormNumbering = 1

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

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

r = TK.DBToForm(False)

If r <> 0 Then

TK.ClearQueries

Exit Sub

End If

TK.ResetFormFields

'resets the fields of the form

Next

TK.CloseOutputFile

Set TK = Nothing