安卓button控件博图如何读取mysql数据_博途使⽤⼩结：从SQL中读取数据并
给变量赋值
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 =
equalsignore是什么意思SCon
conn.CursorLocation = 3
分布式soa与微服务的区别
conn.Open '建⽴连接
'TON_Report ="Select TON  FROM [day] where
Year(TTime)='"&My_Year&"' and
Month(TTime)='"&My_Month&"' and
js replace和replaceallDay(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将数据转换为双整形然后给变量赋值mysql怎么读英语
SmartTags("VF01_RunTime")= CDbl(oRs1.Fields(2).Value)
SmartTags("JC01_RunTime")= CDbl(oRs1.Fields(3).Value)peekmessage
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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。