Set rs = CreateObject("ADODB.Recordset")
mysql=" select * from rep "
rs.Open mysql, objConn, 1, 3
rs.addnew
rs.fields("电流")=values(amP)
MsgBox"ok"
rs.update
MsgBox"ok"
Set rs = Nothing
objConn.close
Set objConn= Nothing
结果数据没插进去,请问高手出问题在哪
最佳答案
请问这是你自己写的代码吗？还是从某处Copy过来的！
1.objConn，rs ，mysql等对象没有定义
dim objConn,rs ,mysql
2.objConn对象未初始化，且未连接连数据
Set objConn=CreateObject("ADODB.Connection")
objConn.Open "YourDSN Name"
3.values(amP)，没有这样的语句；如果amP是变量名，应该是rs.fields("电流")=HMIRuntime.Tags(""amP").Read
4.MsgBox"ok" -> MsgBox "ok"
5.Set rs = Nothing前最好加一句rs.Close
补充：另外数据表中时候还有其他字段，如有不能为空值的也会出错的。
提问者对于答案的评价：
数据已可以插入,谢谢
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc276386.html
微信扫一扫 
支付宝扫一扫 