vb连接数据库vb和数据库连接

vb和数据库连接

第一步：建立一个标准的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

好了好了，你自己亲自动手做做吧，由于时间关系就不多说了。