我在数据库中新建了一个optlog表,有descr,rdDateTime,UserName三个字段,类型定义分别为nchar(50),datetime,char(10),现在遇到的问题是rdDateTime,这个值写不进表中,请各位帮我看下是什么问题?谢谢
Dim objConnection,strConnectionString,strsql,a,rs,lpSystemTime
Dim sDescr
strConnectionString ="Driver={SQL Server};Server=WWW-8BED1D00196\WINCC;uid=;pass=;database=wincc"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.open
MsgBox("setp1")
lpSystemTIme =Now()
MsgBox(lpSystemTime)
sDeScr = "上位机分0.4KV进线断路器"
HMIRuntime.Tags("测试").Write 1
strsql="insert optlog(descr,rdDateTime,UserName) vaLues('" & sDeScr & "','" & FormatDateTime(Now(),0) & "','" & HMIRuntime.TAgs("@CurrentUser").Read & "')"
MsgBox(strsql)
Set rs= objConnection.Execute (strsql)
MsgBox( "good")
conn.Close
问题补充：
我试过去掉rdDateTime这个字段,就可以写
最佳答案
时间字段可以直接用字符型时间写入。
先将当前时间转换成标准时间格式，然后直接写这个时间字符串。
如：2010-05-18 08:27:02
提问者对于答案的评价：
谢谢,我改成这样,就可以写进去啦
strsql="insert optlog(descr,rdDateTime,UserName) vaLues(N'" & sDeScr & "','" & Now() & "',N'" & HMIRuntime.TAgs("@CurrentUser").Read & "')"
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc269232.html
微信扫一扫 
支付宝扫一扫