为什么总说“对象关闭时，操作不被允许？”

[drunkula]

上次在论坛提出的问题，多谢大家帮忙，已经基本解决，可是在添加记录后，总是出现“对象关闭时，操作不被允许”这样的出错信号，但信息已经成功添加，调了半天，还是报错，这是怎么回事啊，在这里求大家帮忙了，我的愿代码如下：
sql = "insert into 出库表 (数量,单价,出库日期,经手人,订购客户,订单编号,产品批次编号,产品名称,货架编号,规格,金额,重量,生产日期,保质期) Select '"
sql = sql & Val(txtExtSellQuantities.Text) & "','" '出货数量
sql = sql & Val(txtExtSellPrice.Text) & "','" '出货价格
sql = sql & Trim(txtExtSellDate.Text) & "','" '出货日期
sql = sql & Trim(txtExtSellOperator.Text) & "','" '经手人
sql = sql & Trim(txtExtSellOrderMarks.Text) & "','" '订购客户
sql = sql & Trim(txtExtSellCustomers.Text) & "','" '订单编号
sql = sql & " 产品批次编号,产品名称,货架编号,产品规格,金额,产品重量,生产日期,保质期 from 库存表 where 产品批次编号 = " + txtExtSellMarks.Text & "'"


我用的是ADO连接。大家教我该如何操做才能去掉该死的出错信号~~~~~

[pengdali]

你的ado对象是不是没有被关闭？

[dafu71]

sql = sql & Trim(txtExtSellCustomers.Text) & "'," '订单编号
ql = sql & " 产品批次编号,产品名称,货架编号,产品规格,金额,产品重量,生产日期,保质期 from 库存表 where 产品批次编号 = '" + txtExtSellMarks.Text & "'"
注意引号

[drunkula]

我怀疑也是AOD对象没有关闭，可是我没有这方面的经验，大力兄可否解释得详细些，如代码如何写，多谢了！

[drunkula]

我的整段代码，包括ADO连接都载在下面了，ADO对象怎样关闭啊？希望大家指教！
Dim sql As String
Dim Sql_str As String

sql = "insert into 出库表 (数量,单价,出库日期,经手人,订购客户,订单编号,产品批次编号,产品名称,货架编号,规格,金额,重量,生产日期,保质期) values('"
sql = sql & Val(txtExtSellQuantities.Text) & "','" '出货数量
sql = sql & Val(txtExtSellPrice.Text) & "','" '出货价格
sql = sql & Trim(txtExtSellDate.Text) & "','" '出货日期
sql = sql & Trim(txtExtSellOperator.Text) & "','" '经手人
sql = sql & Trim(txtExtSellOrderMarks.Text) & "','" '订购客户
sql = sql & Trim(txtExtSellCustomers.Text) & "','" '订单编号
sql = sql & "select 产品批次编号,产品名称,货架编号,产品规格,金额,产品重量,生产日期,保质期 from 库存表 where 产品批次编号 = " + txtExtSellMarks.Text & "')"

Adodc4.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=store;Data Source=star"
Adodc4.RecordSource = sql
Adodc4.Refresh

[drunkula]

大家说的方法都试了，没有成功，ADODC没有OPEN和CLOSE方法啊~~~~~~~~~~~~~~~~~~~`
谁来救我~~~~

[whysun]

'应该先关闭相应的记录集
Adodc4.close
set adodc4=nothing

[mjhnet]

Dim sql As String
Dim Sql_str As String

sql = "insert into 出库表 (数量,单价,出库日期,经手人,订购客户,订单编号,产品批次编号,产品名称,货架编号,规格,金额,重量,生产日期,保质期) values('"
sql = sql & Val(txtExtSellQuantities.Text) & "','" '出货数量
sql = sql & Val(txtExtSellPrice.Text) & "','" '出货价格
sql = sql & Trim(txtExtSellDate.Text) & "','" '出货日期
sql = sql & Trim(txtExtSellOperator.Text) & "','" '经手人
sql = sql & Trim(txtExtSellOrderMarks.Text) & "','" '订购客户
sql = sql & Trim(txtExtSellCustomers.Text) & "','" '订单编号
sql = sql & "select 产品批次编号,产品名称,货架编号,产品规格,金额,产品重量,生产日期,保质期 from 库存表 where 产品批次编号 = " + txtExtSellMarks.Text & "')"

Adodc4.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=store;Data Source=star"
Adodc4.Open
Adodc4.execute(sql)
......

[cloudchen]

先关闭、再打开
conn.close
conn.open