กระทู้เก่าบอร์ด อ.Yeadram
1,061 2
URL.หัวข้อ /
URL
insert into
คำสั่ง insert into ชื่อ table ใช้เป็นตัวแปรในการเลือก table ได้หรือไม่ครับ เช่น
Dim vdata As String
If MsgBox("เลือก table ที่ต้องการ ", 36, " กรุณาเลือก") = vbYes Then
vdata = InputBox("กรอกชื่อ table", "กรุณาพิมพ์ชือ")
sqlinsert = "INSERT INTO Tbl_CData (ba_telno, let_run )" & _
"SELECT [vdata].ba_telno, [vdata].let_run " & _
"FROM [vdata] "
DoCmd.RunSQL sqlinsert
end if
vdata ใช้เป็นตัวแปรชื่อ table ที่ต้องการครับ
Dim vdata As String
If MsgBox("เลือก table ที่ต้องการ ", 36, " กรุณาเลือก") = vbYes Then
vdata = InputBox("กรอกชื่อ table", "กรุณาพิมพ์ชือ")
sqlinsert = "INSERT INTO Tbl_CData (ba_telno, let_run )" & _
"SELECT [vdata].ba_telno, [vdata].let_run " & _
"FROM [vdata] "
DoCmd.RunSQL sqlinsert
end if
vdata ใช้เป็นตัวแปรชื่อ table ที่ต้องการครับ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R21529
ขอบคุณมากครับ คุณ PichaiTC


Time: 0.3048s
และกรณีที่มี table เดียวไม่ต้องอ้างชื่อ table ที่ field ก็ได้ หรืออาจจะใช้เป็น alias แทนครับ
sqlinsert = "INSERT INTO Tbl_CData (ba_telno, let_run )" & _
"SELECT ba_telno, let_run " & _
"FROM " & vdata
หรือ
sqlinsert = "INSERT INTO Tbl_CData (ba_telno, let_run )" & _
"SELECT a.ba_telno, a.let_run " & _
"FROM " & vdata & " as a"