❶ 网页如何连接到ACCESS 数据库
有五种方法:
第一种 - 这种方法用在ACCESS中最多
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("aspfree.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
第二种－这种方法用在sql SERVER中多
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=127.0.0.1;" _
&"UID=LoginID;Password=;DATABASE=Database_Name"
set conn = server.createobject("adodb.connection")
conn.open strconn
第三种
strconn="Driver={Microsoft Access Driver(*.mdb)};" _
&"DBQ=F:\Inetpub\wwwroot\somedir\db1.mdb;DefaultDir=" _
&"f:\Inetpub\wwwroot\somedir;uid=LoginID;" _
&"pwd=Password;DriverId=25;FIL=MSAccess;"
set conn = server.createobject("adodb.connection")
conn.open strconn
第四种运用系统数据源
The following uses a Data Source Name: Example
set conn = server.createobject("adodb.connection")
conn.open "Example"
第五种运用ODBC数据源，前提是你必须在控制面板的ODBC中设置数据源
set rs = server.createobject("adodb.recordset")
rs.open "tblname", "DSNName", 3, 3 第一种 - 这种方法用在ACCESS中最多
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("aspfree.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
自己试试吧!!!
❷ 网页与ACCESS数据库如何实现数据交互
您好，我是玵羽薇 。希望能帮到您。其实就是ASP与数据库的连接，在数据库中读取、添加、删除数据。 1.与Access数据库建立连接： <% Dim conn Set conn=Server.CreateObject("ADODB.Connection") conn.ConnectionString="Driver={MicroSoft Access Driver (*.mdb) };Dbq="&Server.MapPath("Name.mdb") conn.Open %> 其中"&Server.MapPath("Name.mdb")为数据库绝对路径，&Server.MapPath()即返回当前服务器的绝对地址，Name.mdb就是数据库的名称。 到这里，我们已经建立的与数据库的连接了，意思说，我们已经取得了与数据库的联系，下一步，我们就用指令来—— 2.从数据库中读取数据记录： <% Dim rs Set rs=conn.Execute("Select * From Name") //读取 Response.Write rs("Lable") //输出，默认为rs("Lable")字段的第一个记录。 %> 其中rs("Lable")便是代表当前记录的Lable字段值，也就是当前记录的编号。 这样可以遍历数据库输出： <% Dim rs Set rs=conn.Execute("Select * From Name") Do while not rs.eof Response.Write rs("Lable1") Response.Write rs("Lable2") ... rs.MoveNext //调用记录集rs对象的MoveNext方法，可以将记录指针向下移动一条记录 Loop %> 关闭数据库以释放内存： <% conn.Close Set conn=Nothing %> 3.写入数据库： <% Dim sql //这里时关键语句了，插入数据为什么值全靠这个SQL语句 sql="Insert Into Name(Lable1,Lable2,...) Values("&Data1&","&Data2&",...)" //插入新的记录 conn.Execute(sql) %> 其中Insert Into Name(Lable1,Lable2,...) Values("&Data1&","&Data2&",...)就是将记录Data1、Data2等插入到Lable1、Lable2等字段中。 以上内容参考了： http://thefeeling.rknw.com/blogview.asp?logID=57&cateID=1 谢谢采纳
❸ 网页链接ACCESS数据库方法
给你一段代码，连接一个Access数据库，添加、查询、修改、删除，在一个页面都搞定。
<%
'作用：
Sub Aerlt_Redirect(msg,url)
Dim t
t = "<script>"
t = t & "alert('" & msg & "');"
t = t & "location.href='" & url & "';"
t = t & "</script>"
Response.write t
End Sub
'作用：
Dim sql,conn,rs,connstr,dbpath
Set conn=Server.CreateObject("adodb.connection")
Set rs=Server.CreateObject("adodb.recordset")
dbpath="./adoAll.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mapPath(dbpath)
conn.connectionstring=connstr
%>
<html>
<head>
<title>ado全功能测试</title>
<script type="text/javascript">
<!--
function checkForm()
{
var u_name=document.f.u_name.value;
var u_pass1=document.f.u_pass1.value;
var u_pass2=document.f.u_pass2.value;
var u_email=document.f.u_email.value;
var u_birth=document.f.u_birth.value;
if (u_name.length<3)
{
alert("用户名不得少于3个字母！");
document.f.u_name.focus();
return false;
}
//...
return true;
}
function myDo(f,act)
{
var frm=eval("document." + f);
frm.act.value=act;
frm.submit();
}
//-->
</script>
</head>
<body>
<%
Dim act
act=Trim(request.Form("act"))
Select Case act
Case "new"
u_name=Trim(Request.Form("u_name"))
u_pass1=Trim(Request.Form("u_pass1"))
u_pass2=Trim(Request.Form("u_pass2"))
u_email=Trim(Request.Form("u_email"))
u_birth=Trim(Request.Form("u_birth"))
u_sex=Trim(Request.Form("u_sex"))
'作用：
If Len(u_name)<3 Then
Response.write "用户名不得少于3个字母！"
Response.End
End If
'....
'作用：
'sql="insert into [member](u_name,u_pass,...) values('" & u_name & "','" & u_pass & "','..."
'conn.open
'conn.execute sql
sql="select top 1 * from [member]"
conn.open
rs.open sql,conn,1,3
rs.Addnew
rs("u_name")=u_name
rs("u_pass")=u_pass1
rs("u_email")=u_email
rs("u_birth")=u_birth
rs("u_sex")=u_sex
rs.update
rs.close
conn.close
Call Aerlt_Redirect("添加成功！","adoAll.asp")
Case "mdf"
u_id=Trim(Request.Form("u_id"))
u_name=Trim(Request.Form("u_name"))
u_pass=Trim(Request.Form("u_pass"))
u_email=Trim(Request.Form("u_email"))
u_birth=Trim(Request.Form("u_birth"))
u_sex=Trim(Request.Form("u_sex"))
'作用：
If Len(u_name)<3 Then
Response.write "用户名不得少于3个字母！"
Response.End
End If
If Not IsNumeric(u_id) Then
Response.write "u_id格式错误"
Response.End
End If
'....
'作用：
sql="select top 1 * from [member] where u_id=" & u_id
conn.open
rs.open sql,conn,1,3
'If Not rs.eof Then rs.delete
rs("u_name")=u_name
rs("u_pass")=u_pass
rs("u_email")=u_email
rs("u_birth")=u_birth
rs("u_sex")=u_sex
rs.update
rs.close
conn.close
Call Aerlt_Redirect("修改成功！","adoAll.asp")
'作用：
Case "del"
u_id=Trim(Request.Form("u_id"))
sql="delete * from [member] where u_id=?"
conn.open
Set c=Server.CreateObject("adodb.command")
with c
Set .ActiveConnection=conn
.CommandText=sql
.CommandType=1
.Parameters.Append .CreateParameter("u_id",3,1,4,u_id)
.Execute
Set .ActiveConnection=Nothing
End with
conn.close
Call Aerlt_Redirect("删除成功！","adoAll.asp")
'作用：
Case "search"
u_name=Trim(Request.Form("u_name"))
u_sex=Trim(Request.Form("u_sex"))
'...
If u_name<>"" Then
ext=" and [u_name]='" & u_name & "'"
End If
If u_sex<>"" Then
ext=ext & " and [u_sex]=" & u_sex
End If
sql="select * from [member] where 1=1 " & ext
sql=sql & " order by u_id "
session("sql")=sql
Case Else
If session("sql")="" Then
sql="select * from [member] order by u_id "
session("sql")=sql
End If
End Select
%>
<form name="f" method="post" action="?" onsubmit="return checkForm()">
<input type="hidden" name="act" value="new">
<table>
<tr>
<td>注册用户名：</td>
<td><input type="text" name="u_name" /></td>
</tr>
<tr>
<td>密码：</td>
<td><input type="password" name="u_pass1" /></td>
</tr>
<tr>
<td>确认密码：</td>
<td><input type="password" name="u_pass2" /></td>
</tr>
<tr>
<td>邮箱：</td>
<td><input type="text" name="u_email" /></td>
</tr>
<tr>
<td>性别：</td>
<td><input type="radio" name="u_sex" value="1" checked />男
<input type="radio" name="u_sex" value="0" />女</td>
</tr>
<tr>
<td>生日：</td>
<td><input type="text" name="u_birth" /></td>
</tr>
<tr>
<td colspan="2"><input type="submit" value="注册" /></td>
</tr>
</table>
</form>
<form method="post" action="?">
<input type="hidden" name="act" value="search">
<table>
<tr>
<td>用户名：<input type="text" name="u_name" size="10" /></td>
<td>性别：<select name="u_sex">
<option value="" selected="selected">选择性别</option>
<option value="0">女</option>
<option value="1">男</option>
</select></td>
<td><input type="submit" value="查询" /></td>
</tr>
</table>
</form>
<%
If session("sql")="" Then Response.End
conn.open
rs.open session("sql"),conn,1,1
If Not rs.eof Then
%>
<table>
<tr>
<td>ID</td>
<td>用户名</td>
<td>密码</td>
<td>邮箱</td>
<td>性别</td>
<td>出生日期</td>
<td>修改</td>
<td>删除</td>
</tr>
<%
Dim iCnt
Do While Not rs.Eof
iCnt=iCnt+1
%>
<form method="post" action="?" name="f<%=iCnt%>">
<input type="hidden" name="act" value="">
<input type="hidden" name="u_id" value="<%=rs("u_id")%>">
<tr>
<td><%=rs("u_id")%></td>
<td><input type="text" name="u_name" value="<%=rs("u_name")%>" /></td>
<td><input type="text" name="u_pass" value="<%=rs("u_pass")%>" /></td>
<td><input type="text" name="u_email" value="<%=rs("u_email")%>" /></td>
<td><select name="u_sex">
<option value="0" <%If rs("u_sex")="0" Then Response.write " selected"%>>女</option>
<option value="1" <%If rs("u_sex")="1" Then Response.write " selected"%>>男</option>
</td>
<td><input type="text" name="u_birth" value="<%=rs("u_birth")%>" /></td>
<td><input type="button" value="修改" onclick="myDo('f<%=iCnt%>','mdf')" /></td>
<td><input type="button" value="删除" onclick="myDo('f<%=iCnt%>','del')" /></td>
</tr>
</form>
<%
rs.MoveNext
Loop
%>
</table>
<%
End If
rs.close : conn.close
%>
</body>
</html>
❹ 怎么将access数据库嵌入网页里面
不能把数据库嵌入网页，只能通过连接数据库，对数据库进行操作。 如果用ASP，连接的代码如下： <% set adocon=Server.Createobject("adodb.connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("数据库文件的相对路径及文件名") adocon.open connstr %> 然后使用这个连接对象就行了。 看你说的都是外行话，建议你仔细查查相关资料吧，别人即使把源码给你，给你讲解，你没有基础也是不行，也未必完全符合你的要求，你还要修改。
❺ 网页与数据库ACCESS怎么连接
<%
'================================================================================================================
dim conn
dim connstr
dim db
db="admin/#data/%98data.mdb" '数据库文件位置
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
'On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.commandtimeout=20
conn.open ConnStr
'If Err Then
'err.Clear
'Set Conn = Nothing
'Response.Write "<br><br><br><br><br><br><br><div align='center'>数据库连接出错!请检查连接数据库的参数及字符串设置是否正确！</div>"
'Response.End
'End If
'-----------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------
'为了系统的安全，直接在有数据库连接的地方都加上SQL注入的免疫
'自定义需要过滤的字串,用 "|" 分隔
Fy_In = "'| ; | and | or | exec | insert | select | delete | update | count | * | % |chr(| char(| mid | master | truncate | declare "
'----------------------------------
Fy_Inf = split(Fy_In,"|")
If Request.QueryString<>"" Then
For Each Fy_Get In Request.QueryString
For Fy_Xh=0 To Ubound(Fy_Inf)
If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))<>0 Then
'--------写入数据库----------头-----
conn.Execute("insert into web_errlog(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','GET','"&Fy_Get&"','"&replace(Request.QueryString(Fy_Get),"'","''")&"')")
'--------写入数据库----------尾-----
response.redirect("/Error.html")
response.end
End If
Next
Next
End If
❻ 动态网页连数据库access的详细过程
常用数据库语句
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 = "[email protected]"
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 = "[email protected]"
sql = "update data set usermail='"&usermail&"' where ID="&CInt(ID)
conn.Execute(sql)
conn.Close
Set conn = Nothing
说明：建立数据库连接；获取记录ID、新 E-mail 字符串；使用 update 语句修改记录；conn.Execute 来执行；最后关闭。
如果使记录的查看值加1，则：sql = "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"
❼ 怎样将Acess数据库与网页连接起来,用代码怎么写
数据库的连接方法：
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=数据库名"
❽ 网页里怎么连接ACCESSS数据库、
是ACCESS数据库的话，默认的数据库尾缀是.mdb
格式的
就在程序里面。
找到程序里面的conn.asp文件来编辑，连接数据库的路径就可以了！
❾ html页面中如何连接access数据库
你必须在DW里面把网页存为ASP或者PHP才可以采用动态数据库更新数据 要把站点修改一下 然后
在dreamwave用代码或者在面板里面的数据库创建连接
ASP代码是<%%
dim conn
dim db
db="admin/database/Enterprise.mdb" //你的文件路径下面的数据库，具体你自己替换
set conn=Server.CreateObject("adodb.connection")
conn.provider="Microsoft.jet.oledb.4.0;Data source=" & Server.MapPath(db)
conn.open
sub CloseConn()
conn.close
set conn=nothing
end sub
%>%>
创建好连接后创建记录集和SQL COMMAND对象就可以连接上了
<%
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from wo where 表格里面的字段='"&indexAD_ID&"' "//我是你的数据库里德表格名称 自己在数据库里面建好
rs.open sql,conn,1,1
%>
然后你只要在那个位置输入<%indexAD_id%>就可以了 只要连接数据库成功之后 其他就很方便 不过这要有点ADO基础 你好好找找资料试验下吧
❿ 网站与ACCESS数据库如何连接
做一个“conn.asp”文件，每次连接数据库时候都调用这个文件即可
<%
response.buffer=true '启用缓冲处理
dim conn,db
dim connstr
db="%%%%%%%%%%%%.mdb"'数据库链接路径
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
Response.End
End If
sub Chkhttp()
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 or server_v1="" or server_v1="" then
response.Charset="utf-8"
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if
end sub
%>