关于sql语言中使用where的一个问题

Question

在应用程序中查询按钮点击事件如下：
Query1.SQL.Text :='select ID as 记录号,CrtDate as 采样时间,'+
   'from db_test.db '+
   'where ID=StrToInt(Edit1.text) ';    //等于记录号
   Query1.Open;
可是总是给出出错提示Capability not supported！如何将Edit1中输入的查询记录号应用于where语句中？

Answer 1

设个变量
str:=StrToInt(Edit1.text) 
+'where ID='''+str+'''';

Answer 2

这样写Query1.SQL.Text :='select ID as 记录号,CrtDate as 采样时间'
                 +' from db_test.db'
                 +' where ID='''+StrToInt(Edit1.text)+'''';    //等于记录号
Query1.Open;

Answer 3

更正一下Query1.SQL.Text :='select ID as 记录号,CrtDate as 采样时间'
                 +' from db_test.db'
                 +' where 记录号='''+StrToInt(Edit1.text)+'''';    //等于记录号
Query1.Open;

Answer 4

Query1.SQL.Text :='select ID as 记录号,CrtDate as 采样时间,'+
   'from db_test.db '+
   'where ID='+Edit1.text;    //等于记录号
   Query1.Open;

Answer 5

朋友推荐，第一次上csdn，就收到大家如此热情的欢迎。
但是我不太熟悉这里的操作，不知道如何结贴，麻烦那位告诉我一下。谢谢

Answer 6

Query1.SQL.Text :='select ID ,CrtDate from db_test.db'
                 +' where ID='''+StrToInt(Edit1.text)+'''';    
Query1.Open;

Answer 7

WWWWA的答复我调试通过了；dancedog，fhuibo的答复没有调试通过，总是给出整型和字符串型不匹配的提示；wangguan007的答复我没有调试。谢谢大家