在VC++中如何通过ADO创建加密的ACCESS数据库 谢谢

[guan0616]

在VC++中如何通过ADO创建加密的ACCESS数据库

[CathySun118]

一个Vb的例子，请参考：
一个例子：

private form_load()
On Error Resume Next
Dim daoWS As dao.Workspace
Dim daoDB As dao.Database
Dim daoTable As New dao.TableDef
Dim daoField As New dao.Field
Set daoWS = DBEngine.Workspaces(0)

' Create database
Set daoDB = daoWS.CreateDatabase(App.Path & "\Transaction\MiscTrans.mdb", dbLangGeneral, dbVersion40)

' Create Table
Set daoTable = daoDB.CreateTableDef("Transaction")

' Create Fields
Set daoField = daoTable.CreateField("Date", dbDate)

' Append field to table
daoTable.Fields.Append daoField

Set daoField = daoTable.CreateField("Cashier", dbText, 255)
' Append field to table
daoTable.Fields.Append daoField

Set daoField = daoTable.CreateField("CashierID", dbText, 255)
' Append field to table
daoTable.Fields.Append daoField

Set daoField = daoTable.CreateField("InvoiceNumber", dbText, 255)
' Append field to table
daoTable.Fields.Append daoField

Set daoField = daoTable.CreateField("Description", dbText, 255)
' Append field to table
daoTable.Fields.Append daoField

Set daoField = daoTable.CreateField("Amount", dbText, 255)
' Append field to table
daoTable.Fields.Append daoField

' Append table to database
daoDB.TableDefs.Append daoTable

' Clean up objects
Set daoField = Nothing
Set daoTable = Nothing
Set daoDB = Nothing
Set daoWS = Nothing
Call SetDatabasePassword(App.Path & "\Transaction\MiscTrans.mdb", "AdmiN")
end sub

Sub SetDatabasePassword(DBPath As String, newPassword As String)

If Dir(DBPath) = "" Then Exit Sub

Dim db As dao.Database

On Error Resume Next
Set db = OpenDatabase(DBPath, True)
If Err.Number <> 0 Then Exit Sub
db.newPassword "", newPassword

db.Close

End Sub

[LittleLee]

关注！

[tccqs]

up and mark,,

[guan0616]

说错了 在VC++中如何通过DAO创建加密的ACCESS数据库

[guan0616]

自己UP下

[guan0616]

Sub SetDatabasePassword(DBPath As String, newPassword As String)

If Dir(DBPath) = "" Then Exit Sub

Dim db As dao.Database

On Error Resume Next
Set db = OpenDatabase(DBPath, True)
If Err.Number <> 0 Then Exit Sub
db.newPassword "", newPassword 这个是什么意思

db.Close

End Sub

[guan0616]

但是在DAO中 CDATABASE 中没有这个newPassword 方法

[scq2099yt]

up

[闪破风浪]

是对存储的数据进行加密吗？
就像登陆用户和密码的数据加密的例子我可以给你。。。。。。
MD5加密的。
联系我，留下邮箱！！！！！！

[guan0616]

我只想通过程序自动创建数据库,并且对数据库进行加密 我用的方式 vc++ + DAO
我已经可以自动创建数据库,但是不知道怎么加密 谁帮帮我

[suterfo]

继续关注中

[guan0616]

我在vc中没有newpasswd方法

[cofanz]

你要使用DAODatabase，而不是ADO

[cofanz]

不好意思，上面没看清楚，看看CDaoWorkspace::SetDefaultPassword是不是你想要的。

[chehw]

Microsoft提供的方法:
"ALTER DATABASE PASSWORD [Password] NULL;"

[haxiang_3]

在VC++环境下 给ACCESS加密, 我的建议是通过对注册表的编程,把你的加密写到注册表里,最好写在一个不起眼的地方,加密的方法有很多,MD5,或者是DES,都是个很好的选择.我建议你去看本软件加密的书,(我刚好最近在看 *_*). 加油``