oracle 数据库 操作 的问题 找服装生产管理软件
进销存软件版1楼: procedure TForm1.Button1Click(Sender: TObject);
begin
with q1.Parameters.AddParameter do
begin
Datatype:=ftInteger;
name:=＇＇count＇＇;
direction:=pdInputOutput;
end;
with q1.Parameters.AddParameter do
begin
Datatype:=ftInteger;
name:=＇＇name＇＇;
direction:=pdInputOutput;
end;
with q1 do
begin
sql.Clear;
sql.Add(＇＇begin＇＇);
sql.Append(＇＇ select count(*) into :count from capub;＇＇);
sql.Append(＇＇ select count(*) into :name from capub;＇＇);
sql.Append(＇＇ end;＇＇);
execsql;
end;
Button1.Caption:=q1.Parameters.ParamByName(＇＇count＇＇).Value+q1.Parameters.ParamByName(＇＇name＇＇).Value;
end;
请教大虾,在execsql 处出错,怎么解决,其中q1是TAdoQeury
begin
with q1.Parameters.AddParameter do
begin
Datatype:=ftInteger;
name:=＇＇count＇＇;
direction:=pdInputOutput;
end;
with q1.Parameters.AddParameter do
begin
Datatype:=ftInteger;
name:=＇＇name＇＇;
direction:=pdInputOutput;
end;
with q1 do
begin
sql.Clear;
sql.Add(＇＇begin＇＇);
sql.Append(＇＇ select count(*) into :count from capub;＇＇);
sql.Append(＇＇ select count(*) into :name from capub;＇＇);
sql.Append(＇＇ end;＇＇);
execsql;
end;
Button1.Caption:=q1.Parameters.ParamByName(＇＇count＇＇).Value+q1.Parameters.ParamByName(＇＇name＇＇).Value;
end;
请教大虾,在execsql 处出错,怎么解决,其中q1是TAdoQeury
2楼: select count(*) into :count
这里的参数好像是代表一个虚拟表名。
你想把它放到参数里，将会出错。
好像楼下说得对。 如服装生产管理软件
3楼: 如果你是有返回数据集的时候，你应该用Open方法
如果你是无返回数据集的时候，可以用ExeSQL的方法
比如：你要查询，则
AdoQuery1.Close;
AdoQuery1.SQL.Text := ＇＇Select * from [TableName]＇＇;
AdoQuery1.Open;
你要做Insert等没有返回数据集操作的时候：
AdoQuery1.Close;
AdoQuery1.SQL.Text := Insert into [TableName]([Field1])values(1)＇＇;
AdoQuery1.ExeSQL;
-------------------------------------------------------------------------
如果我的說法對你有幫助，請您也幫我一個忙：
詳情請見：
http://www.delphibbs.com/delphibbs/dispq.asp？lid=3373990
4楼: 换了名称也不行，比如换成count1
5楼: 换成 open也不行啊，总是提示“未指定的错误”
6楼: 你的语句用两个ADOQuery控件，试一下。
不要用一个。里面的Begin ..end;可能不支持。
进销存软件版7楼: 用一个也还是不行啊，总是提示那个错误
联系我们
