ASP資料庫操作方法

標籤：

首先，必須要使用開啟資料庫方法：

<%dim objconn,objconnstrset objconn=server.createobject("adodb.connection")objconnstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/data.mdb")objconn.open objconnstr%>

 

1、添加資料庫表

<%dim sqlsql="Create Table colin(id counter primary key,company text,addr text,dep text,contacts text,phone text,casename text,caseid int,qs_inf text,qs_wt text,isdel bit,createtime datetime)"objconn.execute(sql)objconn.Closeresponse.Write("添加完成")%>

 

2、查詢表欄位

<%dim sql,rs1set rs1=server.CreateObject("Adodb.recordset")sql="select top 1 * from c_questionnaire"rs1.open sql,objconn,1,2For i=0 To rs1.fields.count-1t=rs1.fields(i).nameresponse.Write(t&"<br />")next%>

　　

3、添加表欄位

<%dim sqlsql="alter table semi_actor add column news_id int"objconn.execute(sql)%>

　　

4、修改表欄位類型

<%dim sqlsql="alter table exhi alter column exhi_img text(200)"objconn.execute(sql)%>

　　

5、向資料庫表添加資料

<%dim a,b,c,da=1b=2c=3d=4dim rs,sqlset rs=server.CreateObject("adodb.recordset")sql="select * from colin"rs.open sql,objconn,1,2rs.addnew()rs("a")=a        rs("b")=brs("c")=crs("d")=drs("createtime")=now()rs.update()rs.closeresponse.Write("<script language=‘javascript‘>alert(‘您已成功提交表單‘)</script>")%>

 

6、刪除資料庫表資料

<%dim sqlsql="delete from branch where id="5" and isdel=true"objconn1.execute(sql)response.Redirect("adminbranch.asp")%>

　　

7、查詢並列出資料庫表資料

<%dim rspic,sqlpicset rspic=server.CreateObject("adodb.recordset")sqlpic="select * from colin order by createtime desc"rspic.open sqlpic,objconn,0,1if not rspic.eof thendo while not rspic.eof%><tr><td align="center"><%=rspic("a")%></td><td align="center"><%=rspic("b")%></td><td align="center"><%=rspic("c")%></td><td align="center"><%=rspic("d")%></td></tr> <%rspic.movenextloop%><%end if%>

 

-完-

 

ASP資料庫操作方法