<%
Grp_ID=Request.QueryString("Grp_ID")
Rem ติดต่อกับฐานข้อมูล
Set ObjDB=Server.CreateObject("ADODB.Connection")
Rem OLEDB
ObjDB.Provider="Microsoft.Jet.OLEDB.4.0"
ObjDB.Open(Server.MapPath("/CAT01/CAT01.MDB"))
Set ObjRs=Server.CreateObject("ADODB.Recordset")
Sql="Select *From Gr01,Gr02 where Grp_ID="&Grp_ID
ObjRs.Open Sql,ObjDB,3,3
Grp_ID=ObjRs("Grp_ID")
Page=ObjRs("Page")
cat=ObjRs("Goto")
ขอเสริมครับ มันขึ้น Error
Error Type:
Microsoft JET Database Engine (0x80040E14)
Syntax error (comma) in query expression 'Grp_ID=2, 1'.
/cat01/web.asp, line 14
ช่วยอธิบายหน่อยครับ
Date :
2 มิ.ย. 2549 13:59:25
By :
catmatin
No. 2
Guest
คุณไม่ได้ทำการเชื่อมฟิลด์ ID ของ 2 ตารางเข้าด้วยกันครับ น่าจะเป็นแบบนี้ครับ
<%
Grp_ID=Request.QueryString("Grp_ID")
Set ObjDB=Server.CreateObject("ADODB.Connection")
ObjDB.Provider="Microsoft.Jet.OLEDB.4.0"
ObjDB.Open(Server.MapPath("/CAT01/CAT01.MDB"))
Set ObjRs=Server.CreateObject("ADODB.Recordset")
Sql="Select * From Gr01,Gr02 where (Gr01.Grp_ID=Gr02.Grp_ID) AND (Gr02.Grp_ID="&Grp_ID&") "
ObjRs.Open Sql,ObjDB,1,3
if not ObjRs.EOF then
Grp_ID=ObjRs("Grp_ID")
Page=ObjRs("Page")
cat=ObjRs("Goto")
End If
ObjRs.close : set ObjRs=Nothing