1、建立內部變量TON_Report，VF01_Runtime，JC01_Runtime，VF05_Runtime，數據類型為Real，長度為2

2、建立查詢按鈕，點擊查詢按鈕時讀取SQL中的數據并賦值給TON_Report；查詢按鈕VBS腳本及注釋如下：

?

Dim conn

Dim SCon

Dim oRs

Dim oCom

Dim oRs1

Dim strSQL

Dim m

SCon= "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist

Security Info=False;Initial Catalog=WINCC;Data

Source=.\WINCC"'數據庫連接字符串

Set conn=CreateObject("ADODB.Connection")

conn.ConnectionString =

SCon

conn.CursorLocation = 3

conn.Open '建立連接

'TON_Report ="Select TON ?FROM [day] where

Year(TTime)='"&My_Year&"' and

Month(TTime)='"&My_Month&"' and

Day(TTime)='"&My_Day&"' ;"

strSQL ="Select TON,CV01,VF01,JC01,VF05 ?FROM

[day] where Day(TTime)="&SmartTags("Day_Input")&" AND

Month(TTime)="&SmartTags("Month_Input")&" AND

Year(TTime)="&SmartTags("Year_Input")&" " '建立選擇條件字符串AND

Month(TTime)='"&SmartTags("Month_Input")&"'　AND

Year(TTime)='"&SmartTags("Year_Input")&"'

Set oRs = CreateObject("ADODB.Recordset")

Set oCom = CreateObject("ADODB.Command")

oCom.CommandType = 1

Set oCom.ActiveConnection = conn

oCom.CommandText = strSQL

'用CommandText進行查詢

Set oRs1 = oCom.Execute '填寫記錄集

m = oRs1.RecordCount

If m=1 Then '是否只有一條記錄，如果是，就會給TON_Report賦值；否則顯示Fault

If (oRs1.EOF) Then

'是否最后一條記錄，用處如果找不到數據，就會顯示Fault，否則就會給TON_Report賦值

SmartTags("TON_Report")=99999

SmartTags("VF01_RunTime")=99

SmartTags("JC01_RunTime")=99

SmartTags("VF05_RunTime")=99

Else

SmartTags("TON_Report")=

CDbl(oRs1.Fields(0).Value)‘CDBL將數據轉換為雙整形然后給變量賦值

SmartTags("VF01_RunTime")= CDbl(oRs1.Fields(2).Value)

SmartTags("JC01_RunTime")= CDbl(oRs1.Fields(3).Value)

SmartTags("VF05_RunTime")= CDbl(oRs1.Fields(4).Value)

End If

Else

SmartTags("TON_Report")=99999

SmartTags("VF01_RunTime")=99

SmartTags("JC01_RunTime")=99

SmartTags("VF05_RunTime")=99

End If

Set oRs1 = Nothing

Set oCom = Nothing

conn.Close

Set conn = Nothing

總結

以上是生活随笔為你收集整理的博图如何读取mysql数据_博途使用小结：从SQL中读取数据并给变量赋值的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。