|
分類:[VB.NET]
すみません。全く言葉が足りませんで・・・
部分的でわかりづらいかと思いますが・・・
学校名は例で以下の状態です。
フォームのcmbChuuiに顧客注意を入れたいのです・・・
ご教授願います。
Dim oleCn = New OleDb.OleDbConnection
Dim oleCmd As OleDb.OleDbCommand
Dim oDataAdapter As New OleDbDataAdapter
Dim oDataSet As DataSet = New DataSet
oleCn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strDB_Path & ";" & _
"Persist Security Info=False"
oleCn.Open()
Try
oleCmd = New OleDb.OleDbCommand("SELECT T_KoyakuChuui.顧客注意ID, T_KoyakuChuui.顧客注意, T_KoyakuChuui.並び順 FROM T_KoyakuChuui ORDER BY T_KoyakuChuui.並び順;", oleCn)
oDataAdapter.SelectCommand = oleCmd
oDataSet.Clear()
oDataAdapter.Fill(oDataSet, "T_KoyakuChuui")
Me.cmbChuui.DataSource = oDataSet.Tables("T_KoyakuChuui")
Me.cmbChuui.DisplayMember = "顧客注意"
Me.cmbChuui.ValueMember = "顧客注意ID"
Catch oExcept As Exception
MsgBox(oExcept.ToString)
End Try
oleCn.Close()
|
