在以前的帖子中我搜到数据查询的帖子如下:
var str:string;
begin
str:='select * from mtsc';
if edit1.text <>'' then
begin
str:=str+' name='+Quotedstr(edit1.text)+' AND ';
end;
if edit2.text <>'' then
begin
str :=str+' format='+Quotedstr(edit2.text)+' AND ';
end;
if combobox1.text <> '' then
begin
str :=str+' kind='+Quotedstr(combobox1.Text)+' AND ';
end;
str:=str+' 1=1'; // 这里是防止你没有选择任意一个
with SQLQuery1 do
SQLQuery1.Close;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.add(str);
SQLQuery1.Open;
end;
但是我不知道怎样才能把查询的结果显示到dbgrid控件上,谢谢各位了!
var str:string;
begin
str:='select * from mtsc';
if edit1.text <>'' then
begin
str:=str+' name='+Quotedstr(edit1.text)+' AND ';
end;
if edit2.text <>'' then
begin
str :=str+' format='+Quotedstr(edit2.text)+' AND ';
end;
if combobox1.text <> '' then
begin
str :=str+' kind='+Quotedstr(combobox1.Text)+' AND ';
end;
str:=str+' 1=1'; // 这里是防止你没有选择任意一个
with SQLQuery1 do
SQLQuery1.Close;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.add(str);
SQLQuery1.Open;
end;
但是我不知道怎样才能把查询的结果显示到dbgrid控件上,谢谢各位了!
解决方案 »
- 插入记录,说参数ckbSysMng.Checked 没有默认值,是哪里有错?
- 向各位大哥请教一个数据库打包问题,谢谢!
- listview的popupmenu`~~
- 调查:Delphi程序员目前的价钱?
- 最好的界面控件,up有分
- 在线等待,如果把数据库中的图片数据,直接显示在WebBrowser中
- 如何取得fastreport中生成的值,经处理后再返回到报表中?
- 谁有powerdesigner8.0的中文教程下载
- delphi 5开发人员指南-这本书对刚学 delphi 的人来说合适吗?
- 請問怎麼在delphi中定義一個全局變量?(各位老大幫我看看吧!)
- 怎样获得鼠标经过的所有坐标值(x,y).
- 帮忙找一下错误,有分数的!
不会显示?
ADOQuery.Active := True;就ok了
加上SQLConnection连接数据库就行了。
或者用ADO来连数据库:
http://community.csdn.net/Expert/topic/4638/4638613.xml?temp=9.716433E-02
加上SQLConnection连接数据库就行了。
而没有查询的就不要显示>你上面的代码就是这样实现的。Str是保存SQL语句的字符串,SQLQuery1.SQL.add(str);就是按你SQL的语句查询来显示结果。如果还不明白,最好找本书来看看。