初学,在做一个数据库系统练习。可是用到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;请大家指教。
解决方案 »
- delphi现在还有多少人在用?
- 多线程与数据库,困扰我好几天,我都快疯,请高手给指点一下!
- 怎样读取VF中DBF数据库中的备注字段(里面存儲的是BMP图像),并显示出来?急!!!
- 如何在fastreport里取得总共的页数(就是打印出来以后的页数,我以为totalpages,但是发现它总是0),顶者有分
- 我想弄一个单文档的程序,在窗体启动后最大化显示,在靠左边画出一块矩形,在用鼠标点击这块后出来一个dialog,在这个dialog里有一个comb
- 画布上输出文本的问题,帮忙解决!
- 請 fisheep_cn(笨鱼) 來領分! 多謝。
- 寻找提取屏幕颜色的工具,谢谢
- 如何用代码来最大化和最小化窗口???
- dbcombobox的下拉列表为什么在运行以后就不出现内容了呢?
- FastReport.v4.2运行出错
- 急!如何用delphi实现excel,dbf表数据导入oracle数据库???
可以结贴了,不过还是谢谢你。