Question

VB访问已有密码的数据库

如果用VB访问一个ACCESS数据库的话,别人可以单独打开ACDESS数据库到数据进行修改,所以我想对ACCESS数据库设一个密码,但如果用VB去访问的话,怎么写代码,请高手指点下.如账号为1.密码为1的数据库.

Answer 1

ACCESS数据库没有账号吧！

如果在程序文件夹下有1.mdb数据库设置密码为1可以这样写
Sub Connect()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\1.mdb; Persist Security Info=False;Jet OLEDB:database password=1"
conn.Open
End Sub

Answer 2

Set conn = New Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password='密码';" & "Data Source=C:\Program Files\vb\vb\a.mdb"

Answer 3

你可以这样来访问
ConnStr = "Provider = SQLOLEDB.1;Server="& dbServer &";Database="& dbName &";Uid="& dbUser &";Pwd="& dbPass &";"
Set Conn = Server.CreateObject("ADODB.Connection")
'On Error Resume Next
Conn.open ConnStr