vb.netでSQLSERVERからセレクト処理をしてコンボボックスに値を設定する。

vb.netでSQLSERVERからセレクト処理をしてコンボボックスに値を設定する。

Dim strConnectSQL As String

Dim SQLDA As SqlClient.SqlDataAdapter

Dim SQLDS As New DataSet()'データセットの宣言

Dim ds As DataSet = New DataSet()'データセットの宣言

'サーバー指定

'データベースの指定

'ユーザーの指定

'パスワードの指定

'trueがwindows認証の指定

strConnectSQL = "Server=192.168.999.999;" & _

"Initial Catalog=DataBaseName;" & _

"User ID=UserId;" & _

"Password=password;" & _

"Integrated Security=false"

'SQLの作成

Select_Str = "SELECT tani, tani_name" & _

" FROM master" & _

" ORDER BY tani"

'SQLの実行

SQLDA = New SqlClient.SqlDataAdapter(Select_Str, strConnectSQL)

SQLDA.Fill(ds)

'コンボボックスのデータソースに取得テーブルを指定

Out_cmb.DataSource = ds.Tables(0)

'表示する項目を指定

Out_cmb.DisplayMember = "tani_name"

'valueの指定

Out_cmb.ValueMember = "tani"

'初期設定

Out_cmb.SelectedIndex = -1