易截截图软件、单文件、免安装、纯绿色、仅160KB

DELPHI大家帮忙看下这段代码哪里错了?

procedure TForm7.ds1DataChange(Sender: TObject; Field: TField);
var
temp1:string;
begin
  temp1:=edit1.text;
  if (temp1 <>'') then
  begin
  ADOQuery3.close;
  ADOQuery3.sql.clear;
  ADOQuery3.sql.add('select * from 表1 where temp1');
  ADOQuery3.open;
  end;
  ds1.DataSet:=ADOQuery3;
  DBGrid1.DataSource:=ds1;
end;
end.
我想根据EDIT1.TEXT所显示的数据,通过搜索然后显示在DBGrid上
贴出错误描述,
另外'select * from 表1 where temp1' 啥意思,对数据库不怎么熟悉

ADOQuery3.sql.add('select * from 表1 where '+temp1);

这是ds1 Data值生变化才会触发此事件

若想根据edit内容改变即时反映出结果,就应该放在edit onchange事件中

还有这个在运行时会出错的:
select * from 表1 where temp1

可改为:
select * from 表1 where kk='+Quotedstr(temp1)

select * from 表1 where temp1
没有参数的,这样写不对吧

ADOQuery3.sql.add('select * from 表1 where 字段名称 = '''+temp1+''' ');



ADOQuery3.sql.add('select * from 表1 where 表1某字段='+temp1);

sql语句有问题

引用
ADOQuery3.sql.add('select * from 表1 where 表1某字段='+temp1);

检查这里数据库看看(,where 表1某字段='+temp1);


相关问答:

delphi動態調用dll的困惑

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改  
  var  
  ......

delphi动态数组如何去掉一个元素

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......

安装了jre6.17后,Delphi不能关闭?

如题, 点击Delphi的File菜单的Exit退出Delphi, Delphi部分关闭--即不能再操作Delphi,但任务栏和进程里,Delphi还在运行,没有真正的退出。是不是安装了jre改变了某些环境变量导致,请问高手如何解决? 注:没安装 ......

delphi画布绘坐标图

请问delphi中的画布能绘坐标图吗,那位大师有这方面的例子,帮忙发一个,谢谢了!我的邮箱是springbird2006@126.com
tChart控件就可以,还有一些第三控件。下载频道里就有不少。

可不可以说具体点呢,我刚学delp ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号