盒子论坛 v2.1

我想实现将数据库的查询结果显示在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菜鸟

信息

登陆以后才能回复