如何返回查询值？（query组件）

Question

我用SQL Server 2000做的数据库，首先在入库表中插入记录（table1组件），在存货表中查找相应的商品，增加数量
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select gnum from store');
query1.SQL.Add('where gno=:gno');
if query1.Fields[0].Value=null then
begin
table1.InsertRecord([gno,gnum,gmodule]);
end
else
begin
table1.SetFields([gno,gnum+query1.Fields[0].Value,gmodule]);
end
运行有错误，存货表不能插入，请问该如何做？

Answer 1

缺
query1.parambyname('gno').value:=***;
query1.open加到
query1.SQL.Add('where gno=:gno');
后面

Answer 2

query1.parambyname('gno').value:=***;和提问者的：
query1.Fields[0].Value=null 是一回事，
我估计是因为:1.缺了query1.open
2.你可能把参数gno和query1.Fields[0].Value搞混了，query1.Fields[0].Value
的值是不是指gno的值？如果是的，那table1.SetFields([gno,gnum+query1.Fields[0].Value,gmodule]);就错了。

Answer 3

不是楼上所说的问题。和params[0]是一回事
关键是不是此问题，Query1的参数gno没赋值，赋完值后还需要打开

Answer 4

这样吧
  with query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select gnum from store');
    SQL.Add('where gno=:gno');
    ParamByName('gno').AsString := '***'
    Open;
  end;  if query1.RecordCount <= 0 then
  begin
    table1.InsertRecord([gno, gnum, gmodule]);
  end
  else
  begin
    table1.SetFields([gno, gnum + query1.FieldByName('gnum').AsFloat, gmodule]);
  end

Answer 5

query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select gnum from store ');
query1.SQL.Add('where gno=:gno');
query1.parambyname('gno').value:='aaa';
query1.open;if query1.Fields[0].Value=null then
begin
table1.InsertRecord([gno,gnum,gmodule]);
end
else
begin
table1.SetFields([gno,gnum+query1.Fields[0].Value,gmodule]);
end

Answer 6

query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select gnum from store');
//这里下一句的where前没有空格，而且不推荐Query用参数，因为你的Query的SQL本身
//就是动态的，所以可以是这样
//query1.SQL.Add(' where gno='''+String(gno)+'''');
// gno是一个变量，你要在前面申明，因为我看到你后面很多地方用到gnoquery1.SQL.Add('where gno=:gno');
//Query没有Open操作，只有Open操作后，才能得到数据集
if query1.Fields[0].Value=null then
begin
table1.InsertRecord([gno,gnum,gmodule]);
end
else
begin
table1.SetFields([gno,gnum+query1.Fields[0].Value,gmodule]);
end
//if 和 else后面的begin end 是多余的，因为if else 后面都只有一句话。
//Table1和Query1指定的其实是一个数据集，所以没有必要用到Table1
//最后的数据集没有更新操作，可以这样
//if query1.Fields[0].Value=null then
//Query1.InsertRecord([gno,gnum,gmodule])
//else
//Query1.SetFields([gno,gnum+query1.Fields[0].Value,gmodule]);
//Query1.Post;