将值从SQL语句保存到VBS变量

Question

作为SQL和VBS编程的初学者，我遇到以下问题。我想确定SQL表中的行数，将该值保存到VBS变量，然后在for循环中使用它。 我想出了下面的代码，但很明显我在这里遗漏了一些东西而且我基本上都被卡住了。

num_rows = "SELECT COUNT(id) FROM recepti_sol"

For y = 0 To "num_rows"

请帮我完成代码。 谢谢你的时间和精力！

Answer 1

修改 这是一个sql server的例子 把它作为最简单的运行，但不要因为它有明确的文本密码而使其高效。无论如何，它可能会失败，具体取决于您的sqlserver配置，但您可以使用不同的连接字符串进行修复，因此，请再次阅读它们

set conn= CreateObject("ADODB.Connection")
conn.Open "Driver={SQLServer};Server=Your_Server_Name;Database=Your_Database_Name;Uid=sa;Pwd=saPassword;"
set rs = CreateObject("ADODB.recordset")
rs.Open "SELECT COUNT(id) as num_rows FROM recepti_sol", conn
For y = 1 To rs("num_rows")
  ...
  ...
next
rs.close
conn.close
set rs = nothing
set conn = nothing

Answer 2

参见my answer to your other question - 使用Recordset对象的.GetRows（）方法并使用返回的二维arry。