กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
314 1
URL.หัวข้อ /
URL
การทำ combobox ใน Form ที่มีการติดต่อแบบ ADO
เรียน อาจารย์ครับ
ผมมีปัญหาเรื่องการสร้าง combobox ใน form ที่มีการติดต่อกับ table ด้วยคำสั่ง ADO
ผมหาอ่านจากหนังสือหลายเล่ม (ภาษาไทย) ก็ไม่กระจ่างเพื่อใขข้อสงสัยของผม ผมขอความรู้จากท่านอาจารย์ด้วยครับ
ในการติดต่อกับ table1 แบบ ADO ใน Form, ผมติดต่อได้แล้ว แต่ใน Form ของผม
มี อีก 2 combobox ซึ่ง ต้องใช้ข้อมูลใน table2 และ table3 ด้วย ผมไม่ทราบว่า ผมต้องเขียน code หรือ ทำอย่างไร จึงจะให้ Form สามารถติดต่อได้ทั้ง 3 tables เพื่อให้ combobox
แสดงข้อมูลได้ เมื่อ Form ได้ถูกเปิดออกมา
ขอขอบคุณอาจารย์เป็นอย่างสูงครับ
ผมมีปัญหาเรื่องการสร้าง combobox ใน form ที่มีการติดต่อกับ table ด้วยคำสั่ง ADO
ผมหาอ่านจากหนังสือหลายเล่ม (ภาษาไทย) ก็ไม่กระจ่างเพื่อใขข้อสงสัยของผม ผมขอความรู้จากท่านอาจารย์ด้วยครับ
ในการติดต่อกับ table1 แบบ ADO ใน Form, ผมติดต่อได้แล้ว แต่ใน Form ของผม
มี อีก 2 combobox ซึ่ง ต้องใช้ข้อมูลใน table2 และ table3 ด้วย ผมไม่ทราบว่า ผมต้องเขียน code หรือ ทำอย่างไร จึงจะให้ Form สามารถติดต่อได้ทั้ง 3 tables เพื่อให้ combobox
แสดงข้อมูลได้ เมื่อ Form ได้ถูกเปิดออกมา
ขอขอบคุณอาจารย์เป็นอย่างสูงครับ
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.0947s
Dim rst As Object
Dim strText As String
Set rst= CreateObject("ADODB.Recordset")
rst.Open "Select Distinct Field2 From Table2",CurrentProject.Connection
If Not rst.EOF Then
Do While Not rst.EOF
strText = strText & ";" & rst(0)
rst.MoveNext
Loop
strText = Left(strText,Len(strText)-1)
Me.Combo0.RowSourceType = "Value List"
Me.Combo0.RowSource = strText
End If
rst.Close
Set rst = Nothing