procedure TForm1.Button9Click(Sender: TObject);
begin
with DM2.ADOQuery3 do
begin
Close;
SQL.Clear;
SQL.Add('select OutStocks.Name as 名字,sum(OutStocks.Num) as 出库数量,sum(Stocks.Num) as 库存数量');
SQL.Add('from OutStocks join Stocks');
SQL.Add('on OutStocks.Name=Stocks.Name');
SQL.Add('group by OutStocks.Name');
Open;
end;
end;
begin
with DM2.ADOQuery3 do
begin
Close;
SQL.Clear;
SQL.Add('select OutStocks.Name as 名字,sum(OutStocks.Num) as 出库数量,sum(Stocks.Num) as 库存数量');
SQL.Add('from OutStocks join Stocks');
SQL.Add('on OutStocks.Name=Stocks.Name');
SQL.Add('group by OutStocks.Name');
Open;
end;
end;
解决方案 »
- Delphi 获取DBCC结果
- opendialog打开不选的一个错误
- [新得不能再新的新手]请原谅我的无知
- 关于API函数ReadProcessMemory的用法问题?
- SakEmail接收新邮件的问题
- 奇怪了,结果怎么就不一样?
- 字段为空是查出来的是个什么dd fieldvalues=???
- 急!!! MSComm中output的输出类型问题(输出字符要求转化为hex 16进制) : delphi中如何声明16进制数 ?
- !!!!!我的image是从远程计算机截取udp传过来的,怎么用scrollbar卷屏????????
- 用ShellExecute怎么在一个新窗口打开网页呢?
- 求XP系统中屏蔽系统热键代码
- 我想直接在设计程序时定制ComboBox的下拉窗口,而不是重新设计一个组件,该怎么做
SQL.Add(' from OutStocks join Stocks');
SQL.Add(' on OutStocks.Name=Stocks.Name');
SQL.Add(' group by OutStocks.Name');加空格
SQL.Add('select OutStocks.Name as 名字,sum(OutStocks.Num) as 出库数量,sum(Stocks.Num) as 库存数量');
SQL.Add('from OutStocks join Stocks');
SQL.Add('on OutStocks.Name=Stocks.Name');
SQL.Add('group by OutStocks.Name');//将sql.text showmessage看看有什么问题,或者放入查询设计器看看//如果是单句SQL,最好是使用
sql.text := 'select OutStocks.Name as 名字,sum(OutStocks.Num) as 出库数量,sum(Stocks.Num) as 库存数量 '
+ ' From OutStocks join Stocks'
+ ' on OutStocks.Name=Stocks.Name'
+ ' group by OutStocks.Name';
//连接之前使用空格,执行多句SQL才使用sql.add
procedure TForm1.Button9Click(Sender: TObject);
begin
with DM2.ADOQuery3 do
begin
Close;
SQL.Clear;
SQL.Add('select OutStocks.Name as 名字,sum(OutStocks.Num) as 出库数量,sum(Stocks.Num) as 库存数量');
SQL.Add(' from OutStocks join Stocks on OutStocks.Name=Stocks.Name group by OutStocks.Name');
Open;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select OutStocks.Name as 名字,sum(OutStocks.Num) as 出库数量,sum(Stocks.Num) as 库存数量');
SQL.Add(' from OutStocks join Stocks');
SQL.Add(' on OutStocks.Name=Stocks.Name');
SQL.Add(' group by OutStocks.Name');
memo1.lines.add(sql.text);
//Open;
end;
end;--以下是我在pl/sql dev下测试
create table outstocks(name varchar2(10),num number);
create table stocks(name varchar2(10),num number);
select OutStocks.Name as 名字,sum(OutStocks.Num) as 出库数量,sum(Stocks.Num) as 库存数量
from OutStocks join Stocks
on OutStocks.Name=Stocks.Name
group by OutStocks.Name
begin
with DM2.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select OutStocks.Name as 名字,sum(OutStocks.Num) as 出库数量,sum(Stocks.Num) as 库存数量');
SQL.Add(' from OutStocks join Stocks');
SQL.Add(' on OutStocks.Name=Stocks.Name');
SQL.Add(' group by OutStocks.Name'); Open;
end;
end;测试了下,还是'FROM子句语法错误'真是见鬼了,谢谢大家,尤其是zxf_feng ,我再找找原因~