我的Access数据库加了密码后再用VB程序打开时，总是说密码无效，请问VB中该在哪里设定密码？我对VB是初学

[jerry_huang]

我的Access数据库加了密码后再用VB程序打开时，总是说密码无效，请问VB中该在哪里设定密码？我对VB是初学，很需要热心人的帮助，谢谢！

[一川烟草123]

在 建 立 ADO连 接 时 ， 你 可 以 指 定 用 户 名 和 密 码 ， 这 种 方 式 适 合 与 SQL Server等 数 据 库 。 对 于 Access数 据 库 不 能 使 用 这 样 的 方 式 。 你 可 以 在 通 常 的 连 接 字 符 串 后 面 添 加 ：
Jet OLEDB:Database Password=password
这 里 password是 你 的 密 码 。 如 ：
Conn1.Open "Provider=Microsoft.JET.OLEDB.3.51;" & _
"Data Source=G:\ComponentSource\DBFiles\CSMain\CSMain.mdb;" &
"Jet OLEDB:Database Password=outlook"
对 于 ADO控 件 ， 你 应 该 把 这 个 字 符 串 添 加 在 ConnectionString属 性 后 面 。

[YHW]

来晚了

楼上说的对

[netfor2000]

ok

[qxchen]

dim db as database
Set db = OpenDatabase("Test.mdb", False, False, ";PWD =" & Password)

[qaymuic]

如果用的是adodb,在adodb.connection的打开方法的字符串中,紧接着文件名写入";uid=xxx,pwd=yyy"
如果用的dao,用法如qxchen所说。但是，用dao创建的数据库，尽管文件名可以是*.mdb ,但用access是打不开的，它的文件格式和access 不同。

[mmzxg]

来的太晚了，楼上说的对
QAYMUIC兄，好象用DAO创建的数据库可以用ACCESS打开呀，例如
DBENGINE。CREATEDATEBASE（“TEXT。MDB”，“；PWD=YYY”）
可以的呀

[zym1110]

up

[lanren_me]

up

[lanren_me]

'***Connect to ODBC DSN
Dim cnn As New ADODB.Connect
Dim cnnStr As String
cnnStr = "User ID=" & userIDS & ";Password=" & pwdS & ";Data Source=" & dsnS
cnn.Open cnnStr

'***Connect to Microsoft Access File
Dim cnn As New ADODB.Connect
Dim cnnStr As String
cnnStr="DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & "数据文件路经..."
cnn.Open cnnStr