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

guan0616 2008-04-06 11:16:28
在VC++中如何通过ADO创建加密的ACCESS数据库
...全文
399 16 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
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

16,548

社区成员

发帖
与我相关
我的任务
社区描述
VC/MFC相关问题讨论
社区管理员
  • 基础类社区
  • AIGC Browser
  • encoderlee
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

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

试试用AI创作助手写篇文章吧