Asp连接access数据库，查询，添加，修改，删除

2011年06月30日 16:54:00 阅读数：1591 标签：数据库 access asp pig sql microsoft 更多

个人分类：技术贴

一、建立数据库：

　　用 Microsoft Access 建立一个名为 data.mdb 的空数据库，使用设计器创建一个新表admin是保存用户名和密码,里面有字段:UserName,PassWord.

二、连接数据库

Conn.asp文件：

方法1：

Dim DateBase, Conn, connstr

DateBase = "../db/data.mdb" ‘数据库表所在的位置

ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(DateBase) ‘数据库连接字符串

On Error Resume Next

Set Conn = Server.CreateObject("ADODB.Connection") ‘创建数据库连接对象

Conn.Open Connstr '连接数据库

If Err Then

Err.Clear

Set Conn = Nothing

Response.Write "数据库连接出错，请打开conn.asp文件检查连接字串。"

Response.End

End If

方法2：

ConnStr="driver={MicrosoftAccessDriver(*.mdb)};dbq="&Server.MapPath(DateBase)

三、使用数据库：建立结果集

在源文件中：

Dim Rs

Set Rs=Server.CreateObject("ADODB.RecordSet") '建立一个记录对象

四、使用数据库：具体操作

A、查询记录：

Dim Sql,UserName,PassWord

UserName="name" '给变量赋值

Sql="select * from Admin Where Name='" & UserName &"'"

Rs.open Sql,Conn,3,3

If Rs.eof then

response.write "不存在此记录或者输入错误"

'如果到了表的末尾都没发现,当然就不存在此用户,或者用户名不对

else

response.write "存在,用户名和密码正确"

end if

B|、添加记录:(比如添加一个名叫pig密码是dog的记录)

1.进行第二步

2.进行第三步

3. Sql="select * from Admin"

Rs.open Sql,Conn,3,3

4.添加:

Rs.AddNew

Rs("UserName")="pig"

Rs("PassWord")="dog"

Rs.Update

C.修改记录:(比如把名pig的密码修改成cat)

1.进行第二步

2.进行第三步

3.连接到表中名UserName为pig的记录:

UsersName="pig"

Sql="select * from Admin where UserName='" & UserName & "'"

Rs.open Sql,Conn,3,3

4.添加:

Rs("PassWord")="cat"

Rs.Update

D.删除记录:(比如删除用户名为pig的记录)

1.进行第一步

2.进行第二步

3.删除表中名UserName为pig的记录:

UsersName="pig"

Sql="delete * from Admin where UserName='" & UserName & "'"

Rs.open Sql,Conn,3,3

注意：Rs.open Sql,Conn,3,3也可以直接写成:Conn.execute(Sql)

五、关闭数据库

使用完数据库，最后别忘记关闭:

Rs.Close

Set Rs=nothing

Conn.close

Set Conn=nothing

六、总结:

重点在给Sql赋值这一句,他决定你进行什么操作,