困扰我好久的问题了，希望高手帮忙，一定有分！！！！！

Question

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 & "'"

Answer 1

你这是VB的问题呀。
首先定义一定连接：
Dim cngis As New ADODB.Connection
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 & "')"cngis.open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=store;Data Source=star"
cngis.Execute(sql)

Answer 2

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 & "'"即将
 insert 出库表 (...) values ... select ...
改为insert 出库表 (...) select ...

Answer 3

把你form中的控件值作为 select子句的常量字段就行了。如上所示

Answer 4

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 & "')"

Answer 5

你把你原来的语句： 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 & "')"最后的：sql = sql & "select 产品批次编号,产品名称,货架编号,产品规格,金额,产品重量,生产日期,保质期 from 库存表 where 产品批次编号 = " + txtExtSellMarks.Text & "')"改为一个一个字段的读取：也就是：sql = sql & "select 产品批次编号 from 库存表 where 产品批次编号 = " + txtExtSellMarks.Text & "')"
sql = sql & "select 产品名称 from 库存表 where 产品批次编号 = " + txtExtSellMarks.Text & "')"
以下一样。试试

Answer 6

谢谢大家的答复，在大家的提示下，我自己找到错误了。谢谢大家的帮忙， tiny_yan(tiny) 、 txlicenhe(马可@李)的意见很中肯，分数我已经给您加上，谢谢。：）