<< Clique para Mostrar o Sumário >>
GetADORecordSet |
1.Na Tela inicial, insira um objeto Consulta (Query) com o nome de "ConsultaEquipamento".
2.Configure a Consulta para acessar a tabela ConfigEquipamento e retornar os campos Equipamento, Porta e IP.
3.Na Tela inicial, adicione um Botão de Comando. No evento Click deste objeto, insira o script a seguir.
Set porta = Application.GetObject("Driver1.[IO.Ethernet.MainPort]")
Set driver = Application.GetObject("Driver1")
'Acessa a tabela ConfigEquipamento
Set cs = Screen.Item("ConsultaEquipamento").GetADORecordset()
'Move o ponteiro para o último registro
cs.MoveLast
'Percorre toda tabela
For i = 1 To cs.RecordCount
equip = cs.Fields("Equipamento").Value & "|" & equip
'Move para o registro anterior
cs.MovePrevious
Next
'Exibe o nome de todos os equipamentos registrados
op = Application.SelectMenu(equip)
'Move para o primeiro registro
cs.MoveFirst
For i = 1 To cs.RecordCount
'Verifica se a linha da tabela contem o nome do CLP selecionado
If i = op Then
'Coloca o Driver no modo Offline
driver.Write -1, 0, 0, 4, 0
'Muda a porta TCP/IP
porta.WriteEx cs.Fields("Porta").Value
'Coloca o Driver no modo Online
driver.Write -1, 0, 0, 4, 1
End If
cs.MoveNext
Next
4.Execute a aplicação e teste a nova funcionalidade.