Sub Check_Part1()
Dim objConn As New SqlConnection
Dim DA As New SqlDataAdapter("SELECT "ชื่อสินค้า" FROM "ตารางสินค้า001" ", objConn)
Dim DS As New DataSet
Dim I as Interger
objConn.ConnectionString = strConnString
objConn.Open()
DA.Fill(DS)
For i = 0 To 5 (สมมติว่ามีสินค้า 6 รายการ)
DD1.Items.Add(DS.Tables(0).Rows(i)("ชื่อสินค้า001"))
Next
end Sub
Sub Check_Part2()
Dim objConn As New SqlConnection
Dim DA As New SqlDataAdapter("SELECT "ชื่อสินค้า" FROM "ตารางสินค้า002" ", objConn)
Dim DS As New DataSet
Dim I as Interger
objConn.ConnectionString = strConnString
objConn.Open()
DA.Fill(DS)
For i = 0 To 5 (สมมติว่ามีสินค้า 6 รายการเท่ากันนะครับ)
DD1.Items.Add(DS.Tables(0).Rows(i)("ชื่อสินค้า002"))
Next
end sub