社区

京东店铺
淘宝店铺
当当店铺
拼多多店铺

APP下载

扫描下载官方APP

VIP会员

VB答疑区

+关注

已有23人关注

+发表新帖

所属版块： VB答疑区

小坏_mrkj

学分:0

+关注

私信

立即签到

版块推荐

VB全能编程词典中的图书馆管理系统问题！！

发表在VB答疑区 2011-08-22

是否精华是否

版块置顶: 是否

在图书验收报表模块中设置有一个数据环境（DataEnvironment1）和报表DataReport1。 DataEnvironment1连接数据库时使用手动连接的，而且ACCESS数据库没有设置密码。这样很不科学。1、如果这个程序制作好后要到其他电脑上的不同路径下运行就会提示需要重新输入数据路径这样很麻烦也很容易出错。2、没有设置ACCESS数据库密码安全性能大大降低。

我的问题有一个：
1、如何使用在代码中编写和设置 DataEnvironment1和DataReport1进行加密的ACCESS数据库连接？在哪个事件中写？需要如何设置？能否麻烦各位给个实例？

分享到：

关注

支持(0)

反对(0)

精彩评论 2

学分： LV1

+关注

私信

2011-08-23

沙发

很感谢您的建议
使用代码设置数据环境设计器与加密的Access数据库连接与普通的数据库连接相同，与加密的Access数据库连接的连接串，只是在原来连接串的基础上增加了user id 和database password的设置.
例如你要实现单击一个按钮，打开报表页面，则在这个按钮单击事件中添加数据报表环境的连接代码即可
DataEnvironment1.Connection1.ConnectionString="连接串"
DataEnvironment1.commands(1).ActiveConnection=DataEnvironment1.Connection1 ‘动态连接
DataEnvironment1.commands(1).commandText="查询语句"
datareport1.show() 报表的dataresource属性要设置为 DataEnvironment1的前提下
我们公司的visual Basic范例完全自学手册一书报表打印那章有个动态报表的实例可以参考一下

支持(0)

反对(0)

小坏_mrkj

学分：0 LV1

+关注

私信

TA的每日心情

加油

2022-06-18 09:36:18

2011-08-26

板凳

Case "DCSJ"
      DataEnvironment1.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "datadata.mdb;" & ";jet OLEDB:database password=kjld"
       DataEnvironment1.Commands(1).ActiveConnection = DataEnvironment1.Connection1
       DataEnvironment1.rsCommand1.Open "select * from shujujilu where 日期 between " & Chr(35) & DTPicker3.Value & Chr(35) & " and " & Chr(35) & DTPicker4.Value & Chr(35) & "order by 日期 "
       If DataEnvironment1.rsCommand1.RecordCount > 0 Then
           DataReport1.Show 1
       Else
           MsgBox "此日期段没有记录，请重新选择！", vbOKOnly
           DataEnvironment1.rsCommand1.Close

我这样写哪里出错了？

支持(0)

反对(0)

首页上一页 1 下一页尾页 2 条记录 1/1页