; *****************************************************
; Example90.ftp
; =============
; This example shows how to manipulate Active/Automation
; Objects.
; ---
; -----------------------------------------------------------
; Commands demonstrated:
;
; AXCreate
; AXKill
; "Object.Method"
; "Object.Property" assignment
; "Object.Property" retrieval.
;
;
; Syntax:
; See example source.
;
; -----------------------------------------------------------
; NOTE: You are NOT able to execute this example unchanged
; because of ActiveX Control inavailability.
; ***********************************************************
SkipCommandLog
SkipExecutionLog
SkipResultLog
AXCreate objConn "ADODB.Connection"
objConn.Open "File Name=D:\Butler\Data\Butler.UDL"
AXCreate objCmd "ADODB.Command"
let objCmd.ActiveConnection = objConn
let objCmd.CommandText = "SELECT * FROM items ORDER BY item"
let objRst=objCmd.Execute
objRst.moveFirst
log ""
log "Support for Object objCmd:"
message "%%objCmd_AXSupportCount%%"
numvariable i
for i=1 to %%objCmd_AXSupportCount%%
log " %%objCmd_AXSupport_[%%i%%]%%"
next i
logicalvariable b
log ""
log "Result from SQL call:"
:NextRecord
let b=objRst.eof
if b=false then
let sTemp1=objRst.Fields "Item"
let sTemp2=objRst.Fields "Description"
log " %%sTemp1%% -> %%sTemp2%%"
objRst.moveNext
goto NextRecord
endif