带有SQL查询的VB.Net填充列表

时间:2015-10-04 21:59:27

标签: vb.net oledb

我正在尝试使用sql查询填充组合框或列表,我可以让它们生成拉取的条目数,但不是条目的名称,而不是多个条目。

有问题的代码很简单:

 Dim RegisterApt As New StudentsDataSetTableAdapters.TestTableAdapter


    Try

        txtTestPull.Items.Add(RegisterApt.FillByStudentsTest(StudentsDataSet.Test, StudentInsert.School, StudentInsert.School))




    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

我在网上找不到的是如何做到这一点。 我想做的就是使用我知道有效的sql查询来提取结果, 并将结果行推送到列表或组合框

1 个答案:

答案 0 :(得分:1)

以下是如何使用ADO.Net填充ComboBox和DataGridView的一步一步。我使用Northwind数据库作为示例。

1。添加数据集

enter image description here

右键点击您的项目,然后选择Add,然后选择New Item。在下一个窗口中选择Dataset

2。添加DataTable

enter image description here

连接到您的数据库并将表格拖到中间区域。在此示例中,我选择Customers表。

3。添加查询

enter image description here

  • 右键点击您的DataTable,然后选择Add,然后选择Query
  • 在下一个窗口中选择Use SQL statements,然后点击Next
  • 在下一个窗口中选择SELECT which returns rows,然后点击Next

4。写一个查询

enter image description here

SELECT CustomerID, CompanyName, ContactName, ContactTitle, Address, City, Region, PostalCode, Country, Phone, Fax
FROM dbo.Customers
WHERE Country = @Country
  • 我添加一个WHERE子句来过滤数据。点击Next
  • 为您的方法指定名称。我在第一个文本框中使用FillByCountry,在第二个文本框中使用GetDataByCountry
  • 保存项目并首先构建它,因为您正在添加新的DataSet。

5。在表单中添加一些控件

enter image description here

添加Button,TextBox,ComboBox和DataGridView。您可以更改名称,但我在此示例中使用默认名称。

6。编写一些代码来获取数据并将其绑定到ComboBox和DataGridView

Public Class Form1

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

        ' declare a DataTable
        Dim dt As New DataSet1.CustomersDataTable

        ' declare a DataAdapter
        Dim da As New DataSet1TableAdapters.CustomersTableAdapter
        ' use the DataAdapter to fill the DataTable
        da.FillByCountry(dt, TextBox1.Text)

        ' bind the DataTable to a DataGridView
        DataGridView1.DataSource = dt

        ' bind the DataTable to a ComboBox
        ComboBox1.DataSource = dt
        ComboBox1.ValueMember = "CustomerID"
        ComboBox1.DisplayMember = "CompanyName"

    End Sub

End Class

7。运行项目并查看结果

enter image description here