delphi用随机数开展数据库内表之间的传数

delphi用随机数进行数据库内表之间的传数
delphi新手。。想做个小程序试试，结果遇到点问题。。想请高手指教下。
在写where 情况下，可以把所有的数据从单选题表移动到考卷表，用着完全没问题。。
想设置下条件，产生一个随机数进行随机选题。。结果无法将数据传过去。表内格式没问题，数据也正常,no用的accsee自动编号。
相关代码如下：
p:=(Random(2)+1);

   with ADOQuery1 do
   begin

    Close;
    Sql.Clear;
    Sql.Add('insert into 考卷 (wt,daa,dab,dac) Select wt,daa,dab,dac from 单选题 where no= "1"');
 // Sql.Add('insert into 考卷 (wt,daa,dab,dac) Select wt,daa,dab,dac from 单选题 where no= '''+inttostr(p)+''' ') ;
    Execsql;
   end;

[解决办法]
... where no= '+inttostr(p));
即可。如果no是整数类型
[解决办法]
向楼主学习，终身努力，活到老，学
到老，
[解决办法]

引用:

自己顶下。。。求人帮忙。。。

Select wt,daa,dab,dac from 单选题 where no= "1"'

 Sql.Add('insert into 考卷 (wt,daa,dab,dac) Select wt,daa,dab,dac from 单选题 where no= "1"');
 // Sql.Add('insert into 考卷 (wt,daa,dab,dac) Select wt,daa,dab,dac from 单选题 where no= '''+inttostr(p)+''' ') ;

------------------------------------
//把双引号"" 改为''   
//no字段是字符型时,语句如下
Sql.Add('insert into 考卷 (wt,daa,dab,dac) Select wt,daa,dab,dac from 单选题 where no= ''1''');

//no字段是数值型时,语句如下
Sql.Add('insert into 考卷 (wt,daa,dab,dac) Select wt,daa,dab,dac from 单选题 where no= 1');

查看更多 下一篇