当前位置:首页 » 操作系统 » asp连接数据库access

asp连接数据库access

发布时间: 2022-09-10 02:21:17

A. 在asp中怎么连接Access数据库

asp连接access数据库的方法:
1、设置数据库连接方式:
set dbconnection=Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
sql="select * from auth where id='" & user_id &"'"
SET uplist=dbconnection.EXECUTE(SQL)
2、设置连接数据库
DBPath = Server.MapPath("customer.mdb")
set session("rs")=Server.CreateObject("ADODB.Recordset")
' rs=Server.CreateObject("ADODB.Recordset")
connstr="provider=microsoft.jet.oledb.4.0;data source="&dbpath
SQL="select * from auth where id='" & user_id &"'"
session("rs").Open sql,connstr,1,3
3、建立odbc数据源
set conn=server.createobject("Adodb.connection")
conn.open "DSN=xxx;UID=;PWD=;Database=customer
4、附上一个经常用的sqlserver与access通用的连接数据库代码:
<%
Const DataBaseType=1
If DataBaseType=0 then
DBPath="/jb51/news.asp"
SqlNowString = "Now()"
ystr=true
nstr=false
suiji="rnd(id)"
Else
'如果是SQL数据库,请认真修改好以下数据库选项
DataServer = "wwwjb51net" '数据库服务器IP
DataUser = "jb51net" '访问数据库用户名
DataBaseName = "jb51net" '数据库名称
DataBasePsw = "密码" '访问数据库密码
SqlNowString = "getdate()"
ystr=1
nstr=0
suiji="newid()"
End if
On Error Resume Next
If DataBaseType = 1 Then
ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。":Response.End
%>

B. asp中的代码怎么连接ACCESS数据库

补充:我现在知道。建一个CONN.ASP放入一段代码连接数据库 然后在要调用数据库的页面放入 可以实现对数据库操 作 但是。如果ACCESS数据库有一个表。我怎么样在调用数据库的页面。跟这个表建立连接呢。 好像在调用的页面有变量。能再说下吗?补充:我举个例子数据库表中有 姓名 性别 年龄 这三个项目然后我在调用数据库的页面的表中输入 姓名性别年龄然后点 提交这些数据怎么提交到数据库呢? 补充:-----------------conn.asp-------------------
将上面的代码,放在单独的一个ASP页面里, 在使用数据库的网页中用就可以实现对数据库的任意操作了!

C. asp连接access数据库怎么实现的

通过ASP与ACCESS数据库建立连接(附源码)(1)
前言:

如何通过ASP与数据库建立连接是一个非常现实的问题,我尽量写得非常详细。相信看了这篇文章相信您已经能够写出类似的比较简单和实用的程序了。

(一)数据库的选择:

有许多的数据库你可以选择,SQL SERVER、ACCESS(*.mdb)、EXCEL(*.xls)、FOXPRO(*.dbf)甚至普通的文本文件(*.txt)都可以达到存储数据的功能。那么到底选择什么数据库最合适呢?其中SQL SERVER是服务器级的,足以应付每天上万次的访问量。对于非服务器级的数据库建议使用ACCESS97。因为:(1)只要安装了PWS或IIS4肯定有ACCESS的ODBC驱动,即你的系统肯定支持ACCESS数据库的存取。(2)ACCESS支持的SQL指令非常齐全。(3)ACCESS ODBC驱动程序的效率非常高。虽然它不是服务器级的数据库,但是作为中小型企业内部网的数据库支持还是绰绰有余的。(4)ACCESS97在OFFICE97中就有,非常方便得到和使用。

本文就以ACCESS数据库为准介绍基于WEB的数据库存取方法。

(二)例子:我们建立一个“客户”数据库,需要保存如下的客户资料:客户名称、联络人姓名、所在城市、电话号码。

(1)首先建立ACCESS数据库customer.mdb(今后有用的)。建立如下字段:客户名称、联络人姓名、所在城市、电话号码、客户编号、时间。将表保存为"客户"(今后有用的,===>看看图)。注意:建立字段时多作了2个(客户编号、时间),因为在今后排序时要用到它们。建议今后做数据库时最好都加上这2项,不会没用的。此外,在保存表时ACCESS会询问是否建立一个住关键字,我们不需要它所以不必建立。还有:时间字段的"默认值"设成"now()",即去系统当时的时间。同时将索引项设成"有(允许重复)",含义:WEB上极有可能同时存取数据,所以允许重复,索引设成"有"可以加快排序速度。===>看看图

(2)建立递交表单add.htm:

源代码如下:

<html>
<head>
<title>添加数据库记录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
<p align="center"><font size="5">添加数据库记录</font></p>
<form method="post" action="adddatabase.asp">
<div align="center">
<table width="46%" border="0">
<tr>
<td width="28%">
<div align="right">公司名称: </div>
</td>
<td width="72%">
<input type="text" name="CompanyName">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">联络人姓名: </div>
</td>
<td width="72%">
<input type="text" name="CName">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">所在城市: </div>
</td>
<td width="72%">
<input type="text" name="City">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">电话号码:</div>
</td>
<td width="72%">
<input type="text" name="Tel">
</td>
</tr>
<tr>
<td width="28%">
<div align="right"> </div>
</td>
<td width="72%">
<input type="submit" name="Submit" value="Submit">
<input type="reset" name="reset" value="Reset">
</td>
</tr>
</table>
</div>
</form>
</body>
</html>

这与普通的HTML没有任何区别,关键部分已经用黄色标记了。递交方法用POST,递交后处理的程序是adddatabase.asp(下一步就重点讨论它)。还有就是给每一个项目取一个名字(NAME,后面有用)。

通过ASP与ACCESS数据库建立连接(附源码)(2)
浏览选项: 大中小 颜色 默认 灰度 橄榄色 绿色 蓝色 褐色 红色

(三)关键部分:建立与数据库的联系并将表单中收集到的信息添加到ACCESS数据库中。

ASP代码放在〈%和%>之间。

<%
CompanyName = Request("CompanyName")
CName = Request("CName")
City = Request("City")
Tel = Request("Tel")

以上,首先取得表单中填写的数据,使用ASP的Request对象非常容易可以实现数据的收集。双引号中的就是上一步建立的各个项目的名字(NAME)。所以今后为每个项目起名字是个好习惯,尽管有时候并不一定用得到。这样取得的数据就保存在等号坐侧的变量中了。

If CompanyName = "" Or CName = "" Or City = "" Or Tel = "" Then
'Response.Write "<html><body><center><font size=5>请将资料填写完整。</font></center></body></html>"
Response.Redirect "error.htm"
Response.End
End If

这里是检测各个项目是否输入了东西,如果为空则不往下继续执行,显示错误信息。注意:你可以使用两种方法。我都列出了。方法一:使用Response.Write方法写一个出错页面,类似于javascripts的document.write写法,只是ASP使用Response.write罢了。方法二:使用Response.Redirect方法导向出错页面error.htm。我在方法一的代码前加上单引号表示注释。(ASP中表示注释用单引号')。

set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

(1)建立Connection对象:dbconnection,建立一个连接(Connection)是数据库存取的开始。我们使用ASP的内建对象方法Server.Createobject建立与数据库的连接。ADODB是ASP的数据库存取组件,不必担心只要有ASP就有它了,是内置的。
(2)使用dbconnection.open方法打开数据库customer.mdb。driver参数语法: driver={Microsoft Access Driver (*.mdb)}必须这么写。告诉系统使用ACCESS ODBC驱动处理。dbq参数用来指定打开的数据库文件,它必须是完整的路径。例如"c:.mdb",我们使用Server.MapPath的方法取得数据库的完整路径。

Set rs = Server.CreateObject("ADODB.Recordset")

建立Recordset对象rs。Connection仅仅是建立了与数据库间的连接,要存取数据还应该再建立Recordset对象。

rs.Open "客户", dbconnection, adOpenDynamic, 3

打开数据库中的表"客户"(客户是表名)。 语法:

rs.open 数据表名或SQL指令,已经建立的Connection对象(这里是dbconnection), 锁定类型

rs.AddNew
rs("公司名称") = CompanyName
rs("联络人姓名") = CName
rs("所在城市") = City
rs("电话号码") = Tel
rs.Update

用AddNew向数据库请求添加数据。最后用Update写入。注意:等号右侧的变量保存着用Request取得的表单数据。双引号内的就是数据库的字段,应该与数据库的一致啊。否则会出错的。这样变量内的数据就写入了数据库对应的字段内了。

Response.Write "<html><body><center><font size=5>祝贺,您的数据已经添加进数据库了!<p>"
Response.Write "<a href='viewdatabase.asp'>查看数据</a>"
Response.Write "</font></center></body></html>"

写入成功后显示祝贺信息并建立查看数据库记录的连接。

%>
<html>

<head>
<title></title>
</head>

<body>
</body>
</html>

通过ASP与ACCESS数据库建立连接(附源码)(3)
浏览选项: 大中小 颜色 默认 灰度 橄榄色 绿色 蓝色 褐色 红色

(三)显示/查看数据库记录:

<%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

建立与数据库的连接,与上同。

SQL="select * from 客户 Order By 时间 DESC"
SET CustomerList=dbconnection.EXECUTE(SQL)
%>

建立SQL查询语句,表示从"客户"表中查询所有记录,Order By 时间 DESC表示"按时间降序排序,"这样最后添加的信息再最上面显示。下面一句执行SQL查询并将结果返回给Recordset对象CustomerList。

<html>
<body>
<FONT SIZE="5"><center>数据库记录</center></FONT>
<CENTER>
<TABLE BORDER=1>
<tr>

<td>编号</td>
<td>公司名称</td>
<td>联络人姓名</td>
<td>所在城市</td>
<td>电话号码</td>
</tr>
<% DO WHILE NOT CustomerList.EOF %>

检测记录是否到了最后一条。EOF表示End of File。

<TR>
<TD><% =CustomerList("客户编号") %></TD>
<TD><% =CustomerList("公司名称") %></TD>
<TD><% =CustomerList("联络人姓名") %></TD>
<TD><% =CustomerList("所在城市") %></TD>
<TD><% =CustomerList("电话号码") %></TD>
</TR>

<% =CustomerList("客户编号") %>可以说是Response.Write方法的简写。将"客户编号"字段内的数据写入TD标签间。

<% CustomerList.movenext
loop
%>

如果还没有到最后一条则指针移动到下一条。用Do While ... Loop循环逐一取得所有的记录。

</TABLE>
</CENTER>

<center>
<input type="button" onclick="javascript:location.href='add.htm'" value="添加数据">
</center>
</BODY>
</HTML>

缺陷:仅仅实现了最基本的功能。先不说其它功能,仅就数据的添加和查看功能来看,比较完美的还应该加入“分页功能”。否则数据大到一定程度显示全部数据基本上是不可能的。
本期至此全部完毕。

D. ASP连接Access数据库的文件放在哪

都可以,建一个名为conn.asp的文件,把数据库连接的代码写在这个里面就可以了。然后其他页面需要打开数据库的话就引用这个文件就可以了。引用方式:<!--#include
file="文件夹/conn.asp"-->这个路径根据你的conn.asp的放置位置来定。
数据库连接代码:
db
=
"数据库名.mdb"
set
rs=server.createobject("adodb.recordset")
'
conn
=
"DBQ="
+
server.mappath(
db
)
+
";DefaultDir=;DRIVER={Microsoft
Access
Driver
(*.mdb)};"
这个打开数据库的方法是
rs.open
(sql语句),conn,1,1
sql语句,例如:select
*
from
news
也可以这样打开,把sql语句赋值给一个变量,这样看着明白一点。
sql
=
"select
*
from
admin_sys
where
username='"
&
session("username")
&
"'
and
password='"
&
session("password")
&
"'"
rs.open
sql,conn,1,1

E. 怎样在asp.net中连接ACCESS数据库

在asp.net中连接ACCESS数据库有两种方法,具体操作如下:

F. asp 与数据库access连接的方法和怎么样才能将数据库中的数据显示在网页上

1.Access数据库的DSN-less连接方法:

set adocon=Server.Createobject("adodb.connection")

adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _

Server.MapPath("数据库所在路径")

2.Access OLE DB连接方法:

set adocon=Server.Createobject("adodb.connection")

adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"& _

"Data Source=" & Server.MapPath("数据库所在路径")

3.SQL server连接方法:

set adocon=server.createobject("adodb.recordset")

adocon.Open"Driver={SQL Server};Server=(Local);UID=***;PWD=***;"& _

"database=数据库名;"

4.SQL server OLE DB连接方法:

set adocon=Server.Createobject("adodb.connection")

adocon.open"provider=SQLOLEDB.1;Data Source=RITANT4;"& _

"user ID=***;Password=***;"& _

"inital Catalog=数据库名"

5.Oracle 连接方法:

set adocon=Server.Createobject("adodb.connection")

adocon.open"Driver={microsoft odbc for oracle};server=oraclesever.world;uid=admin;pwd=pass;"

6.Oracle OLE DB 连接方法:

set adocon=Server.Createobject("adodb.connection")

adocon.open"Provider=OraOLEDB.Oracle;data source=dbname;user id=admin;password=pass;"

7.dBase 连接方法:

set adocon=Server.Createobject("adodb.connection")

adocon.open"Driver={microsoft dbase driver(*.dbf)};driverid=277;dbq=------------;"

8.mySQL 连接方法:

set adocon=Server.Createobject("adodb.connection")

adocon.open"Driver={mysql};database=yourdatabase;

uid=username;pwd=yourpassword;option=16386;"

9.Visual Foxpro 连接方法:

set adocon=Server.Createobject("adodb.connection")

adocon.open"Driver={microsoft Visual Foxpro driver};sourcetype=DBC;sourceDB=*.dbc;Exclusive=No;"

10.MS text 连接方法:

set adocon=Server.Createobject("adodb.connection")

adocon.open"Driver={microsoft text driver(*.txt; *.csv)};dbq=-----;"&_

"extensions=asc,csv,tab,txt;Persist SecurityInfo=false;"

11.MS text OLE DB 连接方法:

set adocon=Server.Createobject("adodb.connection")

adocon.open"Provider=microsof.jet.oledb.4.0;data source=your_path;"&_

"Extended Properties'text;FMT=Delimited'"

<二>常用的四种SQL命令:

1.查询数据记录(Select)

语法:Select 字段串行 From table Where 字段=内容

例子:想从book表中找出作者为"cancer"的所有记录,SQL语句便如下:

select * from book where author=’cancer’

"*"是取出book表所有的字段,如查询的字段值为数字,则其后的"内容"便无须加上单引号,如是日期,则在Access中用(#)包括,而在SQL server中则用(’)包括,

如:

select * from book where id=1

select * from book where pub_date=#2002-1-7# (Access)

select * from book where pub_date=’2002-1-7’ (SQL Server)

提示:

日期函数to_date不是标准sql文,不是所有的数据库适用,所以大家在使用的时候要参考数据库具体语法

另外如果是查询传入的变量,则如下:

strau=request.form("author")

strsql="select * from book where author=’"&strau&"’"

如果查询的是数字,则:

intID=request.form("id")

strsql="select * from book where id="&intID

在很多数据库中,如:oracle,上面的语句是可以写成:

strsql="select * from book where id='"&intID&"'"

但是字符型一定不能按照数字格式写,需要注意。

2.添加记录(Insert)

语法:

Insert into table(field1,field2,....) Values (value1,value2,....)

例子:添加一作者是"cancer"的记录入book表:

insert into book (bookno,author,bookname) values (’CF001’,’cancer’,’Cancer无组件上传程序’)

同样,如果用到变量就如下:

strno=request.form("bookno")

strau=request.form("author")

strname=request.form("bookname")

strsql="insert into book (bookno,author,bookname) values (’"&strno&"’,’"&strau&"’,’"&strname&"’)"

3.用Recordset对象的Addnew插入数据的方法:

语法:

rs.addnew

rs("field1").value=value1

rs("field2").value=value2

...

rs.update

4.修改数据记录(Update)

语法:

update table set field1=value1,field2=value2,...where fieldx=valuex

例子:

update book set author=’babycrazy’ where bookno=’CF001’

如果用到变量就如下:

strno=request.form("bookno")

strau=request.form("author")

strsql="update book set author=’"&strau&"’ where bookno=’"&strno"’"

5.Recordset对象的Update方法:

语法:

rs("field1").value=value1

rs("field2").value=value2

...

rs.update

注意:使用语法3和语法5的时候,一定要注意字段的类型(尤其是日期型)一致,否则出错的几率非常的高。

例子:

strno=request.form("bookno")

strau=request.form("author")

set adocon=server.createobject("adodb.connection")

adocon.open "Driver={Microsoft Access Driver(*.mdb)};DBQ=" & _

Server.Mappath=("/cancer/cancer.mdb")

strsql="select * from book where bookno=’"&strno&"’"

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

rs.open strsql,adconn,1,3

if not rs.eof then ’如果有此记录的话

rs("author").value=strau

rs.update

end if

rs.close

set rs=nothing

adocon.close

set adocon=nothing

6.删除一条记录(Delete)

语法:

Delete table where field=value

例子:删除book表中作者是cancer的记录

delete book where author=’cancer’

(注意:如果book表中author字段的值为cancer的记录有多条,将会删除所有author为cancer的记录)

G. ASP与Access数据库连接出错 如何解决

你换一个连接方式

OnErrorResumeNext'容错
DimConn,ConnStr,DBPath
DBPath="../rdcenter.mdb"
ConnStr="DBQ="+ServerMapPath(""&DBPath&"")+";DefaultDir=;Driver{MicrosoftAccessDriver(*.MDB)};"
SetConn=Server.Createobject("Adodb.Connection")
IfErrThen
Err.Clear
Else
Conn.OpenConnStr
EndIf

这样,再去试试

热点内容
linux修改保存文件 发布:2024-05-19 17:30:38 浏览:665
网络有你脚本 发布:2024-05-19 17:29:55 浏览:769
黎明我的世界服务器 发布:2024-05-19 17:17:34 浏览:538
雷神g50如何设置安卓原生模式 发布:2024-05-19 16:50:04 浏览:120
c语言小数四舍五入 发布:2024-05-19 16:23:28 浏览:525
数据库被注入攻击 发布:2024-05-19 16:21:31 浏览:835
微信忘记密码从哪里看 发布:2024-05-19 16:06:37 浏览:33
宝马x4贷款买哪个配置好 发布:2024-05-19 15:56:03 浏览:23
微控pid算法 发布:2024-05-19 15:46:31 浏览:136
云盘视频解压密码 发布:2024-05-19 15:23:17 浏览:848