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
微信扫一扫 
支付宝扫一扫 