十万火急:求救!

javavip 2005-12-09 10:38:50
说明:StrSql[][2]是二维数组,是SQL语句,其余变量就没有说明。
每次测试总在 while 后面的 begin 出错:
[Error] MyDDD.pas(285): Missing operator or semicolon
觉得好奇怪,特请教各位,非常感谢!

ADOConn.Open;
if ADOConn.Connected then
begin
for i := 0 to 5 do
begin
ADOQuery_MY.Close;
ADOQuery_MY.SQL.Clear;
ADOQuery_MY.SQL.Add(StrSql[i][2]);
try
ADOQuery_MY.open;
ADOQuery_MY.First;
while not ADOQuery_MY.Eof
begin
AreaTotal := AreaTotal + ADOQuery_MY.FieldByName('name').AsString + ',' + ADOQuery_MY.FieldByName('num').AsString;
ADOQuery_MY.Next;
end;
except on E:Exception do
showmessage(E.Message);
end;
end;
end;
...全文
48 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
javavip 2005-12-10
  • 打赏
  • 举报
回复
真都马虎了,多谢!

我也觉得效率比较低,不过这个是我第一个DELPHI小程序,要不了多久就可以进步提高软件效率。

多谢两位!
madyak 2005-12-10
  • 打赏
  • 举报
回复
觉得这种实现方法有问题,效率极低,如果是在广域网上,要慢死。改用存储过程要好得多。
wjowner 2005-12-10
  • 打赏
  • 举报
回复
while not ADOQuery_MY.Eof
应该是
while not ADOQuery_MY.Eof do

2,497

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧