Question

我想通过将这些项目拆分值（.Split(":")(0)）与数据库A（第2列）中的值进行比较，仅使用数据库B（第1列）中的项目填充列表框。如果数据库A中的分割值存在于数据库B中，则忽略该项，否则在列表框中添加该项。

我知道我必须连接到两个数据库，但我不知道如何创建一个循环来检查一个数据库中的分割值是否存在于另一个数据库中并将缺失（未分割的值）放入列表框中？

这些是数据库连接

'DATABASE B
            Dim cn As OleDb.OleDbConnection
        Dim strSQL As String
        cn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=w:\Sifarnik.MDB")
        strSQL = "SELECT A1A FROM TILSIF"
        cn.Open()

'DATABASE A 
        Dim cn2 As OleDb.OleDbConnection
        Dim strSQL2 As String
        cn2 = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\;Extended Properties=dBASE IV;")
        strSQL2 = "SELECT BUSS From [DD Pa]"
        cn2.Open()

感谢。

编辑：我只使用拆分值填充列表框现在我只需检查列表框中的每个项目，如果该项目存在于另一个数据库中，并且确实将其删除。我再次需要在下面的代码中使用循环halp。

Dim cn As OleDb.OleDbConnection
    Dim cmd As OleDb.OleDbCommand
    Dim odr As OleDb.OleDbDataReader
    Dim strSQL As String
    cn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\;Extended Properties=dBASE IV;")

    strSQL = "SELECT POSLOVNIPA From [Ap 1a]"


    cn.Open()
    cmd = New OleDb.OleDbCommand(strSQL, cn)
    odr = cmd.ExecuteReader(CommandBehavior.CloseConnection)

    Do While odr.Read
        ListBox2.Items.Add(odr.GetValue(0).Split(":")(0))
    Loop

编辑2：现在我有两个列表框，每个数据库一个。我的问题是如何编辑循环以包括清除列表框3中存在的pf项目并重新填充列表框2，其中包含完整的值而不进行拆分？

        Do While odr.Read
        ListBox2.Items.Add(odr.GetValue(0).Split(":")(0))
    Loop

循环遍历两个数据库并填充列表框

0 个答案: