博图wincc写生气了sql server 2008 r2数据库的问题

Dim con
Dim conn
Dim is_sql,b,aa
Dim rs
Dim oCom
con="Provider=SQLOLEDB.1;Integrated Security =false;Persist Security Info=False;UserID=sa;password=123456;Initial Catalog=w;Data Source=USER-20180416SK\SQLEXPRESS"   
    Set conn=CreateObject("ADODB.Connection")
    Set rs=CreateObject("adodb.recordset")
    conn.ConnectionString=con
    conn.CursorLocation=3  '?
    conn.Open

is_sql="INSERT INTO Table_2 (zhi) VALUES ('" & aa &"')"
conn.Execute(is_sql)

conn.Close
'Set?rs?=?Nothing?
'Set?conn?=?Nothing?
End Sub
最后两句'Set?rs?=?Nothing?
'Set?conn?=?Nothing 一直报错,不知为何
另外这个将aa插入到数据库中也没成功

最佳答案

一: aa没有赋值
二:conn.Execute(is_sql) 改为 conn.Execute is_sql
三:''Set?rs?=?Nothing? ''Set?conn?=?Nothing?这两行代码应该
是被注释掉的吧!建议你直接删除好了!

提问者对于答案的评价:
不好意思忘记了

原创文章,作者:ximenziask,如若转载,请注明出处:https://www.zhaoplc.com/plc368739.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2021年7月5日
下一篇 2021年7月5日

相关推荐

发表回复

登录后才能评论