Question

Delphi中BDE控件query代码怎么转换成ADO中adoquery代码？ 代码如下

with form4.query1 do
begin
Close;
SQL.Clear;
SQL.Add('insert into 用户 values(:A,:B,:C)');
ParamByName('A').AsString:=trim(edit1.Text);
ParamByName('B').AsString:=trim(edit2.Text);
ParamByName('C').AsString:=trim('user');
execsql;

Answer 1

with ADOQUEYR do
begin
Close;
ADOQUEYR .parameters[0].value := trim(edit1.Text);
ADOQUEYR .parameters[1].value := trim(edit2.Text);
ADOQUEYR .parameters[2].value := trim('user');
execsql;
ADOQUEYR 的内容 insert into 用户 values(:A,:B,:C) 用户 用户表是不是只有3个栏位？

Answer 2

ado组件中的adoquery，就是相对于query的一个ado制件，不需要做任何调整就可用。当然，with form4.query1 do ，这个组件名得改过来：）