asp串連資料庫和簡單crud

標籤：pat   values   表名   sql語句   write   rom   擷取   body   server   

<%

Dim db,connStr,conn,sql,rs

‘資料庫檔案名

db = "test.mdb"

‘資料庫連接字串

connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

‘建立串連connection對象的執行個體

Set conn = server.createobject("ADODB.Connection")

‘調用conn的open方法開啟串連

conn.open connStr

‘sql語句 tb_user為表名

‘修改 sql = "UPDATE tb_user Set username=‘test1‘ where userid=1"

‘刪除 sql = "DELETE from tb_user where userid=1"

‘添加 sql = "INSERT INTO tb_user (username,sex) VALUES(‘test1‘,‘女‘) "

sql="select username FROM tb_user where userid=1" ‘查詢

‘建立ADODB.RecordSet 資料記錄的對象執行個體 rs

Set rs = server.createobject("ADODB.Recordset")

‘執行sql語句擷取記錄集

rs.Open sql,conn,1,1

‘判斷是否有資料，有則輸出，無則提示

if not rs.EOF Then

response.write(rs("username"))

else

response.write("沒有該使用者")

%>

ps：

 

set rs = server.createobject("ADODB.recordset")

rs.open sql,conn

可以用替換為

set rs=conn.execute(sql)

效果一樣

asp串連資料庫和簡單crud