私は、comboBox1 とomboBox2 という名前の 2 つのコンボ ボックスを持っています。cmbbox1 には、以前に手動で追加したアイテム名が入力されています。cmbbox1 のアイテムを選択すると、cmbbox2 に、データベースから取得した対応するサプライヤーを入力したいと考えています。1 つの品目に対して複数のサプライヤが存在する場合があります。その場合、コンボボックス 2 にすべてのサプライヤーを入力して、ユーザーがサプライヤーを選択できるようにしたいと考えています。
Dim cn As New SqlConnection
Dim cmd As New SqlCommand
Dim adapter As New SqlDataAdapter
Dim dr As SqlDataReader
Dim dt As New DataTable
cn.ConnectionString = ("Data Source=NIMO-HP\SQLEXPRESS;Initial Catalog=FYP_db;Integrated Security=True")
cmd.Connection = cn
cn.Open()
cmd.CommandText = "SELECT comName FROM TblSuppliers WHERE comSitem ='" & ComboBox1.Text & "'"
dr = cmd.ExecuteReader
dt.Load(dr)
ComboBox2.Text = dt