<%
Dim connstr
connstr="provider=microsoft.ACE.oledb.12.0data source=" &server.MapPath("bb.accdb")
Set conn = Server.Createobject("ADODB.Connection")
conn.Open connstr
%>
Access数据库的加密及数据库的 *** 作权限(表,查询,窗体等)有关数据是保存在Access数据库的系统文件 System.mdw中的.如果你在设计中设置成功的话,实际上系统默认了系统文件的存在并获取各参数,但当编译系统运行或独立发包时,需要给你的系统指明 System.mdw 文件的存在.
所以连接数据库的连接字符如下:
Dim adoConnstring As String
adoConnstring="Provider=Microsoft.Jet.OLEDB.4.0Password=xxxUser ID=xxxData Source=数据库文件.mdbPersist Security Info=TrueJet OLEDB:System database= 系统文件.MDWJet OLEDB:Create System Database=True"
其中
User ID=xxx 访问数据库的用户,默认的是 admin
Password=xxx 访问数据库的密码
数据库文件.mdb数据库文件绝对路径
系统文件.MDW System.mdw 文件的绝对路径
1)设置数据库密码,首先要以“独占方式”打开需要设置数据库密码的数据库
开始——所有程序—— MS OFFICE ACCESS 2003,
打开ACCESS 2003后,菜单——文件——打开
d出打开对话框,选定您要打开的数据库,点击右下角“打开”按钮有一个下拉箭头
于下拉列表点击“以独占方式打开”见图
2)以独占方式打开数据库后,菜单——工具——安全——设置数据库密码
于打开的“数据库密码设置对话框”,填入密码后确认即可
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)