dbExpress的动态查询怎么使用啊？

Question

我有一段代码，在BDE中这样是可心的，但如果用dbExpress，就会报错:scdsProg:Parameter 'login_id'. not found
代码如下：
  With DM.scdsProg Do
  Begin
    if Active Then Close;
    CommandText := 'select * from snms003 where login_ptr = :login_id';
    Params.ParamByName('login_id').AsInteger := 5;
    Open;
  End;
换成Params[0].AsInteger := 5;
也不行。如何是好？

Answer 1

With DM.scdsProg Do
  Begin
    if Active Then Close;
    CommandText := 'select * from snms003 where login_ptr = :login_id';
    ParamByName('login_id').AsInteger := 5;
    ExecProc;
  End;

Answer 2

stephenxu(Stephen):没搞错吧，我不是存储过程。

Answer 3

是在ParamByName('login_id').AsInteger :=5 这一句时出错，不是在Open的时候。后台数据库为ORACLE.

Answer 4

fenglaile(风清飘):有用吗，ORACLE表名不区分大小写吧？