VBS/SQL. Присвоить значение тегу, полученному из БД

[asuprog]

Приветствую всех.
Все еще разбираюсь с темой "Работа с SQL из VBS WinCC". Хочу запросить у БД значение и записать его в тег.
Имеем в БД таблицу TAB. В ней два поля ID (ключ) и DATA. Нам нужно содержание поля DATA

Код: Выделить всё

	'Опускаю моменты подключения к базе. Там вроде как все верно
	Dim objConnection
  	Set objConnection = CreateObject("ADODB.Connection")
	strSQL = "SELECT DATA FROM TAB WHERE ID = 1"
	objConnection.Execute strSQL
	Dim Any
	Set Any = HMIRuntime.Tags("Tag")
	Any.Write 'Вот что тут записать )

Пробую так

Код: Выделить всё

	Dim a
	strSQL = "SELECT a = DATA FROM TAB WHERE ID = 1"
	objConnection.Execute strSQL
	Dim Any
	Set Any = HMIRuntime.Tags("Tag")
	Any.Write a

Не выходит. Ошибок по обоим скриптам нет.

[makesstr]

Попробуйте так
Option Explicit
Function action
Dim Srvname, strCon, cn, sql, sql2, query, res, Vsm, Vmm, j, mm, LVL
Dim Capacity ''Вместимость м3/мм для РВС

For j = 1 To 18 ' Номер РВС

If j<=11 Then
Set LVL = HMIRuntime.Tags("L_2.L_"&j)
Else Set LVL = HMIRuntime.Tags("L_1.L_"&j-11)
End If

LVL.Read
On Error Resume Next

Srvname = HMIRuntime.Tags("@ServerName").Read + "\WINCC"
strCon = "Provider=SQLNCLI11.1;Server=" + Srvname + ";Database=TankVolume;Trusted_Connection=Yes;"
Set cn = CreateObject("ADODB.Connection")
cn.Open strCon


'Расчет обьема с сантиметров
sql = "SELECT top 1 [Volume] FROM [Calc] WHERE [Number] = {Number} AND [Level] <= {Level} ORDER BY [Level] DESC"
query = Replace(sql, "{Number}", j)
query = Replace(query, "{Level}", Replace(LVL.Read * 100, ",", "."))

Set res = cn.Execute(query)
Vsm = res.Fields(0).Value
Vsm.Read
'Расчет обьема с миллиметров
sql2 = "SELECT top 1 [Capacity] FROM [Calc] WHERE [Number] = {Number} AND [Level] <= {Level} ORDER BY [Level] DESC"
query = Replace(sql2, "{Number}", j)
query = Replace(query, "{Level}", Replace(LVL.Read * 100, ",", "."))

Set Capacity = cn.Execute(query)
Capacity = Capacity.Fields(0).Value
Capacity.Read

mm = Round((LVL.Read*100-Fix(LVL.Read*100))*10) 'Целое кол-во мм
Vmm = mm *Capacity
Vmm.read
If LVL<0.028 Then
HMIRuntime.Tags("V_"&j).Write Vmm+Vsm
Else HMIRuntime.Tags("V_"&j).Write 0
End if
Next

End Function

[asuprog]

Спасибо.
Пришел пока к такому выводу, что без RecordSet пока никак. Правда у Вас он как то необычно рализован

strCon = "Provider=SQLNCLI11.1;Server=" + Srvname + ";Database=TankVolume;Trusted_Connection=Yes;"
Set cn = CreateObject("ADODB.Connection")
cn.Open strCon

Set res = cn.Execute(query)
Vsm = res.Fields(0).Value
Vsm.Read

Видимо работает и так. Может дело в провайдере (драйвере). Я открываю драйвером provider = SQLOLEDB.1
У меня более "классически"

Код: Выделить всё

Set rst = CreateObject("ADODB.RecordSet")
rst.ActiveConnection = objConnection
strSQL = "SELECT DATA FROM TAB WHERE ID = 1"
rst.Open strSQL
HMIRuntime.Trace rst.fields("DATA") & vbCrLf 'Выводим в окно дебагера

Мало опыта у меня с SQL, и подумалось, может есть что то попроще. Сделать запрос и присвоить полученное значение переменной. Обычной. Может и есть такой способ.
А скрипт написан, немного допилю - скину

Отправлено спустя 25 минут 29 секунд:
На самом деле запись в БД конечно не одна, но я точно знаю, что их неизменно 30.
Создал в WinCC 30 внутренних тегов Opt_1 - Opt_30

Код: Выделить всё

 	Dim objConnection
  	Set objConnection = CreateObject("ADODB.Connection")

  	Dim strConnectionString
  	Dim msqlserver
  	Dim msqldatabase
  	Dim userlogin
  	Dim userpassword
  	Dim strSQL
  	Dim rst
  	Dim i
	Dim group
	Set group = HMIRuntime.Tags.CreateTagSet

  	msqlserver = "SQL_Server"
 	msqldatabase = "DB"
  	userlogin = "log"
  	userpassword = "pass"

' 	MS SQL Server, SQL authorization
  	strConnectionString = "provider=SQLOLEDB.1; Data Source=" + msqlserver + ";User ID=" + userlogin + ";Password=" + userpassword + ";Initial Catalog=" + msqldatabase

  	objConnection.ConnectionTimeout = 60
  	objConnection.Open strConnectionString
  	
  	Set rst = CreateObject("ADODB.RecordSet")
  	rst.ActiveConnection = objConnection
  	
  	strSQL = "SELECT DATA FROM TAB"
  	rst.Open strSQL
  	
  	For i = 1 To 30
  		group.Add "Opt_" & i
  		group("Opt_" & i).Value = rst.fields("DATA").Value
  		rst.MoveNext
  	Next
  	
  	rst.Close	'Надеюсь, что этим я освобождаю память от полученных данных RecordSet )
  	group.Write

И еще вопросик назрел. Вот открыли мы сессию

Код: Выделить всё

objConnection.Open strConnectionString

Ее не надо закрывать в конце, как нибудь вроде objConnection.Close? В примерах такого нигде не наблюдаю. А закрыть что нибудь после использования - очень хочется )

[makesstr]

Это цикличный скрипт, поэтому надобности закрывать соединение нет. А вообще в других примерах в конце скрипта соединение закрывают.
Например

[+]

https://stackoverflow.com/questions/261 ... connection

[den_vish]

Ее не надо закрывать в конце, как нибудь вроде objConnection.Close? В примерах такого нигде не наблюдаю. А закрыть что нибудь после использования - очень хочется )

закрывай, иначе можешь поиметь тучу открытых соединений в базе,
а потом база просто тебя не пустит

[asuprog]

закрывай

Так?

Код: Выделить всё

objConnection.Open strConnectionString
' Поюзали БД
objConnection.Close strConnectionString

Это цикличный скрипт

Ну да, как и весь Runtime в режиме ОСРВ. Только этот скрипт выполняется раз в 10 минут. А мне неизвестны тонкости работы MS SQL. То ли она сама закроет автоматически неактивное соединение, то ли как говорит den_vish они остаются открытыми. А это уже не есть гуд, и закрывать их нужно в любом случае.

[den_vish]

objConnection.Close

этого хватает обычно

[asuprog]

этого хватает обычно

Да. Спасибо. Выяснилось оптыным путем ) Мой вариант с закрытием со строкой давал ошибку при исполнении. Также добавил строчку

Код: Выделить всё

Set objConnection = Nothing

Разрушил... метод наверно ) Не силен в ООП терминологии