procedure TForm1.Button1Click(Sender: TObject);
var
x:string;
begin
x:=edit1.Text;
query1.Close;
query1.SQL.Clear;
query1.sql.Add('select * from people where 姓名 查询like'+#39+'x'+#39);
query1.open;
dbgrid1.datasource:=datasource1;
dbgrid1.refresh;
end;
end.
其中 people为表名
但是查询结果dbgrid中的结果总为空
var
x:string;
begin
x:=edit1.Text;
query1.Close;
query1.SQL.Clear;
query1.sql.Add('select * from people where 姓名 查询like'+#39+'x'+#39);
query1.open;
dbgrid1.datasource:=datasource1;
dbgrid1.refresh;
end;
end.
其中 people为表名
但是查询结果dbgrid中的结果总为空
解决方案 »
- BDE连接不上数据库
- Delphi问题
- Delphi7里为何换行是老是编译不过去?
- 谁能提供一个抢答器的原码啊?救急啊 散分了!!
- 在安装EHLIB2.5时出错
- 如何用sql语句将一个表中的所有记录追加到另一个表中?
- 字符串排版,遇到‘?’换行
- 在'客户-服务器'中,怎样才能够实时监视到接收信息的情况?
- 求助:socketconnection出错的问题
- 要在WIN2000中做一个自动起动的后台监视程序有什么要点?做成EXE OR DLL 哪种好?
- 我在51delphi下载的raize 3.09在delphi6中不能用,怎么回事?
- 把imagelist控件的图片属性改成32*32后,toolbar上的图标就不能显示了?
procedure TForm1.Button1Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.sql.Add('select * from people where 姓名 like "%'+trim(edit1.Text)+'%"';
query1.open;
dbgrid1.datasource:=datasource1;
dbgrid1.refresh;
end;
end.
query1.sql.Add('select * from people where 姓名 like ''%'+Edit1.Text+'%''');
就可以了,如果类型不对的话就更改quotedstr部分
同意楼上