Question

我在过滤来自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

Answer 1

首先，不要将列命名为“ 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

Answer 2

您可以将其减少为：

Dim Boolean1 As Boolean
Dim Sql As String

Boolean1 = Me!Checkbox1.Value
Sql = "Select * From Database Where BooleanField = " & Str(Boolean1) & ""

Me.List.RowSource = Sql

复选框过滤出现问题

2 个答案: