西门子工业支持中心，以专业共创价值！
西门子工业支持中心，以专业共创价值！
悬赏:
5西币 | 解决时间：2023-04-01 15:49
产品版区：
SIMATIC WinCC
流云飞666
WINCC使用VBS脚本写数据到SQL，时间无法正常写入。riqi代表当前时间，去掉DIM RIQI及相当的代码，数据可以正常写入，想在第一列加入RIQI，当前时间，无法写入数据到SQL，请大侠指点
代码如下：
小程序查看
学到实用技术——扫码分享！
最佳答案
Sub WriteDataToSQL()
Dim riqi
riqi = Now '获取当前时间
Dim conn, rs
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.Open "Provider=SQLOLEDB; Data Source=SERVERNAME; Initial Catalog=DATABASENAME; User ID=USERID; Password=PASSWORD"
Dim sql
sql = "INSERT INTO TABLENAME (RIQI, COLUMN1, COLUMN2, COLUMN3) " & _
"VALUES ('" & riqi & "', " & Value1 & ", " & Value2 & ", " & Value3 & ")"
rs.Open sql, conn
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub
在上述代码中，将当前时间（riqi）的值添加到了INSERT语句中的第一个字段，即RIQI字段中，这样就能正常将时间写入SQL中了。您需要将代码中的SERVERNAME、DATABASENAME、USERID和PASSWORD设置为您实际的数据库连接参数，同时将TABLENAME替换为目标数据表的表名，Value1、Value2和Value3替换为您需要插入的具体数据值。
回答者：
菜鸟中的菜鸡
回答时间：2023-03-31 15:59
提问者对于答案的评价：
写的非常详细
觉得这个问题很实用！立即分享给好友，手留余香！
此问题图片中内容无法提交，不知是何原因！
图片说明：
ISIEMENSID
2023-03-31 21:29
学技术视频
查海量资料
论话题经验
问常见问题
西门子官方商城
自动化系统
我要提问
回答问题
