我在Delphi7 下用BDE的Tqurey控件连接的Oracle数据库,想动态修改Tqurey的Sql属性来改变查询的数据,为什么运行的时候总是错误:Project Project1.exe raised exception class EDBEngineError with message’Operation not applicable.’.Process stopped,Use step or Run to continue.我的原代码如下:procedure TForm3.FormCreate(Sender: TObject);
begin
Query1.Open;
end;procedure TForm3.Button1Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from mybase where yflb=:yflb');
query1.Prepare;
query1.ParamByName('yflb').AsString:=edit1.Text;
query1.Open ;
end;end.请高手指点指点,我真的不知道是哪里的问题,自已调了很久都找不到问题所在,5555555????
begin
Query1.Open;
end;procedure TForm3.Button1Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from mybase where yflb=:yflb');
query1.Prepare;
query1.ParamByName('yflb').AsString:=edit1.Text;
query1.Open ;
end;end.请高手指点指点,我真的不知道是哪里的问题,自已调了很久都找不到问题所在,5555555????
解决方案 »
- 如何判断一变量是否被赋值???
- 无法定位程序输入点abc于动态联结库smspdu.dll上,什么意思?在线请教!!
- 如何使编译文件大小最小,非常有经验的高手请进来谈谈你的做法!
- 用DBEXEPRESS 通过INTERNET 联接 LINUX 上的MYSQL 如何设置?
- 那位用过TChart中的Gantt,有一问题请指教???
- 請教如何獲得當前操作系統的語言設置,比如繁體\簡體或英文?
- 如何读取网络数据包(数量)!
- 请问OFFICE里哪个CHM文件是ACCESS的有关SQL的HELP文件??
- 在Delphi中,怎么让Label 中的字体显示的比较圆润,不出现锯齿状!
- jjjj,简单问题!
- 如何得到ALT+TAB里的程序列表和句柄
- 远程数据库的连接----急啊~
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from mybase where yflb=:yflb');
//query1.Prepare;
query1.params.ParamByName('yflb').value:=edit1.Text;
query1.Open ;
end;
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from mybase where yflb=:yflb');
//query1.Prepare;
query1.params.ParamByName('yflb').datatype:=ftstring;
query1.params.ParamByName('yflb').value:=edit1.Text;
query1.Open ;
end;