vb6 - 如何在 Visual Basic 6.0 运行时将值传递给数据环境命令对象中的 SQL 查询？

Question

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

SELECT * FROM userdetails WHERE Date = Todays_date

这Todays_date是 Module 中的一个公共变量。此变量在运行时接受值。

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

Answer 1

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

您将 Command 对象作为其父 DataEnvironment 的方法调用，并在那里传递参数。一定要喜欢《精美手册》。