ASPݿӦ  
 ߣAnger    תԣģ    1303    ʱ䣺2004-3-11    ¼룺mbsky  
 
һ˵һġվ벻ݿģΪʵӦУҪݺܶ࣬Щ֮йݿЩݣԺܷĲѯ͸¡ݿк֣ܶ磺Fox ݿ(.dbf)Access ݿ(.mdb)InformixOracle  SQL Server ȵȣҽ Microsoft Access ݿΪ˵ASPηݿġ

ݿ

1.SELECT 䣺ݿݿﷵϢΪһ¼
2.INSERT INTO 䣺һ¼һ
3.UPDATE 䣺²ѯıض׼ָеֵֶ
4.DELETE 䣺һɾѯѼ¼ FROM Ӿг WHERE Ӿһı
5.EXECUTE 䣺ڼ PROCEDURẸ

 ASP һԼͨѶ¼ְɡ

һݿ⣺

 Microsoft Access һΪ data.mdb Ŀݿ⣬ʹһ±¼ֶΣ

ֶơ͡˵
IDԶšݱʶֶδСֵ͡Уظ
usernameıȱʡֵ
usermailıE-mailȱʡֵ
view֡鿴ֶδС͡Ĭֵ0
indateʱڡʱ䡡ȱʡֵ

Ϊ data.mdb ļΪ˱˵ֻһȽϼ򵥵Ŀ⡣

ݿ

1
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

2
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")

ע⣺һҳУֻҪһξͿˣݿʹҪʱرӡ
conn.Close
Set conn = Nothing

¼¼ݿ

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

username = "ͻ"
usermail = "fytb@163.com"
indate = Now()

sql = "insert into data (username,usermail,indata) values('"&username&"','"&usermail&"','"&indate&"')"
conn.Execute(sql)

conn.Close
Set conn = Nothing

˵ݿӣͨȡE-mail ַNow()ȡǰʱڣʹ insert into ¼¼conn.Execute ִУرա

ġѡݿļ¼

1.ѡм¼ֶΣ¼򣩣sql = "select * from data order by ID desc"
2.ѡм¼E-mailֶΣ򣩣sql = "select username,usermail from data"
3.ѡΪͻ䡱м¼sql = "select * from data where username='"ͻ"'"
4.ѡʹ 163 м¼鿴򣩣sql = "select * from data where usermail like '%"@163.com"%' order by view desc"
5.ѡµ10¼sql = "select top 10 * from data order by ID desc"

SQL Ѿ֪ˣWebӦʱôһ RecordSet õ¼ܰѴݿȡֵӦҳϣڽеļ¼ʾҳϾ

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

sql = "select * from data"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1

Do While Not rs.Eof
Response.Write "<p>"& rs("username") &"E-mail"& rs("usermail") &"鿴"& rs("view") &"Ρ"& rs("indate") &"</p>"
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

˵ݿӣ rs õ¼ѭʾ¼rs.Eof ʾ¼ĩrs.MoveNext ʾƵһ¼رա

塢޸ģ£ݿ¼

޸ļ¼E-mail

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

ID = 1
usermail = "fytb@163.com"

sql = "update data set usermail='"&usermail&"' where ID="&CInt(ID)
conn.Execute(sql)

conn.Close
Set conn = Nothing

˵ݿӣȡ¼ID E-mail ַʹ update ޸ļ¼conn.Execute ִУرա
ʹ¼Ĳ鿴ֵ1sql = "update data set view=view+1 where ID="&CInt(ID)

ɾݿ¼

ɾĳһ¼

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

ID = 1

sql = "delete from data where ID="&CInt(ID)
conn.Execute(sql)

conn.Close
Set conn = Nothing

˵ݿӣȡ¼IDʹ delete ɾ¼conn.Execute ִУرա
ɾ¼Ϊsql = "delete from data where ID in (ID1,ID2,ID3)"
ɾм¼Ϊsql = "delete from data"

ܽ᣺

Ͻ̳ASPĳѧ߶дģֻǽһЩ÷˽֮ԼȥԣҪܾһۺá﷨Ͳ Microsoft Access е Microsoft Jet SQL οڱ˲ѧǳޣбﲻȷеطָӦõʲô⣬Ҳϣܹлл
 
 
