query_p.SQL.clear;
query_p.sql.Add('select factoryid from smpp_factory_name');
query_p.open;执行完这几条语句后,怎样依次取出子段factoryid的值,谢谢了!
query_p.sql.Add('select factoryid from smpp_factory_name');
query_p.open;执行完这几条语句后,怎样依次取出子段factoryid的值,谢谢了!
解决方案 »
- VarArrayCreate([0, 1, 0, 3], varDouble);
- 用TCPCLIENT(阻塞方式)的CONNECT连接服务器的时候,怎么缩短连接响应的时间?
- delphi中dll中怎样添加mscomm控件??回答高分300分!!
- 有关date的问题???
- 请问大虾:如何在EXECL中输出表框????
- 程序最小化时收到请求,如何把自己最大化并提到前边。
- 求救(delphi 自定义公式存储,求值问题)
- 用TWebBrowser控件怎么得到网页提交给服务器的Post信息?
- 为什么在使用SetLength时会出错?
- delphi5开发人员指南带的光盘里有什么内容??
- 在线等待:高分请教,如何获得 *.mp3的tag信息。详情请看内容。 谢谢 !
- 下面的东东能不能用SQL实现
Begin
aa:=aa+query_p.FieldByName('factoryid').Value;
query_p.Next;
End;
query_p.sql.Add('select factoryid from smpp_factory_name');
query_p.open;
query_p.first;While not query_p.Eof Do
Begin
aa:=aa+query_p.FieldByName('factoryid').Value;
query_p.Next;
End;
query_p.first;
While query_p.Eof Do
Begin
aa:=aa+query_p.FieldByName('factoryid').Value;
query_p.Next;
End;
var
ids:array of integer; //声明一个动态数组
i:integer;
begin
....
setLength(ids,query_p.RecordCount); //设定动态数组长度
query_p.first; //定位到第一条记录
for i:=0 to Length(ids)-1 do //循环赋值
begin
ids[i]:=query_p.FieldByName('factoryid').AsInteger;
query_p.next;
end; //end of for
end;