初学,在做一个数据库系统练习。可是用到TQuery的时候就是查询不到结果,程序没有报错,单步执行也通过。
代码片如下:
procedure TQueryForm.BitBtn1Click(Sender: TObject);
begin
Query1:=TQuery.Create(self);
Query1.DatabaseName:='orcl';
Query1.DataSource:=DataSource1;
Query1.sql.Clear;
Query1.SQL.Add('select * from emp2 where EMPNO=:tt');
Query1.ParamByName('tt').AsString:=edit1.Text;
Query1.Prepare;
Query1.Open;
DBNavigator1.DataSource:=Query1.DataSource;
DBGrid1.DataSource:=Query1.DataSource;end;请大家指教。
代码片如下:
procedure TQueryForm.BitBtn1Click(Sender: TObject);
begin
Query1:=TQuery.Create(self);
Query1.DatabaseName:='orcl';
Query1.DataSource:=DataSource1;
Query1.sql.Clear;
Query1.SQL.Add('select * from emp2 where EMPNO=:tt');
Query1.ParamByName('tt').AsString:=edit1.Text;
Query1.Prepare;
Query1.Open;
DBNavigator1.DataSource:=Query1.DataSource;
DBGrid1.DataSource:=Query1.DataSource;end;请大家指教。
可以结贴了,不过还是谢谢你。