sql - 将 SQL 中的选定值打印到文本框 VB6

Question

我正在尝试从 VB6 中的查询中打印选定的值，这是我的代码

dim query as string
dim stsstring as string
dim rs as adobd.recordset
query = "select status from x where y='"& randomString &"'"
set rs = mainmodule.dbutils.dbconnection.connection.execute(query)
set rs = nothing
stsstring = rs.fields("status")
msgbox stsstring

这里有错误

stsstring = rs.fields("status")

Object variable or with block variable not set

提前致谢!

Answer 1

在尝试从中读取状态字段之前，您已将 rs 设置为空。重新排序您的代码以阅读:

'...
stsstring = rs.fields("status")
set rs = nothing
msgbox stsstring