Sql = "select * from t_type order by type_id asc"
Da_Type.MissingSchemaAction = MissingSchemaAction.AddWithKey
Da_Type.SelectCommand = New OleDbCommand(Sql, Con)
Try
Da_Type.Fill(Ds_Type, "type_product")
ComboType.DataSource = Ds_Type.Tables("type_product")
ComboType.ValueMember = "type_id"
ComboType.DisplayMember = "type_name"
Catch ex As Exception
MsgBox(ex.Message)
End Try
ตอนแสดงข้อมูล
Code (VB.NET)
Sub Show_ProDuct(ByVal R As Integer)
If GridPro.RowCount > 0 Then
Dim Dr As DataRow = Ds_Pro.Tables("show_pro").Rows(R)
ComboType.Text = Dr("type_id").ToString
End If
End Sub
Dim sql As String = ""
sql = "SELECT * FROM ประเภท ORDER BY รหัสประเภทสินค้า"
da = New SqlDataAdapter(sql, Conn)
da.Fill(ds, "ประเภท")
With cbo ประเภทสินค้า
.DisplayMember = "ชื่อประเภทสินค้า "
.ValueMember = "รหัสประเภทสินค้า"
.DataSource = ds.Tables("ประเภท")
.DataBindings.Add("SelectedValue", ds, "สินค้า.รหัสประเภทสินค้า")
End With
Dim sql As String = ""
sql = "SELECT * FROM ประเภท ORDER BY รหัสประเภทสินค้า"
da = New SqlDataAdapter(sql, Conn)
da.Fill(ds, "ประเภท")
With cbo ประเภทสินค้า
.DataSource = ds.Tables("ประเภท")
.DisplayMember = "ชื่อประเภทสินค้า "
.ValueMember = "รหัสประเภทสินค้า"
.SelectValue="รหัสประเภทสินค้าที่ต้องการ"
End With
Load balance : Server 04
