Question

我想通过动态查询来填充组合框。为此，创建了名为 sqlcnn 的外部类。此类定义与sql数据库的连接，并且它可以正常工作。下面是代码：

Imports System.Data.SqlClient

Public Class sqlcnn

Public cnn As New SqlConnection("Data Source=(local)\sqlexpress...)
Public Command As SqlCommand
Public txt() As String
Public i As Integer

Public Sub execute_command(ByVal query As String)

    Try
        cnn.Open()

        Command = New SqlCommand(query, cnn)

        Dim readerr = Command.ExecuteReader

        ReDim txt(readerr.FieldCount - 1)

        While readerr.Read


            For i = 0 To readerr.FieldCount - 1
                txt(i) = readerr.Item(i)

            Next i


        End While

        MsgBox("Connection Open ! ")
        cnn.Close()
    Catch ex As Exception
        MsgBox("Can not open connection ! ")
    End Try


End Sub

结束班

如果我通过在for循环中添加一行来修改上面的代码：

 For i = 0 To readerr.FieldCount - 1
                txt(i) = readerr.Item(i)
                ComboBox1.Items.Add(txt(i))

            Next i

我可以立即填写组合框，没有任何问题。

问题是，当我尝试从名为Form1的主类填充组合框时。该类定义了一个组合框1和一个按钮。下面是代码：

Imports System.Data.SqlClient

Public Class Form1

Private Sql As New sqlcnn
Dim i As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Sql.execute_command("select Car from shopcars")

    For i = 0 To (Sqlpol.txt.Length - 1)

        ComboBox1.Items.Add(Sqlpol.txt(i))

    Next i


End Sub

结束课

结果是，在组合框中我们只能看到我数据库的最后一项。完全，我不知道如何正确构建循环。我很感激你的帮助。

谢谢！

Answer 1

txt是一维数组。 While的每次迭代都会覆盖txt索引0到索引readerr.FieldCount。这就是它始终包含最后一行数据的原因。您需要一个支持许多行的不同数据结构。有很多选择。我建议使用DataTable，因为您可以将其绑定到ComboBox，而不是在循环中添加项目。

如何在vb.net中为sql数据库构建动态查询

1 个答案: