vb修改数据库密码是什么意思

Ⅰ 急求一个VB程序代码，实现数据库内容的查询，修改，新增，删除

'点击工程(P)--引用(N)--选择 "Microsoft DAO2.5/3.5 compatibility Library" 打钩确定。
Dim D As Database, T As TableDef, R As Recordset
Private Sub Command1_Click() '创建数据库
Set D = CreateDatabase("D:\数据库名称.mdb", dbLangGeneral, dbEncrypt) '创建数据库对象(dbEncrypt=加密)
D.NewPassword "", "123456" '数据库密码设置为123456
'建立设置数据表
Set T = D.CreateTableDef("数据表名称") '数据表名称:
T.Fields.Append T.CreateField("项目一", dbMemo) 'TEXT1内容
T.Fields.Append T.CreateField("项目二", dbMemo) 'TEXT2内容
D.TableDefs.Append T '将数据表添加到数据库中
D.Close '关闭数据库
End Sub
Private Sub Command2_Click() '查询
Dim T1 As Boolean '判断查询数据是否存在参数
Set D = OpenDatabase("D:\数据库名称.mdb", True, False, ";pwd=123456") '需要查询的数据库名称,格式,允许修改,数据库密码
Set R = d1.OpenRecordset("Select * From 数据表名称") '数据表名称:
R.MoveFirst '记录移到第一条记录
Do While (R.EOF = False) '如果记录已经是最后一条就退出循环
If R.Fields("项目一") = Text1.Text Then '判断项目一是否等于文本TEXT1内容
Text2.Text = R.Fields("项目二") '如果存在TEXT2文本框就引入记录内容
T1 = True '作于下面判断记录已经存在的条件
Exit Do '记录已经查到，可以退出循环查询比较
End If
R.MoveNext '如果本条记录不符合要就就记录移到下一条记录
Loop
If T1 = False Then MsgBox "您查询的结果不存在" '这里使用到了参数 T1 作为判断是否存在记录
D.Close '关闭数据库
End Sub
Private Sub Command32_Click() '新数据录入
Set D = OpenDatabase("D:\数据库名称.mdb", True, False, ";pwd=123456") '需要查询的数据库名称,格式,允许修改,数据库密码
Set R = D.OpenRecordset("Select * From 数据表名称")
R.AddNew '增加一条新记录
R.Fields("项目一") = 1 'TEXT1新记录内容
R.Fields("项目二") = "个VB程序代码，实现数据库内容的查询，修改，新增，删除" 'TEXT2新记录内容
R.Update '保存记录
D.Close '关闭数据库
End Sub
Private Sub Command4_Click() '修改
Set D = OpenDatabase("D:\数据库名称.mdb", True, False, ";pwd=123456") '需要查询的数据库名称,格式,允许修改,数据库密码
Set R = D.OpenRecordset("Select * From 数据表名称")
R.Edit '修改记录 （注意 在程序中你根据需要条件将记录移到你需要修改的位置才进行修改）
R.Fields("项目一") = Text1.Text 'TEXT1记录内容修改
R.Fields("项目二") = Text2.Text 'TEXT2记录内容修改
R.Update '保存记录
D.Close '关闭数据库
End Sub
Private Sub Command5_Click() '删除
Set D = OpenDatabase("D:\数据库名称.mdb", True, False, ";pwd=123456") '需要查询的数据库名称,格式,允许修改,数据库密码
Set R = D.OpenRecordset("Select * From 数据表名称")
'

Data1.Recordset.Delete '删除该条记录 ，（注意 在程序中你根据需要条件将记录移到你需要删除的位置才进行删除）
D.Close '关闭数据库
End Sub
'我今晚使用的电脑没有安装VB企业版，未经测试，如有疑问星期一上班有时间再回复。

Ⅱ VB 程序中 如果 进行了 SQL 数据库 读写操作，如果防止数据库存密码泄露

这个对应第二条啊…

1。对于数据库存储密码，你可以先对密码进行MD5或SHA-512等的hash函数加密，然后再进行存储…
2。对于数据库自己的密码，没办法防止，只能让用户自己输入（就是第一次登录让用户输入密码，然后把数据库密码设置成用户输入的密码，以后登录让用户自己输入密码，然后把密码存入一个变量，用它去连接数据库），然后看能不能连上数据库就好了…

你可以对数据库用户权限进行设置，先新建几个用户，然后用比如grand的SQL语句来调配它们的权限，最后按需登录就好了。
不论用什么方法只要你存放了读出明文的方法就不可能不被攻破，所以只能设置数据库用户权限……
这实际是把安全移交给数据库了，只要数据库足够安全就没问题…