仅在 VB6 中显示选定的值

Question

我正在尝试在“是”处于活动状态的数据网格中显示学生。如果学生的“否”处于活动状态，则表格必须将其隐藏并仅向学生显示“是”。 我现在收到的问题是

FROM 子句中的语法错误。

代码：

Private Sub Form_Load()
Dim sql As String

connSearch.Open connstr
Adodc1.ConnectionString = conn.connstr

sql = "select * from Table1 where Active  <>" & "'No'"

Adodc1.RecordSource = sql
Set StudentTable.DataSource = Adodc1
Adodc1.Refresh
Adodc1.Visible = False
End Sub

Answer 1

什么是Active？
如果Active 是Boolean 数据类型（是/否），则可选值为True 或False。在这种情况下，您的查询是：

"select * from Table1 where Active <> False"

如果Active是String数据类型； 'no' 和 'No' 是相同的值吗？你最好将全部转换为小写或大写：

"select * from Table1 where Ucase(Active) <> 'NO'"

编辑：修改后的代码

Dim sql As String

sql = "select * from Table1 where [Active] <> 'No'"
Adodc1.ConnectionString = conn.connstr
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = sql
Set StudentTable.DataSource = Adodc1
Adodc1.Refresh
Adodc1.Visible = False