时间戳

首页 > 解决方案 > 复选框过滤问题

vba - 复选框过滤问题

问题描述

我在过滤来自 sql 数据库的字段时遇到问题。我已经设法制作了一个文本框过滤器，但我无法制作一个复选框。

这是我现在拥有的代码

Dim bolean1 As Boolean

If (Me.checkbox1.Value) = True Then
    (Me.checkbox1.Value) = Boolean1 = 0
Else 
    Boolean1 = 1 And Me.checkbox1.Value = boolean1
End If

Dim Sql As String

Sql = " Select *From Database Where boolean = boolean1"

Me.List.RowSource = Sql

标签： vbams-access

解决方案

首先，不要将列命名为“Boolean”，也不要将字符串声明为“sql”，因为要保留这些词。

请注意，您的 sql 需要在 * 和 F 之间有一个空格

使用参数。

    Dim SqlConn As New SqlConnection("ConnectionString")
    Dim SqlCmd As New SqlCommand("SELECT * FROM Tablw WHERE ColumnName =@ColumnName", SqlConn)
    SqlCmd.Parameters.Add("@ColumnName", SqlDbType.Bit).Value = CheckBox1.Checked

推荐阅读