adoquery.active:=false; adoquery.sql.text:='select * from xxx where 姓名='+#39+edit1.text+#39; adoquery.active:=true; datasource1.dataset:=adoquery1; dbgrid.datasource:=datasource1;
我按照你的做了,可是系统提示 project project2.exe raised exception class edatabaseerror with message'adoquery1:field'姓名' not found',process stopped.use step or run to contiune 我刚才试了一个这个 adoquery1.sql.add('select 姓名 from 用户列表 where 姓名=''张三'''); adoquery1.open; 结果在dbgrid中显示出了结果,但是如果把它该为 adoquery1.sql.add('select 姓名 from 用户列表 where 姓名='+edit1.text); adoquery1.open; 系统也是提示错误, 请大虾们多指教
这样是你SQL语句的问题改成 ADOQuery1.close; ADOQuery1.sql.clear; ADOQuery1.sql.Add('Select 姓名 from 用户列表 where 姓名='''+Trim(Edit1.text)+''''); ADOQuery1.open;有问题可以找我 QQ 25737695
这个肯定行,我就是这样做的,试一下吧: procedure TForm2.Button1Click(Sender: TObject); begin DataModule2.ADOQuery1.Active:=True; DataModule2.ADOQuery1.Close; DataModule2.ADOQuery1.SQL.Clear; DataModule2.ADOQuery1.SQL.Add('select * from wordtest1'); DataModule2.ADOQuery1.SQL.Add('where wname like :name'); DataModule2.ADOQuery1.Parameters[0].Value:='%'+Edit1.Text+'%'; DataModule2.ADOQuery1.Open; end;根据Edit1.Text传入的值来查询!
如何将结果显示在dbgrid中的不同表格中?
procedure TForm2.Button1Click(Sender: TObject); begin with DataModule2.ADOQuery1 do begin Close; SQL.Clear; SQL.Add('select * from wordtest1 ');//接下行时要加空格的 SQL.Add('where wname like :name'); Parameters[0].Value:='%'+Edit1.Text+'%'; Open; end; end; 这样代码其不是更简洁??
select 姓名 from 用户列表 where 姓名=edit1.text
然后将结果显示在dbgrid中?
adoquery.filter=true;
你的dbgrid也连到这个adoquery上就可以了
adoquery.sql.text:='select * from xxx where 姓名='+#39+edit1.text+#39;
adoquery.active:=true;
datasource1.dataset:=adoquery1;
dbgrid.datasource:=datasource1;
project project2.exe raised exception class edatabaseerror with message'adoquery1:field'姓名' not found',process stopped.use step
or run to contiune
我刚才试了一个这个
adoquery1.sql.add('select 姓名 from 用户列表 where 姓名=''张三''');
adoquery1.open;
结果在dbgrid中显示出了结果,但是如果把它该为
adoquery1.sql.add('select 姓名 from 用户列表 where 姓名='+edit1.text);
adoquery1.open;
系统也是提示错误,
请大虾们多指教
ADOQuery1.close;
ADOQuery1.sql.clear;
ADOQuery1.sql.Add('Select 姓名 from 用户列表 where 姓名='''+Trim(Edit1.text)+'''');
ADOQuery1.open;有问题可以找我 QQ 25737695
procedure TForm2.Button1Click(Sender: TObject);
begin
DataModule2.ADOQuery1.Active:=True;
DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('select * from wordtest1');
DataModule2.ADOQuery1.SQL.Add('where wname like :name');
DataModule2.ADOQuery1.Parameters[0].Value:='%'+Edit1.Text+'%';
DataModule2.ADOQuery1.Open;
end;根据Edit1.Text传入的值来查询!
begin
with DataModule2.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from wordtest1 ');//接下行时要加空格的
SQL.Add('where wname like :name');
Parameters[0].Value:='%'+Edit1.Text+'%';
Open;
end;
end;
这样代码其不是更简洁??