Vb6 如何在数据环境中向SQL查询传递值'；Visual Basic 6.0中运行时的s命令对象？

在DataEnvironment中，我有一个命令对象 给定以下SQL查询：

SELECT * FROM userdetails WHERE Date = Todays_date

这里的

Todays\u date

是模块中的一个公共变量。 此变量在运行时接受值

---

如何在DataEnvironment的SQL查询中调用变量？

VB6手册在关闭和重新打开标题下的记录集时介绍了这一点。这里给出的示例如下所示：

Option Explicit

Private Sub Command1_Click()
    ' You must close the recordset before changing the parameter.
    If DataEnvironment1.rsCommandQuery.State = adStateOpen Then
        DataEnvironment1.rsCommandQuery.Close
    End If
    ' Reopen the recordset with the input parameter supplied by
    ' the TextBox control.
    DataEnvironment1.CommandQuery Text1.Text
    With Text2
        .DataField = "AU_LName"
        .DataMember = "CommandQuery"
        Set .DataSource = DataEnvironment1
    End With
End Sub

Private Sub Form_Load()
    ' Supply a default value.
    Text1.Text = "172-32-1172"
    ' Change the CommandButton caption.
    Command1.Caption = "Run Query"
End Sub

将命令对象作为其父DataEnvironment的方法调用，并在其中传递参数。一定很喜欢这本精美的手册