60 likes | 151 Views
การพัฒนาโปรแกรมประยุกต์บนเว็บ. Data Updating by ASP. มหาวิทยาลัยโยนก จังหวัดลำปาง ศูนย์กลางความรู้และภูมิปัญญาแผ่นดิน http://www.yonok.ac.th. อ.บุรินทร์ รุจจนพันธุ์ . ปรับปรุง 23 มิถุนายน 2550. DSNLess + !recordset. <% set c = server.createobject(" adodb.connection ")
E N D
การพัฒนาโปรแกรมประยุกต์บนเว็บการพัฒนาโปรแกรมประยุกต์บนเว็บ Data Updating by ASP มหาวิทยาลัยโยนก จังหวัดลำปาง ศูนย์กลางความรู้และภูมิปัญญาแผ่นดิน http://www.yonok.ac.th อ.บุรินทร์ รุจจนพันธุ์ . ปรับปรุง 23 มิถุนายน 2550
DSNLess + !recordset <% set c = server.createobject("adodb.connection") c = "driver={microsoft access driver (*.mdb)}; " c = c & "dbq=" & server.mappath("dthai97.mdb") sql = "select * from tbthai" set rs = c.execute(sql) do while not rs.eof response.write(rs("fid") & "<br>") rs.MoveNext loop c.close set rs = nothing set c = nothing %> แฟ้มข้อมูลทดสอบจาก http://www.thaiabc.com/asp/dthai97.mdb
Insert (1/2) <% set c = server.createobject("adodb.connection") c = "driver={microsoft access driver (*.mdb)}; " c = c & "dbq=" & server.mappath("dthai97.mdb") sql="insert into tbthai(fid,fname,fsalary) select " sql=sql&" "& request.form("fid") &" as fid, " sql=sql&" '"& request.form("fname") &"' as fname, " sql=sql&" "& request.form("fsalary") &" as fsalary" set rs = c.execute(sql) c.close %>
Insert (2/2) <% set c = server.createobject("adodb.connection") c = "driver={microsoft access driver (*.mdb)}; " c = c & "dbq=" & server.mappath("dthai97.mdb") sql= "insert into tbthai(fid,fname,fsalary)" sql= sql & "values (" sql= sql & request.form("fid") & "," sql= sql & "'" & request.form("fname") & "'," sql= sql & request.form("fsalary") & ")" set rs = c.execute(sql) c.close %>
Delete <% set c = server.createobject("adodb.connection") c = "driver={microsoft access driver (*.mdb)}; " c = c & "dbq=" & server.mappath("dthai97.mdb") sql= "delete from tbthai where" sql= sql & " fid=" & request.form("fid") set rs = c.execute(sql) c.close %>
Update <% set c = server.createobject("adodb.connection") c = "driver={microsoft access driver (*.mdb)}; " c = c & "dbq=" & server.mappath("dthai97.mdb") sql= "update tbthai set fname='" sql= sql & request.form("fname") & "' where" sql= sql & " fid=" & request.form("fid") set rs = c.execute(sql) c.close %>