javascript连接access数据库
作者:great_domino 的 Blog
文件构成：
Access数据库名为 MyData.Mdb， 里面建了一个名为count的表，表由两个
字段组成： ID和COUNT，表里有一条数据： (''''count'''',''''100'''')。
文本文件名为 count.txt，里面随便写入一个数字。
静态页面名为Cnt.htm。
以上3个文件都放在同一目录下。
由于采用Access数据库，而它采用非标准sql语法，所以要注意在表名
和字段名上需要加方括号： []
下面是页面里的代码：
其中getCountFromDB方法是对Access数据库进行操作，getCountFromTxt
方法是对txt纯文本进行操作，这两个方法都在本地执行通过。
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<SCRIPT LANGUAGE="JavaScript">
<!--
function getCountFromDB() {
//以当前页面文件为基础，找到文件所在的绝对路径。
var filePath = location.href.substring(0, location.href.indexOf("Cnt.htm"));
var path = filePath + "MyData.mdb";
//去掉字符串中最前面的"files://"这8个字符。
path = path.substring(8);
var updateCnt = 0;
//生成查询和更新用的sql语句。
var sqlSelCnt = "SELECT COUNT FROM [COUNT] WHERE ID = ''''count''''";
var sqlUpdCnt = "UPDATE [COUNT] SET [COUNT] = ''''";
//建立连接，并生成相关字符串 www.zhangpeng.com.cn。
var con = new ActiveXObject("ADODB.Connection");
con.Provider = "Microsoft.Jet.OLEDB.4.0";
con.ConnectionString = "Data Source=" + path;
con.open;
var rs = new ActiveXObject("ADODB.Recordset");
rs.open(sqlSelCnt, con);
while (!rs.eof) {
var cnt = rs.Fields("COUNT");
document.write(cnt);
//将取得结果加1后更新数据库。
updateCnt = cnt * 1 + 1;
rs.moveNext;
}
rs.close();
rs = null;
sqlUpdCnt = sqlUpdCnt + updateCnt + "''''";
con.execute(sqlUpdCnt);
con.close();
con = null;
}
function getCountFromTxt() {
var filePath = location.href.substring(0, location.href.indexOf("Cnt.htm"));
var path = filePath + "count.txt";
path = path.substring(8);
var nextCnt = 0;
var fso, f1, ts, s;
//以只读方式打开文本文件。
var ForReading = 1;
//以读写方式打开文本文件。
var ForWriting = 2;
fso = new ActiveXObject("Scripting.FileSystemObject");
f1 = fso.GetFile(path);
ts = f1.OpenAsTextStream(ForReading, true);
s = ts.ReadLine();
nextCnt = eval(s) + 1;
document.write("now count is :" + s);
ts.Close();
ts = f1.OpenAsTextStream(ForWriting, true);
ts.WriteLine(nextCnt);
ts.close();
}
//-->
</SCRIPT>
</HEAD>
<BODY>
<SCRIPT LANGUAGE="JavaScript">
<!--
getCountFromTxt();
//-->
</SCRIPT>
</BODY>
</HTML>
② 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基础 你好好找找资料试验下吧
③ asp网页如何连接access数据库
这个不就是连接数据库吗 还用什么视频？
给你个规则以后按这个弄就好了 我自己都是这么做的 没有问题的
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver
(*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>
恩恩 连表是吧 你要启动SQL语句的
sql="select * from 表名"
conn.execute(sql)
这样就可以了
④ 动态网页连数据库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"
⑤ 网页如何连接到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的。
dim conn,rs,sql,i,connstr
connstr="dbq=" & server.MapPath("mdb/bookshop.mdb")
& ";driver={microsoft access driver (*.mdb)};"
'前两句为一行代码
set conn=server.CreateObject("adodb.connection")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from book order by id desc"
rs.Open sql,conn,1,1
'rs.MovePrevious
⑦ 如何让网页表单提交到ACCESS数据库
用form提交表单：
在你的xx.action
里面就可以直接拿到你页面的参数了，这样在后台链接一下你的
access数据库
，这样就可以存入了
⑧ 网页链接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>