第一步:建立一个标准的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
好了好了,你自己亲自动手做做吧,由于时间关系就不多说了。
大硬盘服务器、存储服务器、Chia矿机。RackNerd,2019年末成立的商家,主要提供各类KVM VPS主机、独立服务器和站群服务器等。当前RackNerd正在促销旗下几款美国大硬盘服务器,位于洛杉矶multacom数据中心,亚洲优化线路,非常适合存储、数据备份等应用场景,双路e5-2640v2,64G内存,56G SSD系统盘,160T SAS数据盘,流量是每月200T,1Gbps带宽,配5...
Virtono是一家成立于2014年的国外VPS主机商,提供VPS和服务器租用等产品,商家支持PayPal、信用卡、支付宝等国内外付款方式,可选数据中心共7个:罗马尼亚2个,美国3个(圣何塞、达拉斯、迈阿密),英国和德国各1个。目前,商家针对美国圣何塞机房VPS提供75折优惠码,同时,下单后在LET回复订单号还能获得双倍内存的升级。下面以圣何塞为例,分享几款VPS主机配置信息。Cloud VPSC...
公司成立于2007年,是国内领先的互联网业务平台服务提供商。公司专注为用户提供低价高性能云计算产品,致力于云计算应用的易用性开发,并引导云计算在国内普及。目前,旅途云公司研发以及运营云服务基础设施服务平台(IaaS),面向全球客户提供基于云计算的IT解决方案与客户服务,拥有丰富的国内BGP、双线高防、香港等优质的IDC资源。点击进入:旅途云官方网商家LOGO优惠方案:CPU内存硬盘带宽/流量/防御...