กระทู้เก่าบอร์ด อ.Yeadram
822 5
URL.หัวข้อ /
URL
การดึงข้อมูลจาก 2 table มาที่กล่องlist
พอดีผมเขียนโค้ดประมาณนี้ครับ
ที่ event From load
Dim e As String
Dim sql As String
Dim sql1 As String
e = 0
sql = "SELECT [partnumber], [partname], [piece], [length], [orderall]" & " FROM tb_line1 " & _
"WHERE [partnumber] Like '*" & 0 & "*'"
Forms("frm_Order").[Controls]("List107").RowSource = sql
โดยให้ข้อมูลจาก tb_line1 ขึ้นมาแสดงที่ list107 เมื่อเปิดฟอร์มอ่ะครับ
แต่ผมต้องการที่จะดึงข้อมูลตาราง tb_line2 เข้ามาใน list107 ด้วย อ่ะครับ
ผมต้องเขียนโค้ดแทรกตรงไหนครับ
พอดีผมพึ่งหัดไม่รู้เรื่องพวกเครื่องหมายเลยครับ
ที่ event From load
Dim e As String
Dim sql As String
Dim sql1 As String
e = 0
sql = "SELECT [partnumber], [partname], [piece], [length], [orderall]" & " FROM tb_line1 " & _
"WHERE [partnumber] Like '*" & 0 & "*'"
Forms("frm_Order").[Controls]("List107").RowSource = sql
โดยให้ข้อมูลจาก tb_line1 ขึ้นมาแสดงที่ list107 เมื่อเปิดฟอร์มอ่ะครับ
แต่ผมต้องการที่จะดึงข้อมูลตาราง tb_line2 เข้ามาใน list107 ด้วย อ่ะครับ
ผมต้องเขียนโค้ดแทรกตรงไหนครับ
พอดีผมพึ่งหัดไม่รู้เรื่องพวกเครื่องหมายเลยครับ
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R23796
แก้คำผิด ตกเครื่องหมายคำพูด
sql = "SELECT [partnumber], [partname], [piece], [length], [orderall]" & " FROM tb_line1 " & _
"WHERE [partnumber] Like '*" & 0 & "*'" & _
"UNION SELECT [partnumber], [partname], [piece], [length], [orderall]" & " FROM tb_line2 " & _ "WHERE [partnumber] Like '*" & 0 & "*'"
sql = "SELECT [partnumber], [partname], [piece], [length], [orderall]" & " FROM tb_line1 " & _
"WHERE [partnumber] Like '*" & 0 & "*'" & _
"UNION SELECT [partnumber], [partname], [piece], [length], [orderall]" & " FROM tb_line2 " & _ "WHERE [partnumber] Like '*" & 0 & "*'"
3 @R23799
Dim e As String
Dim sql As String
e = 0
sql = "SELECT [partnumber], [partname], [piece], [length], [orderall]" & " FROM line1 " & _
"WHERE [partnumber] Like '*" & 0 & "*'" & _
"UNION SELECT [partnumber], [partname], [piece], [length], [orderall]" & " FROM line2 " & _
"WHERE [partnumber] Like '*" & 0 & "*'"
Forms("frm_Order").[Controls]("List107").RowSource = sql
มันขึ้นโชว์แค่ของ tb_line1 ครับ คุณ pizza_p ผมควรแก้ไขตรงไหนมั้ยครับ
Dim sql As String
e = 0
sql = "SELECT [partnumber], [partname], [piece], [length], [orderall]" & " FROM line1 " & _
"WHERE [partnumber] Like '*" & 0 & "*'" & _
"UNION SELECT [partnumber], [partname], [piece], [length], [orderall]" & " FROM line2 " & _
"WHERE [partnumber] Like '*" & 0 & "*'"
Forms("frm_Order").[Controls]("List107").RowSource = sql
มันขึ้นโชว์แค่ของ tb_line1 ครับ คุณ pizza_p ผมควรแก้ไขตรงไหนมั้ยครับ
4 @R23800
แก้ไขนะครับ
Dim e As String
Dim sql As String
e = 0
sql = "SELECT [partnumber], [partname], [piece], [length], [orderall]" & " FROM tb_line1 " & _
"WHERE [partnumber] Like '*" & 0 & "*'" & _
"UNION SELECT [partnumber], [partname], [piece], [length], [orderall]" & " FROM tb_line2 " & _
"WHERE [partnumber] Like '*" & 0 & "*'"
Forms("frm_Order").[Controls]("List107").RowSource = sql
มันขึ้นโชว์แค่ของ tb_line1 ครับ คุณ pizza_p ผมควรแก้ไขตรงไหนมั้ยครับ
Dim e As String
Dim sql As String
e = 0
sql = "SELECT [partnumber], [partname], [piece], [length], [orderall]" & " FROM tb_line1 " & _
"WHERE [partnumber] Like '*" & 0 & "*'" & _
"UNION SELECT [partnumber], [partname], [piece], [length], [orderall]" & " FROM tb_line2 " & _
"WHERE [partnumber] Like '*" & 0 & "*'"
Forms("frm_Order").[Controls]("List107").RowSource = sql
มันขึ้นโชว์แค่ของ tb_line1 ครับ คุณ pizza_p ผมควรแก้ไขตรงไหนมั้ยครับ
5 @R23802
ลืม หน้า UNION ให้เพิ่ม spacebar ไปนิดนึง " UNION
Time: 0.3249s
"WHERE [partnumber] Like '*" & 0 & "*'" & _
UNION SELECT [partnumber], [partname], [piece], [length], [orderall]" & " FROM tb_line2 " & _ "WHERE [partnumber] Like '*" & 0 & "*'"