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

jerry_huang 维苏威高级陶瓷(苏州)有限公司 商务系统经理  2001-08-18 12:56:23
我的Access数据库加了密码后再用VB程序打开时,总是说密码无效,请问VB中该在哪里设定密码?我对VB是初学,很需要热心人的帮助,谢谢!
...全文
105 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lanren_me 2001-08-18
'***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

回复
lanren_me 2001-08-18
up
回复
zym1110 2001-08-18
up
回复
mmzxg 2001-08-18
来的太晚了,楼上说的对
QAYMUIC兄,好象用DAO创建的数据库可以用ACCESS打开呀,例如
DBENGINE。CREATEDATEBASE(“TEXT。MDB”,“;PWD=YYY”)
可以的呀
回复
qaymuic 2001-08-18
如果用的是adodb,在adodb.connection的打开方法的字符串中,紧接着文件名写入";uid=xxx,pwd=yyy"
如果用的dao,用法如qxchen所说。但是,用dao创建的数据库,尽管文件名可以是*.mdb ,但用access是打不开的,它的文件格式和access 不同。
回复
qxchen 2001-08-18
dim db as database
Set db = OpenDatabase("Test.mdb", False, False, ";PWD =" & Password)
回复
netfor2000 2001-08-18
ok
回复
YHW 2001-08-18
来晚了

楼上说的对
回复
一川烟草123 2001-08-18


在 建 立 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属 性 后 面 。
回复
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2001-08-18 12:56
社区公告
暂无公告