dim dbconn as new adodb.connecttion dim dbrs as new adodb.recordset dbconn.open "Provider=Provider=Microsoft.Jet.OLEDB.4.0;Data _ Source=databasename.mdb;Mode=Read|Write|Share Deny None;Persist _ Security Info=False",userid,password dbrs.ActiveConnection = ds dbrs.CursorType = adOpenStatic dbrs.LockType = adLockBatchOptimistic dbrs.open "sql statement" 用两个TEXTBOX,一个输用户名,一个输密码即可
set db as database set db=opendatabase(databasename,false,false,";pwd=密码")
dim db as adodb.connection db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\user\桌面\db2.mdb;Jet OLEDB:Database Password=6326612;" 如上,password=后是你的密码,路径你自己设看http://www.csdn.net/expert/topic/1057/1057165.xml?temp=.3312189
sDataName为数据库完整路径,con_PWD为数据库密码。"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDataName & ";Persist Security Info=False;Jet OLEDB:database password=" & con_PWD
dim dbrs as new adodb.recordset
dbconn.open "Provider=Provider=Microsoft.Jet.OLEDB.4.0;Data _ Source=databasename.mdb;Mode=Read|Write|Share Deny None;Persist _ Security Info=False",userid,password
dbrs.ActiveConnection = ds
dbrs.CursorType = adOpenStatic
dbrs.LockType = adLockBatchOptimistic
dbrs.open "sql statement"
用两个TEXTBOX,一个输用户名,一个输密码即可
set db=opendatabase(databasename,false,false,";pwd=密码")
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\user\桌面\db2.mdb;Jet OLEDB:Database Password=6326612;"
如上,password=后是你的密码,路径你自己设看http://www.csdn.net/expert/topic/1057/1057165.xml?temp=.3312189
在作库时可以用access2000
它可以提供对数据库的加密
可以用上面的ActiveX adodc的对象方式打开
如果你用的是ado和datagirl控件来打开的话
你只需要在ado控件的连接字符串后加上
Jet OLEDB:Database Password=6326612;