Question

vb 修改mdb密码

现有一mdb文件,密码为123,vb中以如下模块打开
Public Function StrCnn()
StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db\mydate.mdb;Jet OLEDB:Database Password=123;Persist Security Info=False"
End Function

我的问题是
窗体中有text1和command1,当点击command1时,将text1中的字符串更换为mdb文件的密码和模块"Database Password"的值

Answer 1

Dim pwd
Private Form_Load()
pwd="123"
End Sub

Public Function StrCnn()
StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db\mydate.mdb;Jet OLEDB:Database Password=" & pwd & ";Persist Security Info=False"
End Function

Private Command1_Click()
Text1=pwd
End Sub

Answer 2

Public Function StrCnn()
StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db\mydate.mdb;Jet OLEDB:Database Password= " & Text1.text & " ;Persist Security Info=False"
End Function

Answer 3

MARK
周一解答，现在没有测试环境