首先要配置文件的firedacDriver
IP = '192.168.2.110'
SID = 'asdb'
用户 = 'root'
密码 = 'abc123'
端口 = 3306
DB = 链接FireDACOracle(IP, 端口, SID, 用户, 密码)
try
信息 = 查询SQLFireDAC(DB, 'select * from k_agent', Table)
if (信息 <> '')
[
返回 = 设置指标('严重', '查询SQL错误', 信息)
Exit
]
try
Table.First
while not Table.Eof
[
Trace(Table.FieldByName('ip').AsString)
Table.Next
]
finally
Table.Free
end
finally
释放FireDAC(DB)
End