使用VBS将ACCESS的数据库的ID号做为变量值

假设你的这个变量名为 ID_Value

当ID字段是一个数量型字段时

strSQL = "select A from 表 where ID=" &ID_Value

当ID字段是一个文本型字段时

strSQL = "select A from 表 where ID='" &ID_Value &"'"

randomize 初始化随机数发生器,rnd函数如果不使用发生器，生成的序列数就是固定的一列随机数据。

这个，你可以在程序中用d出对话框查看这个rnd值 round(Int((4 - 0 + 1) * Rnd + 0))，就会发现，每次得到的是同一值。

你这个程序写的没其它问题

---