对于循环验证日期VB

Question

我有一个旧的vb6应用程序，用户输入txtFrom和txtTo日期。我必须向SQL SERVER运行查询到tblA，其中有FROM和TO日期的记录来计算它们的记录数。如何在txtFrom和txtTo之间运行每个日期的循环来计算tblA中该日期存在的记录数

RecNo            FromDate          ToDate
1                8/11/2016         8/21/2016
2                8/13/2016         8/23/2016

基本上我想做这样的事情

For each day between txtFrom and txtTo

Select RecNo from tblA where txtDate is between FromDate and Todate
if recordcount >5 then
   msgbox "Too many"
End if

Next date

现在我知道如何编写它的SQL部分，我只是不确定如何遍历日期以便我可以使用它们来检查记录数。

也许做DateDiff然后做一个For x = 1到Datediff，然后为每个日期做dateadd

Answer 1

请参阅以下网址，了解如何浏览记录集：

  

https://msdn.microsoft.com/en-us/library/office/jj249822.aspx

     

http://allenbrowne.com/func-ado.html

Answer 2

回答，这是我怎么做的....

IPConfig->StrictDelimiter = true;
IPConfig->Delimiter = '\n';
IPConfig->DelimitedText = ExecuteExternalFile("ipconfig", "/all", false);