-1

私は、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
4

1 に答える 1