第一步:建立一个标准的EXE工程,并且在工程添加一个类模块和一个计时器(DataEnvironment1)下图的第二即Data Environment
第二步:在工程===引用===勾选(找到microsoft activex date objects 2.5 library在其前面勾选)
第三步:点中设计器的DataEnvironment1右键“查看对象”会弹出下图
点中connection1右键==“属性”
按下图操作:
选中microsoft jet 4.0 ole db provider 继续“下一步(N)”,又会弹出下图
按步操作吧 :
选择你的数据库路径e:1.mdb
由于我在这里是做测试,所以连接数据库时是没有设置密码的(但是我们在企业实际开发工作中,必须要设置密码,而且密码要复杂,这是为了我们企业的信息安全着想,防止不法分子盗取我们企业的重要资料)
最后测试下我们的连接是否成功!
成功后,我们把它的数据源(connectionsource属性)给复制过来看下图
好,到这步后我们已经把数据源的路径复制过业了,接下来就是在类模块编写代码了,看下面:
把代码是写在类模块里如下:
Option Explicit Dim ADOLJ As Connection Dim strACCESS As String Public Sub main() strACCESS = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:1.mdb;Persist Security Info=False" Set ADOLJ = New Connection ADOLJ.Open strACCESS MsgBox "连接ACCESS 2003 成功", vbOKOnly, "提示" Form1.Show 1 End Sub 在这里值得向大家说明的一点就是:我们刚才所复制的数据源存在一个小问题,那就是它的详细路径
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:1.mdb;Persist Security Info=False
当然如果我们不去理会它,程序与数据库的连接也可以正常运行,但是如果把我们的应用程序放在客户机上用,那就不行了,因为每个客户的存取数据文件不一定就是E盘的,可能会是D盘G盘F盘......
那么我们可以用APP.Path这个自动识别路径的方法就不会出现找不到文件路径的报错的情况了。
那么怎么改呢,请看下面:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "1.mdb;Persist Security Info=False
好了好了,你自己亲自动手做做吧,由于时间关系就不多说了。
近期联通CUVIP的线路(AS4837线路)非常火热,妮妮云也推出了这类线路的套餐以及优惠,目前到国内优质线路排行大致如下:电信CN2 GIA>联通AS9929>联通AS4837>电信CN2 GT>普通线路,AS4837线路比起前两的优势就是带宽比较大,相对便宜一些,所以大家才能看到这个线路的带宽都非常高。妮妮云互联目前云服务器开放抽奖活动,每天开通前10台享3折优惠,另外...
关于HostDare服务商在之前的文章中有介绍过几次,算是比较老牌的服务商,但是商家背景财力不是特别雄厚,算是比较小众的个人服务商。目前主流提供CKVM和QKVM套餐。前者是电信CN2 GIA,不过库存储备也不是很足,这不九月份发布新的补货库存活动,有提供九折优惠CN2 GIA,以及六五折优惠QKVM普通线路方案。这次活动截止到9月30日,不清楚商家这次库存补货多少。比如 QKVM基础的五个方案都...
SugarHosts 糖果主机商也算是比较老牌的主机商,从2009年开始推出虚拟主机以来,目前当然还是以虚拟主机为主,也有新增云服务器和独立服务器。早年很多网友也比较争议他们家是不是国人商家,其实这些不是特别重要,我们很多国人商家或者国外商家主要还是看重的是品质和服务。一晃十二年过去,有看到SugarHosts糖果主机商12周年的促销活动。如果我们有需要香港、美国、德国虚拟主机的可以选择,他们家的...