Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/delphi/9.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Database 如何使用delphixe8获取数据库中的元素数_Database_Delphi - Fatal编程技术网

Database 如何使用delphixe8获取数据库中的元素数

Database 如何使用delphixe8获取数据库中的元素数,database,delphi,Database,Delphi,我正在尝试使用Delphi创建电子邮件发件人。我有一个包含状态和电子邮件的数据库,我需要得到数据库中元素的数量,这样我就可以创建一个for循环。这是我代码的一部分: procedure TForm1.bDataBaseClick(Sender: TObject); var i : integer; begin FDConnection1.StartTransaction; FDConnection1.Open(); //FD

我正在尝试使用Delphi创建电子邮件发件人。我有一个包含状态和电子邮件的数据库,我需要得到数据库中元素的数量,这样我就可以创建一个for循环。这是我代码的一部分:

procedure TForm1.bDataBaseClick(Sender: TObject);
      var
        i : integer;
    begin
      FDConnection1.StartTransaction;
      FDConnection1.Open();
      //FDQuery1.ExecSQL('UPDATE Vasko '
                               //+' SET BatchNumber = 112233 '
                               //+' WHERE StatusOfProd = 4');
      //FDQuery1.ExecSQL('select * from Vasko');
      for i := 0 to FDQuery1.ComponentCount - 1 do
      showmessage('hello');

      FDConnection1.Commit;
      FDConnection1.Close();
end;
现在我只想做一个循环,多次显示消息。我认为我在这方面有错误:

 for i := 0 to FDQuery1.ComponentCount - 1 do

提前谢谢你

那个财产不是你想要的。您感兴趣的是。有更多错误,但您可能正在查找
FDQuery1.RecordCount
(请注意FireDAC有一些模式会影响此属性返回的内容)。为什么你需要知道计数才能迭代查询结果?我有一个包含电子邮件的数据库,如果状态为0,我需要发送电子邮件,因此我必须迭代我认为的所有内容。然后你应该使用一个循环,如WHILE not FDQuery1.EOF do。。。在循环中,在末尾使用FDQuery1.next前进到下一条记录。