如何建立和连接加密数据库？ - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 如何建立和连接加密数据库？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 522 人关注过本帖

标题：如何建立和连接加密数据库？

只看楼主加入收藏

leolover风

等　级：新手上路
帖　子：23
专家分：0
注　册：2006-12-13

楼主

问题点数：0 回复次数：5

如何建立和连接加密数据库？

Dim db As Database
Dim rs As Recordset

Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\user.mdb")
Set rs = db.OpenRecordset("per")

Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("name").Value)
rs.MoveNext
Combo1.AddItem i
Next

rs.Close
End Sub

如果我给我的user.mdb数据库加密，应该怎么样改上面的程序啊！
高手指点一下！谢谢！

[此贴子已经被作者于2006-12-16 18:16:16编辑过]

搜索更多相关主题的帖子: 数据库　

2006-12-16 11:05

leolover风

等　级：新手上路
帖　子：23
专家分：0
注　册：2006-12-13

第 2 楼

得分:0

为什么没有高手指点啊！？

海阔凭鱼跃！天高任鸟飞！

2006-12-16 15:19

wyfandy

来　自：深圳
等　级：新手上路
帖　子：376
专家分：0
注　册：2006-12-11

第 3 楼

得分:0

Set db = OpenDatabase(App.Path & "\user.mdb", False, False, ";pwd=abc")
abc为密码

不论什么事，只要认准了一个目标，然后朝之不懈地努力，就一定实现。编程爱好者QQ群:21318556

2006-12-16 15:27

leolover风

等　级：新手上路
帖　子：23
专家分：0
注　册：2006-12-13

第 4 楼

得分:0

谢谢！ wyfandy

海阔凭鱼跃！天高任鸟飞！

2006-12-16 15:57

wyfandy

来　自：深圳
等　级：新手上路
帖　子：376
专家分：0
注　册：2006-12-11

第 5 楼

得分:0

不用客气能解决问题就行
大家相互学习

不论什么事，只要认准了一个目标，然后朝之不懈地努力，就一定实现。编程爱好者QQ群:21318556

2006-12-16 16:05

leolover风

等　级：新手上路
帖　子：23
专家分：0
注　册：2006-12-13

第 6 楼

得分:0

Private Sub Form_Load()
Dim myDB As DAO.Database
Set myDB = DAO.Workspaces(0).CreateDatabase("d:\mydb.mdb", dbLangGeneral)
Dim str_SQL As String
str_SQL = "Create Table NewTable1(Field1 Text(10),Field2 Short)"
myDB.Execute str_SQL

str_SQL = "Create Table NewTable2(Field1 Text(10),Field2 Short)"
myDB.Execute str_SQL
myDB.Close
End Sub

以上程序可以建立一个数据库但是如何改动一下可以使其建立一个带密码的数据库呢！？

海阔凭鱼跃！天高任鸟飞！

2006-12-16 16:30

快速回复：如何建立和连接加密数据库？