第一步:建立一个标准的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
好了好了,你自己亲自动手做做吧,由于时间关系就不多说了。
简介华圣云 HuaSaint是阿里云国际版一级分销商(诚招募二级代理),专业为全球企业客户与个人开发者提供阿里云国际版开户注册、认证、充值等服务,通过HuaSaint开通阿里云国际版只需要一个邮箱,不需要PayPal信用卡,不需要买海外电话卡,绝对的零门槛,零风险官方网站:www.huasaint.com企业名:huaSaint Tech Limited阿里云国际版都有什么优势?阿里云国际版的产品...
gcorelabs提供美国阿什本数据中心的GPU服务器(显卡服务器),默认给8路RTX2080Ti,服务器网卡支持2*10Gbps(ANX),CPU为双路Silver-4214(24核48线程),256G内存,1Gbps独享带宽仅需150欧元、10bps带宽仅需600欧元,不限流量随便跑吧。 官方网站 :https://gcorelabs.com/hosting/dedicated/gpu/ ...
棉花云官网棉花云隶属于江西乐网科技有限公司,前身是2014年就运营的2014IDC,专注海外线路已有7年有余,是国内较早从事海外专线的互联网基础服务提供商。公司专注为用户提供低价高性能云计算产品,致力于云计算应用的易用性开发,并引导云计算在国内普及。目前公司研发以及运营云服务基础设施服务平台(IaaS),面向全球客户提供基于云计算的IT解决方案与客户服务(SaaS),拥有丰富的国内BGP、双线高防...