Question

delphi中如何使用SQL语句结果

在Delphi中使用ADOQuery.Add添加SQL语句后(如select * from usertable),如何使用其查询的结果?还有如果是执行存储过程,怎样编写存储过程才能让Delphi能够使用其中的值.

Answer 1

ADOQuery 插入资料

在窗体上再加一个adoconnection1，使得它连接资料库，ADOQ连接它。
begin
try
adoconnection1.begintrans;//开始事务
...... //插入记录

reset;
adoconnection1.committrans;//提交事务

....... //给出一个button2.click时的异常
except
adoconnection1.rollbacktrans;//事务回滚
showmesage('添加失效！')；
end;
end;
-----------------------------------------------
ADOQuery insert into data

procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
begin
ADOQuery1.Close ;
ADOQuery1.SQL.Clear;
str:='insert into data values("'+ edit1.Text +'")';

// str:='insert into data(客户编号,客户名称,型号,规格,品名,Iteam_Logo,内条码,外条码,生产地,备注,建档日期) ';
// str:=str+ ' values("'+ dbedit1.Text + '","'+ dbedit2.Text +'","' + dbedit3.Text +'","' + dbedit4.Text +'","' + dbedit5.Text +'","' + dbedit11.Text +'",';
// str:=str+'"' +dbedit6.Text +'","' +dbedit7.Text +'","' +dbedit9.Text +'","' +dbedit10.Text +'","' +dbedit8.Text +'")';

ADOQuery1.SQL.Add(str);
// ADOQuery1.Prepare;
ADOQuery1.ExecSQL;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
str:string;
begin
ADOQuery1.Close ;
ADOQuery1.SQL.Clear;
str:='Select * From Data';
ADOQuery1.SQL.Add(str);
ADOQuery1.ExecSQL;
ADOQuery1.Open;
end;

Answer 2

ADOQuery1.Add('select 用户名,密码 from usertable');
adoquery1.open;
当前用户:=adoquery1.FieldValues['用户名']; //读取值
adoquery1.FieldByName('密码').Value:='123456'; //修改值
adoquery1.next; //将指针指向下一条查询到的记录

Answer 3

问题一：
我一般是把ADOQuery和dataset、dbgrid一起用的。
sql执行的结果存在adoquery中。

问题二：
是指执行存储过程中得到的值吗？那是中间值吧？？有点奇怪的用法。
我经验比较少，没试过。最笨的办法是建个临时表来存储数据，然后提出来