Private Sub frmMakedata_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cmd As SqlClient.SqlCommand = SqlConnection1.CreateCommand() Dim dr As SqlClient.SqlDataReader Dim idExcol1 As Integer cmd.Connection = SqlConnection1 SqlConnection1.Open()
'外装コンボボックスの設定
cmd.CommandText = "SELECT * FROM excol_data WHERE car_id =" & idCode1 & "" dr = cmd.ExecuteReader() Do While dr.Read = True cmbExcol.Items.Add(dr("excol_name")) Loop dr.Close()
