在学习报表，写了一段插入数据的，出现提示“没有为命令对象设置命令”，代码如下，求解
ub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim strCon, sSql
Dim conn,comm
Dim rTime,Level,UserType
On Error Resume Next
rtime = Now
UserType = HMIRuntime.Tags("@CurrentUser").Read
Level = HMIRuntime.Tags("level").Read
strCon = "PROVIDER=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;INITIAL CATALOG = CC_study_11_09_08_09_30_02R;DATA SOURCE = XMGB\WINCC"
sSql = "INSERT INTO MyTable VALUES('"&sdate&"','"&slevel&"','"&UserTyPe&"')"
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = strCon
conn.Open
Set comm = CreateObject("ADODB.Command")
comm.ActiveConnection = conn
comm.CommandText = sSql
comm.execute sSql
If Err.number <> 0 Then
MsgBox "Error#" & Err.Number & "" & Err.Description
errCleear
Exit Sub
Else '显示连接的状态
MsgBox "连接成功!"
End If
Set conn = Nothing
Set comm = Nothing
End Sub
顺便问下哪位大哥如果有成熟的报表系统分享一下
问题补充：
谢逆行道，改了引号的地方，可以正常存储数据，可是还会弹出一个“变量未定义的框”什么情况啊，求解，我能不能加你QQ啊，
图片说明：
最佳答案
参考链接：《利用WCC的VBS向数据库中的表插入数据》
http://www.ad.siemens.com.cn/club/bbs/post.aspx?b_id=5&a_id=1048489
《通过VBS向SQL数据库中插入字符串数据失败》
http://www.ad.siemens.com.cn/club/bbs/post.aspx?b_id=5&a_id=888262&s_id=0&num=1
《VBS写入数据库》
http://www.ad.siemens.com.cn/service/answer/solution.aspx?Q_ID=20774&cid=1032
提问者对于答案的评价：
没了，就是你了
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc250964.html
微信扫一扫 
支付宝扫一扫 