DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: 936625755
今日帖子: 38
在线用户: 21
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 wufen (wufen) ★☆☆☆☆ -
盒子活跃会员
2003/5/24 11:50:49
标题:
我实在找不出错误,请大家告诉我错在那儿! 浏览:3102
加入我的收藏
楼主: 我想实现将数据库的查询结果显示在memo中,以下是代码
var
  sGetResult : String ;
  i: integer ;

begin
if  ComboBox1.ItemIndex=0//若ComboBox1的选项是第一项,则进行
then begin
 Query2.Close;
 Query2.SQL.Clear;
 Query2.SQL.Add('select * from zhongjie');//查找zhongjie表中所有项
 Query2.open;
 begin
With Query2 do
sGetResult := ' ;
First ;
  
  for i:= 0 to Query2.RecordCount - 1 do
  begin
  sGetResult := sGetResult + Query2.Fields[0].AsString ;//返回查找中的第一列,并每项相加
  memo1.lines.add(sGetResult);//结果显示在memo中
  Next ;
end;
end;
end.
为什么我运行能通过,但memo中显示的却是一片空白?是不是逻辑错误,可我实在看不出哪里有错
或者谁写个正确的给我,谢谢!
还有unable to invoke code completion due to errors in source cord
是什么意思?为什么出现了这个提示还能运行通过?
明天过来看
----------------------------------------------
delphi菜鸟
作者:
女 123 (猪猪) ★☆☆☆☆ -
盒子活跃会员
2003/5/24 12:08:08
1楼: 我也看不出来哈,是不是本来就没有记录,所以空白:~)
----------------------------------------------
-
作者:
女 chynadudu (涂涂) ★☆☆☆☆ -
盒子活跃会员
2003/5/24 12:28:55
1楼:   奇怪,你的这段代码也能编译过去?你有没有跟踪程序?也许你取出的数据就是空的




----------------------------------------------
-
作者:
男 ln_81 (delphior) ★☆☆☆☆ -
注册会员
2003/5/24 14:29:24
2楼: unable to invoke code completion due to errors in source cord
的意思好像是,因来源约束错误导致代码无法执行。
“Query2.SQL.Add('select * from zhongjie');//查找zhongjie表中所有项”
后面好像应有Query2.SQL.prepare;
----------------------------------------------
-
作者:
女 yjcheng (sunny) ★☆☆☆☆ -
盒子活跃会员
2003/5/25 21:00:08
3楼: for i:= 0 to Query2.RecordCount - 1 do一般会出错

用for i := 1 to Query2.RecordCount do
即可

----------------------------------------------
-
作者:
男 anjunaj (皮子) ★☆☆☆☆ -
普通会员
2003/5/26 23:55:42
4楼: 我改造了一下就可以,你在试试!:)
delphi 6.0+它自带的DBDEMOS数据库中的biolife.db表运行通过。代码如下:
var
  sGetResult : String ;
  i: integer ;
begin
 with query1 do
  begin
   close;
   sql.clear;
   sql.Add('select * from biolife.db');
   open;
   sGetResult:=';
   first;
   for i:= 0 to Query1.RecordCount - 1 do
    begin
    sGetResult := sGetResult + Query1.Fields[3].AsString ;//返回查找中的第一列,并每项相加
    Next ;
   end;
  end;
      memo1.lines.add(sGetResult);//结果显示在memo中
----------------------------------------------
-
作者:
男 wufen (wufen) ★☆☆☆☆ -
盒子活跃会员
2003/5/28 16:24:59
5楼: 谢谢anjunaj看来是with语句的位置不对
----------------------------------------------
delphi菜鸟
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行35.15625毫秒 RSS