Question

我正在尝试从我的SQL Server中逐行检索数据并将它们加载到我各自的文本框中，我正在执行以下代码，但当然它不起作用，因为For Each循环将加载每个文本框检索到的数据，没有想法。感谢有人能在这里给我一个提升。感谢。

Private Sub retrieve_Data()
        Dim con As New SqlConnection
        Dim cmd As New SqlCommand

        Try
            con.ConnectionString = "Data Source=HPEnvy-HP; Initial Catalog=Cinema; User Id=<id>; Password=<password>;"
            con.Open()
            cmd.Connection = con

            cmd.CommandText = "SELECT [movie_ID], [movie_Title] FROM [Movie_Table] ORDER BY [MOVIE_ID] "

            Dim lrd As SqlDataReader = cmd.ExecuteReader()

            While lrd.Read()

                Dim reader As String = lrd(1).ToString
                Dim arrLoad As New ArrayList


                arrLoad.Add(lrd(1).ToString)
                For i = 0 To arrLoad.Count - 1
                    For Each cCtrl As Control In Panel1.Controls
                        If TypeOf cCtrl Is TextBox Then
                            Dim txtBox As New TextBox
                            txtBox = cCtrl
                            txtBox.Text = arrLoad.Item(i)
                        End If
                    Next
                Next
    End While

        Catch ex As Exception
            MessageBox.Show("Error while retrieving records on table..." & ex.Message, "Load Records")
        Finally
            con.Close()
        End Try
    End Sub

Answer 1

你只是“新”你的文本框，您没有将文本框添加到表单中。你应该添加一些这样的代码： this.Controls.Add（文本框）; 要么 this.Panel1.Controls.Add（文本框）;

将SQL Server中的数据逐行加载到文本框

1 个答案: