with adodm.query_admin do
begin
close;
sql.clear;
sql.add('insert ZDY_BBK_ZUSER(USER_NAME,USER_PWS,USER_XM,USER_FACTORY,USER_BM,USER_QX1,USER_QX2,USER_QX3,USER_QX4) ' );
SQL.ADD(' VALUES(:USER_NAME,:USER_PWS,:USER_XM,:USER_FACTORY,:USER_BM,:USER_QX1,:USER_QX2,:USER_QX3,:USER_QX4)') ;
parameters.ParamByName('USER_NAME').value:=Edit_USER.Text;
parameters.ParamByName('USER_PWS').value:=Edit_PWS.Text;
parameters.ParamByName('USER_XM').value:=Edit_XM.Text;
parameters.ParamByName('USER_FACTORY').value:=COM_FACTORY.Text;
parameters.ParamByName('USER_BM').value:=Edit_XM.Text;
parameters.ParamByName('USER_QX1').value:=USER_QX1;
parameters.ParamByName('USER_QX2').value:=USER_QX2;
parameters.ParamByName('USER_QX3').value:=USER_QX3;
parameters.ParamByName('USER_QX4').value:=USER_QX4;
OPEN;
end;运行时候倒是可以成功插入记录,但总是弹出这样一个提示,
query_admin commandtext dose not return a result set请问怎样改正?
begin
close;
sql.clear;
sql.add('insert ZDY_BBK_ZUSER(USER_NAME,USER_PWS,USER_XM,USER_FACTORY,USER_BM,USER_QX1,USER_QX2,USER_QX3,USER_QX4) ' );
SQL.ADD(' VALUES(:USER_NAME,:USER_PWS,:USER_XM,:USER_FACTORY,:USER_BM,:USER_QX1,:USER_QX2,:USER_QX3,:USER_QX4)') ;
parameters.ParamByName('USER_NAME').value:=Edit_USER.Text;
parameters.ParamByName('USER_PWS').value:=Edit_PWS.Text;
parameters.ParamByName('USER_XM').value:=Edit_XM.Text;
parameters.ParamByName('USER_FACTORY').value:=COM_FACTORY.Text;
parameters.ParamByName('USER_BM').value:=Edit_XM.Text;
parameters.ParamByName('USER_QX1').value:=USER_QX1;
parameters.ParamByName('USER_QX2').value:=USER_QX2;
parameters.ParamByName('USER_QX3').value:=USER_QX3;
parameters.ParamByName('USER_QX4').value:=USER_QX4;
OPEN;
end;运行时候倒是可以成功插入记录,但总是弹出这样一个提示,
query_admin commandtext dose not return a result set请问怎样改正?
SQL.execSQL;
OPEN;
-->Execsql;
post