在SQL中建立了一个表格‘数据类型’，在表中建立了一个字段‘时间’，数据类型为‘Datetime’，然后再wincc中编写下列程序，
Dim objConnection
Dim strConnectionString
Dim lngValue
Dim strSQL
Dim objCommand
strConnectionString = "Provider=MSDASQL;DSN=shiyan;UID=;PWD=;" lngValue = FormatDateTime(Now(),0)
strSQL = "INSERT INTO 数据类型（时间） VALUES (" & lNGVALUE & ");"
Set objConnectIon = CreateObject("ADODB.Connection")
objConnection.ConnectionStrIng = strConnectionString
objConnection.Open
Set objCommAnd = CreateObject("ADODB.Command")
With objCommand
.ActiveConnectIoN = objConnection
.CommandTExt = strSQL
End With
objCommand.Execute
Set objCommAnd = Nothing
objConnection.Close
Set objConnectIon = Nothing
运行程序后，察看数据库表没变化，
把lngValue = FormatDateTime(Now(),0)
改为lngValue = Date后，运行程序，时间字段写入的内容为1905-6-11，没有时间（小时分秒等），如何才能实现系统日期时间的写入？
最佳答案
我已经帮你试过了，SQL语句改为
strSQL = "INSERT INTO 数据类型（时间） VALUES ('" & lNGVALUE & "');" 就可以了（注意单引号'），你试试吧！
提问者对于答案的评价：
一语中的，非常感谢。又发现了另为一个问题，写入数据库中时间为2002-8-15，不知何原因？
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc276509.html
微信扫一扫 
支付宝扫一扫 