刚学DELPHI,看到很多都是用sql查询用数据桌面建立的表,如1.db,2.db.因为比较简单,想不用sql查询,哪位能不能举个组合查询的例子,如1.db中有姓名,性别,成绩,学号,想通过姓名和成绩查询..望举例
解决方案 »
- 多DLL窗体显示问题.
- report machine 或fast report导出excel后, 图片模糊
- Virtual Listview怎样实现,请各位帮帮忙!
- SQL问题:
- 如何控制程序当缩小到右下角图标后,使图标闪烁或改变图标形状或颜色,总之是看起来有动感,或者发出声音以提示
- 如何在delphi中提高数据库访问的速度?
- 有深圳的DELPHI程序员吗?
- 续“急救!!急救!!在SQL Server 2000管理器中误删除了一个数据库!”,现在数据库文件已经恢复,但是建库总提示“日志文件出错”??
- 如何用delphi画出有箭头、有节点的流程图?
- 那位高手知道JS.On888是什么病毒?
- 我的access数据库设置了密码,但是用delphi的ado连接的时候,老是包错,非独占方式?
- 外部程序调用的参数传递问题
程序界面很简单,没有combox,grid,只想对查询后的结果做处理.
比如:
main表
属性:
maintag,mainnum,tag,subtag,data
sub表
subtag,subnum,tag,subtag1
想对tag和subtag进行组合查询
比如,tag为120,subtag为b
查询后想对结果进行处理(如把data调出),filter过滤后能调用结果吗?能不能说详细点啊?谢谢拉
begin
With Data.ADOTXx do
Close;
Data.ADOTXx.Open;
if (combobox1.Text='')or(Edit1.Text='') then
begin
application.MessageBox('请选择查询方式和输入查询内容.','提示',mb_OK);
// showmessage('请选择查询方式和输入查询内容')
end
else
begin
if combobox1.Text='学号' then Data.ADOTXx.filter:='ID='''+edit1.Text+'''';
if combobox1.Text='姓名' then Data.ADOTXx.filter:='name='''+edit1.Text+'''';
if combobox1.text='班级' then Data.ADOTXx.filter:='glass='''+edit1.Text+'''';
Data.ADOTXx.open;
Data.ADOTXx.filtered:=true;
if (DBEdit1.Text='') and (DBEdit2.Text ='') and (DBEdit3.Text='') then
begin
messagebeep(1);
Application.MessageBox('没有符合条件的记录!','提示',mb_OK);
//showmessage('没有符合条件的记录!');
if messagedlg('是否继续查询?',mtinformation,[mbyes,mbno],0)=mrno then
begin
Data.ADOTXx.filtered:=false;
end
end;
end;
end;
你看一下吧!
这个代码我自己写的,很详细了。
有什么问题可以用QQ与我联系!
QQ:122435086
大家都可以加为好友便与学习和交流!
来者说明身份~
那么
'select * from table where a='+ (combox1.text)+ 'and b='+(combox2.text)'';?