estrou criando um script para coleta de dados usando o driver VBscript.
O que criei não apresenta erro nenhum, porém não roda!
O que deve estar de errado?
Dim Stag,Tag1,bvista
Sub OnRead_Field1(r, v)
v.Value = Tag1
End Sub
Sub OnRead_ReadStatus(r, v)
v.Value = Stag
End Sub
Sub OnRead_bvista(r, v)
v.Value = bvista
End Sub
Sub OnRead_ReadPeriod(r, v)
On Error Resume Next
connection.Open “Provider=SQLOLEDB.1;Data Source=10.8.81.6;Initial Catalog=Automacao_ooo;User ID=UserMO;Password=T1035T3leo”
command = “SELECT Estacao, Criticidade FROM Automacao_ooo.dbo.Criticidade_pro”
reader = command.ExecuteReader()
’ Inicialize um dicionário para associar Nome com numero
Set dic = CreateObject(“Scripting.Dictionary”)
While reader.Read()
’ Ler os valores das colunas
dic.Add reader.GetString(0), reader.GetInt32(1)
Wend
’ Exemplo de uso: Acesse o valor pelo nome
bvista = nome_to_numero(“bvista”)