var
str:string;
a:string;
begin
a:=ooo1;
with query1 do
begin
Close;
SQL.Add('select b from tablename where a=:a');
parambyname('a').asstring:=a;
prepare;
open;
first;
while not eof do
begin
str:=Str+Feidlbyname('b').asstring;
next;
end;
end;
end;
str:string;
a:string;
begin
a:=ooo1;
with query1 do
begin
Close;
SQL.Add('select b from tablename where a=:a');
parambyname('a').asstring:=a;
prepare;
open;
first;
while not eof do
begin
str:=Str+Feidlbyname('b').asstring;
next;
end;
end;
end;
解决方案 »
- 郁闷,求解决方案。
- 怎样将视频文件存放到access数据库中。。。
- HEX数据转换(在线等,马上给分!)
- 版主,论坛浏览有问题!!!!!!!!!!!!!!!!!
- 关于图片写入数据库的问题?
- 高分——难题:无盘工作站中……
- 谁能给个Delphi7 企业版的下载地址呢?
- 大家好,我是新人,刚接触delphi,现有一关于delphi internet控件问题请教各位老鸟们
- 高分悬赏
- 一个给分题,SQL语句询问?
- 象FlashGet那样,在图表日志查看每个蚂蚁连接,象ListView控件的地方能以各种不同颜色显示状态,是怎么做出来的???
- 如何使listbox 的listitem多行显示,就象oicq的聊天纪录显示的那样?
to JonHua(玉龙) 你理解错了,我不是要那种效果,我想要得出来的结果成为一个大的SQL语句中的一个字段
其实我有两个表:一个是TB1,一个是TB2
TB1中有关键字段A,TB2中也有A,TB1中的一条A对应于TB2中的多条记录
我现在就想得到以下的一个结果:
TB1中的一条记录,但把TB2中对应的多条记录合并为一条成为一个数据集
先Select * from 表 Group By A
然后设置一个temp
temp:=adoQuery(0);
i:=0;
gStr(i):=adoQuery(1);
aodQuery.movenext;
while not aodquery.eof do
if adoquery(0)=temp then
gstr(i):=gStr(i) + adoQuery(1)
else
begin
i:i+1;
temp=adoQuery(0);
gStr(i)=adoQuery(1);
end;
你的dbgrid用重画方法。。 把所得的记录重新画上去,试试看