rpa数据库链接

首先要配置文件的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