asp對資料庫的基本操作

一、添加記錄

方法1:Connection對象的Execute方法

set con=Server.CreateObject("ADODB.Connection")
insertstr="insert into 表名(欄位1,欄位2,...) values(value1,value2,...)  '插入記錄SQL語句
con.Open constr
con.Execute(insertstr)
con.close
set con=nothing
-------------------------------------------------------------------------------------------
方法二:RecordSet對象的AddNew方法

set con=Server.CreateObject("ADODB.Connection")
set rs =Server.CreateObject("ADODB.RecordSet")
querystr="select * from 表名"                '查詢記錄SQL語句
con.open constr
rs.open querystr,con,1,3

rs.AddNew
rs("欄位1")=value1
rs("欄位2")=value2
......
rs.Update

rs.close
set rs=nothing
con.close
set con=nothing

 

二、查詢記錄

set con=Server.CreateObject("ADODB.Connection")
set rs =Server.CreateObject("ADODB.RecordSet")
querystr="select 欄位 from 表名 where ...."             '查詢記錄SQL語句
con.open constr
rs.open querystr,con,1,1

do while not rs.EOF do
'讀取資料
  變數1=rs("欄位1")
  變數2=rs("欄位2")
  ...
loop

rs.close
set rs=nothing
con.close
set con=nothing

 三、修改記錄

方法一:Connection對象的Execute方法

 set con=Server.CreateObject("ADODB.Connection")
 con.open constr
 updatestr="update 表名 set 欄位1=value1，欄位2=value2 where id=..."   '更新記錄SQL語句
 con.Execute(updatestr)
 con.close
 set con=nothing
----------------------------------------------------------------------
方法二:RecordSet對象的Update方法
 
 set con=Server.CreateObject("ADODB.Connection")
 set rs= Server.CreateObject("ADODB.RecordSet")
 querystr="select 欄位 from 表名 where ...."             '查詢記錄SQL語句
 con.open constr    
 rs.open  querystr,con,1,3
 rs("欄位1")=value1
 rs("欄位2")=value2
 ...
 rs.Update

 rs.close
 set rs=nothing
 con.close
 set con=nothing

 

四、刪除記錄

set con=Server.CreateObject("ADODB.Connection")
deletestr="delete from 表名 where id="&id          '刪除記錄SQL語句
con.open constr
con.Execute(deletestr)
con.close
set con=nothing