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

guan0616 2008-04-06 11:16:28
在VC++中如何通过ADO创建加密的ACCESS数据库
...全文
357 点赞 收藏 16
写回复
16 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
haxiang_3 2008-04-12
在VC++环境下 给ACCESS加密, 我的建议是通过对注册表的编程,把你的加密写到注册表里,最好写在一个不起眼的地方,加密的方法有很多,MD5,或者是DES,都是个很好的选择.我建议你去看本软件加密的书,(我刚好最近在看 *_*). 加油``
回复
chehw 2008-04-07
Microsoft提供的方法:
"ALTER DATABASE PASSWORD [Password] NULL;"
回复
cofanz 2008-04-07
不好意思,上面没看清楚,看看CDaoWorkspace::SetDefaultPassword是不是你想要的。
回复
cofanz 2008-04-07
你要使用DAODatabase,而不是ADO
回复
guan0616 2008-04-07
我在vc中没有newpasswd方法
回复
suterfo 2008-04-07
继续关注中
回复
guan0616 2008-04-07
我只想通过程序自动创建数据库,并且对数据库进行加密 我用的方式 vc++ + DAO
我已经可以自动创建数据库,但是不知道怎么加密 谁帮帮我
回复
闪破风浪 2008-04-07
是对存储的数据进行加密吗?
就像登陆用户和密码的数据加密的例子我可以给你。。。。。。
MD5加密的。
联系我,留下邮箱!!!!!!
回复
scq2099yt 2008-04-07
up
回复
guan0616 2008-04-07
但是在DAO中 CDATABASE 中没有这个newPassword 方法
回复
guan0616 2008-04-07
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 2008-04-06
自己UP下
回复
guan0616 2008-04-06
说错了 在VC++中如何通过DAO创建加密的ACCESS数据库
回复
tccqs 2008-04-06
up and mark,,
回复
LittleLee 2008-04-06
关注!
回复
CathySun118 2008-04-06
一个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
回复
相关推荐
发帖
VC/MFC
创建于2007-09-28

1.5w+

社区成员

VC/MFC相关问题讨论
申请成为版主
帖子事件
创建了帖子
2008-04-06 11:16
社区公告

        VC/MFC社区版块或许是CSDN最“古老”的版块了,记忆之中,与CSDN的年龄几乎差不多。随着时间的推移,MFC技术渐渐的偏离了开发主流,若干年之后的今天,当我们面对着微软的这个经典之笔,内心充满着敬意,那些曾经的记忆,可以说代表着二十年前曾经的辉煌……
        向经典致敬,或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天,我们期待着MFC技术能够恢复其曾经的辉煌,或许这个期待会永远成为一种“梦想”,或许一切皆有可能……
        我们希望这个版块可以很好的适配Web时代,期待更好的互联网技术能够使得MFC技术框架得以重现活力,……