Visu+: Работа с базой данных MySQL в VBScript

Данная статья является моей заметкой от 14.04.2014.

Логотип Phoenix Contact

Visu+ — это ПО для визуализации с функциями SCADA, подходящее для любых систем — от компактной сенсорной панели до промышленного ПК.

Код немного изменён для запуска в Windows

'Visu+
'Запуск в CMD: cscript MySQL.vbs

Const vbQuote = """"
Const sSqlDriver = "MySQL ODBC 5.2 Unicode Driver"
Const sSqlHost = "localhost"
Const sSqlBase = "visu_app"
Const sSqlUser = "root"
Const sSqlPassword = ""

GetDBConfigString = "DRIVER={" + sSqlDriver + "}" _
⠀⠀& "; SERVER=" & sSqlHost _
⠀⠀& "; DATABASE=" & sSqlBase _
⠀⠀& "; UID=" & sSqlUser _
⠀⠀& "; PASSWORD=" & sSqlPassword _
⠀⠀& "; OPTION=3"

On Error Resume Next

Set objDB = CreateObject("ADODB.Connection")
ConnString = GetDBConfigString
objDB.Open(ConnString)

If Err.Number <> 0 Then
⠀⠀showError()
⠀⠀WScript.Quit 1
End If

Set rs = CreateObject("ADODB.RecordSet")
rs.ActiveConnection = objDB
rs.Open("SELECT `id`, `name`, `value` FROM `table` LIMIT 50")

If Err.Number <> 0 Then
⠀⠀showError()
⠀⠀WScript.Quit 1
End If

Debug.Print("RecordSet state: " + rs.State)
While rs.State <> 1
⠀⠀Wait(500)
Wend

objDB.Close

On Error Goto 0

Sub showError()
⠀⠀WScript.Echo "Код ошибки: " & Hex(Err.Number) & vbCrLf _
⠀⠀⠀⠀& Err.Source & vbCrLf & vbCrLf _
⠀⠀⠀⠀& Err.Description
⠀⠀Err.Clear
End Sub

Ссылка на ПО: https://www.phoenixcontact.com/ru-pc/produkty/programmnoe-obespecenie/vizualizacia

#2014 #visu #vbscript