第一步:建立一个标准的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
好了好了,你自己亲自动手做做吧,由于时间关系就不多说了。
之前分享过很多次CloudCone的信息,主要是VPS主机,其实商家也提供独立服务器租用,同样在洛杉矶MC机房,分为两种线路:普通优化线路及CN2 GIA,今天来分享下商家的CN2 GIA线路独立服务器产品,提供15-100Mbps带宽,不限制流量,可购买额外的DDoS高防IP,最低每月82美元起,支持使用PayPal或者支付宝等付款方式。下面分享几款洛杉矶CN2 GIA线路独立服务器配置信息。配...
搬瓦工和Vultr哪个好?搬瓦工和Vultr都是非常火爆的国外VPS,可以说是国内网友买的最多的两家,那么搬瓦工和Vultr哪个好?如果要选择VPS,首先我们要考虑成本、服务器质量以及产品的售后服务。老玩家都知道目前在国内最受欢迎的国外VPS服务商vultr和搬瓦工口碑都很不错。搬瓦工和Vultr哪个稳定?搬瓦工和Vultr哪个速度快?为了回答这些问题,本文从线路、速度、功能、售后等多方面对比这两...
进入6月,各大网络平台都开启了618促销,腾讯云目前也正在开展618云上Go活动,上海/北京/广州/成都/香港/新加坡/硅谷等多个地区云服务器及轻量服务器秒杀,最低年付95元起,参与活动的产品还包括短信包、CDN流量包、MySQL数据库、云存储(标准存储)、直播/点播流量包等等,本轮秒杀活动每天5场,一直持续到7月中旬,感兴趣的朋友可以关注本页。活动页面:https://cloud.tencent...