惯性聚合 高效追踪和阅读你感兴趣的博客、新闻、科技资讯
阅读原文 在惯性聚合中打开

推荐订阅源

The GitHub Blog
The GitHub Blog
Martin Fowler
Martin Fowler
Vercel News
Vercel News
U
Unit 42
Engineering at Meta
Engineering at Meta
aimingoo的专栏
aimingoo的专栏
MyScale Blog
MyScale Blog
Y
Y Combinator Blog
阮一峰的网络日志
阮一峰的网络日志
爱范儿
爱范儿
Apple Machine Learning Research
Apple Machine Learning Research
博
博客园_首页
钛媒体：引领未来商业与生活新知
钛媒体：引领未来商业与生活新知
B
Blog RSS Feed
N
Netflix TechBlog - Medium
GbyAI
GbyAI
F
Fortinet All Blogs
MongoDB | Blog
MongoDB | Blog
大猫的无限游戏
大猫的无限游戏
C
Check Point Blog
M
MIT News - Artificial intelligence
D
Docker
IT之家
IT之家
Stack Overflow Blog
Stack Overflow Blog

博客园 - 徐一贺

java将读取到的西门子PLC中标签的二进制数组，根据标签数据类型，偏移长度解析其真实的值。 java读取西门子PLC标签为二进制的时根据标签数据类型传入二进制数组长度的判断。 Windows Server 与 Windows 10/11 官方安装系列号 WPF控件拖拽 从域名到IP地址：nslookup命令带你开启网络之旅 全国DNS服务器地址列举 Win系统端口被占用怎么办？解决方案就在这，速看！ 博图VBS连接SQLServer C# 多点最小二乘法拟合平面算法 ping某个范围的IP地址 Android Studio 2021.3.1 阿里云盘分享地址 将WPF发布为exe安装包 C#中 一个多线程框架 程序员正确使用百度的方式 关于com.google.gson.JsonSyntaxException时间格式解析错误问题 SQL Server 查询数据库表结构 国内加速访问Github的办法，超级简单 全球IP地址查询网站 Halcon2019软件安装教程 转载自：https://blog.csdn.net/cashmood/article/details/105081705 SQL Server 跨服务器视图 idea快速开发插件 比较两个库的表信息
博图VBS修改SQLServer数据
徐一贺 · 2022-04-23 · via 博客园 - 徐一贺

Sub VBFunction_SaveVal()
'提示：
' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表
' 2. 使用 HMI Runtime 对象写入代码。
' 示例：HmiRuntime.Screens("Screen_1")。
' 3. 使用 <CTRL+J> 快捷键创建对象引用。
'从此位置起写入代码：
Dim connSave '定义类对象
Dim SConSave '定义数据库连接字符串
Dim oRsSave '定义获取到的数据集
Dim oComSave
'---------打开数据库 -----------'
SConSave= "Provider=SQLOLEDB; Integrated Security =SSPI;Persist Security Info=True;Initial Catalog=PlanCheck;Data Source=DESKTOP-OCMKPGO;uid=sa;pwd=password"
Set connSave=CreateObject("ADODB.Connection")
connSave.ConnectionString = SConSave
connSave.CursorLocation = 3
connSave.Open
Set oRsSave = CreateObject("ADODB.Recordset")
Set oComSave = CreateObject("ADODB.Command")
oComSave.ActiveConnection = connSave
oComSave.CommandType = 1

oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_Error").ProcessValue &" WHERE iItem_name = 'error_val'"
Set oRsSave = oComSave.Execute

oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_AZ1").ProcessValue &" WHERE iItem_name = 'A_Z1'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_AZ2").ProcessValue &" WHERE iItem_name = 'A_Z2'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_AZ3").ProcessValue &" WHERE iItem_name = 'A_Z3'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_AZ4").ProcessValue &" WHERE iItem_name = 'A_Z4'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("io_az5").ProcessValue &" WHERE iItem_name = 'A_Z5'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_AZ6").ProcessValue &" WHERE iItem_name = 'A_Z6'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_AZ7").ProcessValue &" WHERE iItem_name = 'A_Z7'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_AZ8").ProcessValue &" WHERE iItem_name = 'A_Z8'"
Set oRsSave = oComSave.Execute

oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_BY1").ProcessValue &" WHERE iItem_name = 'B_Y1'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_BY2").ProcessValue &" WHERE iItem_name = 'B_Y2'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_BY3").ProcessValue &" WHERE iItem_name = 'B_Y3'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_BY4").ProcessValue &" WHERE iItem_name = 'B_Y4'"
Set oRsSave = oComSave.Execute

oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_CY1").ProcessValue &" WHERE iItem_name = 'C_Y1'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_CY2").ProcessValue &" WHERE iItem_name = 'C_Y2'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("io_CY3").ProcessValue &" WHERE iItem_name = 'C_Y3'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_CY4").ProcessValue &" WHERE iItem_name = 'C_Y4'"
Set oRsSave = oComSave.Execute

oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_DZ1").ProcessValue &" WHERE iItem_name = 'D_Z1'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_DZ2").ProcessValue &" WHERE iItem_name = 'D_Z2'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_DZ3").ProcessValue &" WHERE iItem_name = 'D_Z3'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_DZ4").ProcessValue &" WHERE iItem_name = 'D_Z4'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_DZ5").ProcessValue &" WHERE iItem_name = 'D_Z5'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_DZ6").ProcessValue &" WHERE iItem_name = 'D_Z6'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_DZ7").ProcessValue &" WHERE iItem_name = 'D_Z7'"
Set oRsSave = oComSave.Execute
oComSave.CommandText = "UPDATE setting SET item_value = "& HmiRuntime.Screens("画面_设置").ScreenItems("IO_DZ8").ProcessValue &" WHERE iItem_name = 'D_Z8'"
Set oRsSave = oComSave.Execute
'---------关闭数据库-----------'
Set oRsSave = Nothing
Set oComSave = Nothing
connSave.Close
Set connSave = Nothing
HmiRuntime.Screens("画面_设置").ScreenItems("IO_Error").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_AZ1").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_AZ2").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_AZ3").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_AZ4").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("io_az5").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_AZ6").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_AZ7").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_AZ8").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_BY1").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_BY2").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_BY3").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_BY4").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_CY1").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_CY2").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("io_CY3").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_CY4").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_DZ1").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_DZ2").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_DZ3").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_DZ4").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_DZ5").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_DZ6").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_DZ7").Enabled = True
HmiRuntime.Screens("画面_设置").ScreenItems("IO_DZ8").Enabled = True
SmartTags("IsLoadSettingVal") = True
End Sub

此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。