0

我正在创建一个应该与我的 Access 数据库一起使用的 VB.NET 应用程序。我创建了一个 Microsoft Access 2010 数据库 (.accdb) 并将其导入到 VB.NET 中，并制作了一张表以显示在我的表单上。在表格 1 上，我有一个链接到表格 2 的按钮，在表格 2 上显示了数据库表。

我想要做的是生成某种IF语句来说明记录中的特定字段是否未选中而不是将其显示在 FORM 1 的列表框中。

例如，我有一个名为“started”的文件，它的数据类型是Yes/No. 当未选中特定记录（空复选框）时，我希望它显示在表单 1 的列表框中。

有人可以告诉我这是否可行，我该如何去做？

编辑：在尝试了一些事情之后，这是我到目前为止所拥有的。表“作业”突出显示为未声明（未声明“作业”。由于其保护级别，它可能无法访问。）我不知道如何执行此操作，因为数据库已连接。

 Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstTostart.SelectedIndexChanged
    Dim Started, SQLString As String
    Dim ConnectString As String = "Provider = Microsoft.ACE.OLEDB.12.0;" & "Data Source = KNmidlands_db.accdb"
    SQLString = "SELECT *  FROM Jobs WHERE Started = 0"  '--> 1 = Yes / 0 = No
    If Jobs.Rows.Count > 0 Then

        For x As Integer = 0 To Jobs.Rows.Count - 1

            lstTostart.Items.Add(Jobs.Rows(x).Item("whatever"))

        Next

    End If
End Sub

谢谢亚历山大

4

1 回答 1

1 
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'Me.OleDbDataAdapter1.Fill(Me.DataSet11.Jobs)
    Fill_List()
End Sub

Sub Fill_List()
    Dim ConnectString As String = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = kn.accdb"
    Dim con As New OleDbConnection(ConnectString)
    Dim da As OleDb.OleDbDataAdapter
    Dim dt As New DataTable

    con.Open()
    da = New OleDb.OleDbDataAdapter("SELECT *  FROM Jobs WHERE NOT Started = true", con)
    da.Fill(dt)

    MsgBox(Format(dt.Rows.Count))

    If dt.Rows.Count > 0 Then

        For x As Integer = 0 To dt.Rows.Count - 1

            ListBox1.Items.Add(dt.Rows(x).Item("Job ID"))

        Next

    End If
    con.Close()
End Sub

End Class
于 2013-06-08T16:00:12.720 回答