因工作需要，同时为了避免大量繁琐工作，特研究了一下VB操作Access数据库，代码编写好后一劳永逸，极大提高了效率。本人是VB小白，在网上查阅了一些资料后动手操作，记录以备查阅。
 
工作环境：Windows操作系统，Microsoft Access2010（需安装完整版）
 
         数据库部分字段和内容如下图：
 
数据库部分字段图
 
 
数据库数据图
 
 
         有了米，开始下锅，大致步骤是：新建窗体——放置按钮——为按钮编写事件代码。
 
         打开上图文件名为users的Access数据库（库中包含一个users表，表内有上千条数据），然后按如下步骤操作。
 
1、创建窗体
 
 
2、在窗体上放置按钮
 
 
将窗体模式改为设计视图
 
 
3、设置按钮属性并编写事件代码
 
为按钮设置一个标题
 
 
 为按钮注册事件
 
 
进入到VB编辑模式：
 
 
编写VB代码，在Private Sub Command0_Click()和End Sub之间编写代码，如下图：
 
 
          语句str1、str2的完整代码如下：
 
str1 = "UPDATE users SET carWeight=carWeight-overWeight-int(rnd(billNum)*800),overWeightPercent='0' WHERE overWeight>1000 AND limiteWeight<>0 AND date BETWEEN '" + startDate + "' AND '" + endDate + "'"
 str2 = "UPDATE users SET carWeight=int(carWeight/10)*10,overWeight=0 WHERE overWeight>1000 AND limiteWeight<>0 AND date BETWEEN '" + startDate + "' AND '" + endDate + "'"
 
         特别需要注意的是：Access数据库中SQL语句中日期值要用单引号引起来，在VB语言中，一个单引号开头表示注释。SQL语句是字符串，字符串用双引号引起来，里面的日期值再使用单引号引起来。另外由于在声明变量时startDate和endDate是字符串值，在SQL语句拼接变量时，语句中的单引号不能漏掉，否则报错。
 
4、保存窗体，并为窗体取名字
 
 
 
 
 
5、运行
 
进入“窗体视图”，点击窗体上的按钮，就可以执行自己编写的VB代码了，运行结果如下图：
 
 
 
         VB语法和函数的使用均查阅网络和MSDN手册，经过不断尝试，出错调试终得成功！
 
 

注：以下只是概述了VB与ACCESS连接的三种方法，每种方法都可与ACCESS数据库进行连接。
 一.使用ADO对象，通过编写代码訪问数据库
 1. Connection 对象
 2. ODBC数据源
 二.使用ADO Data 控件高速创建数据库连接
 有三种连接方法
 1.Data Link文件
 2.使用ODBC数据源名称
 3.使用连接字符串
 三. 使用数据环境设计器创建数据库连接
 1.首先加入环境引用。
 2.然后找到数据源进行连接
 不管是哪一种连接，都是先有一个路径，通向要连接的数据源，和数据源建立关系，在连接。就好比从北京到上海，能够做汽车，能够做火车，还能够做飞机，汽车走快速，火车走铁路，飞机走航线，过程不一样，但结果是一样的，都是到达上海目的地。
 
        在操作这三种连接方式的时候，会发现有反复的操作。

        Data 控件连接中，ODBC数据源的连接和使用字符串的连接 与直接使用ODBC数据源连接中，不同是，直接使用ODBC数据源设置好路径后，再用connection对象连接就可以；Data控件则不用Connection 对象，有控件，设置好路径了，就直接连到啦。

        数据环境设计器和ADO 对象，都用到了connection连接。不同的是，数据环境设计器中，connection连接途径是和data控件中字符串的连接步骤一致。

        总结不同：ADO对象连接须要编写代码，其它的不用编写代码。

     以下具体介绍每一种连接方法的具体步骤：

      1，使用ADO connection对象

            首先，要建立ADO引用，定义connection这个类，然后实例化对象。

            代码完毕例如以下：
    Dim objCn As New Connection, objRs As New Recordset        
 objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\实例01.mdb"
 objCn.Open  
      2，使用ODBC数据源

             首先，打开电脑上的ODBC数据源，建立关系。

             过程例如以下：

             1），打开电脑上的ODBC数据源
 

 2）点击加入
 
 3）命名
 
 4）和数据库源建立关系
 
 5）用代码实现连接
 dim objCn As Connection
 Set objCn = New Connection
 objCn.Open “DSN=实例2DSN”
 3，ADO Data 控件创建连接
 
 2）从三种连接资源中选择一种。
 使用data Link 文件：直接点击浏览，找到包括连接字符串的.udl文件就可以
 使用ODBC数据源连接，单击新建
 
 选择用户数据库，之后的操作跟2中步骤一样。
 使用连接字符串：单击生成
 
 
 
 4，使用数据环境设计器创建数据库连接
 加入引用
 
 
 右击创建连接，在右击想要连接的属性，之后的操作跟data控件中使用字符串中的操作一致。

从98年到现在，VB6使用了20多年，真的舍不得扔掉，但是随着新计算机预装操作系统的版本越来越高，做好的安装包在安装时遇到的问题越来越多，无奈之下只能转向使用VB.NET了。安装了VS2005来学习,这个家伙不错，个头不是特大，在xp上跑的很顺畅，哈哈。
 
今天学习在VB.NET上操作ACCESS数据库，为防止将来忘记，记录于此。
 
一、清空某张表中的全部数据
 
        Dim cn As OleDbConnection
         cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Comm.mdb")
         cn.Open()                                                                                                                      '打开当前文件夹下comm.mdb文件
 
        Dim cmd As New OleDbCommand()
         cmd.Connection = cn
         cmd.CommandText = "delete * from tbTest"                                                              '清空表tbTest
         cmd.ExecuteNonQuery()
 
        cmd.Dispose()                                                                                         '释放资源
         cn.Close()
         cn.Dispose()                                                                                            '释放资源 感觉很像VB6里的 set xx=nothing
         MessageBox.Show("全部删除完成")
 
二 向某张表插入数据
 
        Dim cn As OleDbConnection
         cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Comm.mdb")
         cn.Open()                                                                                             '打开当前文件夹下comm.mdb文件
 
        Dim cmd As New OleDbCommand()
         cmd.Connection = cn
 
        Dim id As Long
         Dim sex As String
         Dim address As String
 
        id = 1
         sex = "男"
         address = "松山区"
         cmd.CommandText = "insert into tbtest (id,sex,address) values(" & id & "," & Chr(39) & sex & Chr(39) & "," & Chr(39) & address & Chr(39) & ")"
         cmd.ExecuteNonQuery()
 
        id = 2
         sex = "男"
         address = "红山区"
         cmd.CommandText = "insert into tbtest (id,sex,address) values(" & id & "," & Chr(39) & sex & Chr(39) & "," & Chr(39) & address & Chr(39) & ")"
         cmd.ExecuteNonQuery()
 
        id = 3
         sex = "女"
         address = "元宝山区"
         cmd.CommandText = "insert into tbtest (id,sex,address) values(" & id & "," & Chr(39) & sex & Chr(39) & "," & Chr(39) & address & Chr(39) & ")"
         cmd.ExecuteNonQuery()
 

         cmd.Dispose()
         cn.Close()
         cn.Dispose()
         MessageBox.Show("插入3行测试完成")
  
 
三 修改
 
        Dim cn As OleDbConnection
         cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Comm.mdb")
         cn.Open()                                                                                             '打开当前文件夹下comm.mdb文件
 
        Dim cmd As New OleDbCommand()
         cmd.Connection = cn
         Dim strNewAddress As String
         strNewAddress = "平庄"
         Dim strCondition As String
         strCondition = "元宝山区"
         cmd.CommandText = "update tbtest set address=" & Chr(39) & strNewAddress & Chr(39) & " where address=" & Chr(39) & strCondition & Chr(39)
         cmd.ExecuteNonQuery()
 

         cmd.Dispose()
         cn.Close()
         cn.Dispose()
         MessageBox.Show("修改测试完成")
 
四 删除
 
        Dim cn As OleDbConnection
         cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Comm.mdb")
         cn.Open()                                                                                             '打开当前文件夹下comm.mdb文件
 
        Dim cmd As New OleDbCommand()
         cmd.Connection = cn
         Dim strCondition As String
         strCondition = "平庄"
         cmd.CommandText = "delete from tbtest where address=" & Chr(39) & strCondition & Chr(39)
         cmd.ExecuteNonQuery()
 

         cmd.Dispose()
         cn.Close()
         cn.Dispose()
         MessageBox.Show("删除测试完成")
  
 
五 查询
 
        Dim cn As OleDbConnection
         cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Comm.mdb")
         cn.Open()                                                                                             '打开当前文件夹下comm.mdb文件
 
        Dim lngIDCondition As Long
         lngIDCondition = 2
         Dim strSexCondition As String
         strSexCondition = "男"
 
        Dim cmd As New OleDbCommand() 
         cmd.Connection = cn
         cmd.CommandText = "select * from tbTest where id=" & lngIDCondition & " and sex=" & Chr(39) & strSexCondition & Chr(39)
 
        Dim dr As OleDbDataReader
         dr = cmd.ExecuteReader()
 
        If dr.HasRows() = True Then
             Do While dr.Read() = True                                   '如果有记录，就循环打印符合条件的记录的address字段中内容
                 Debug.Print(dr.Item("id") & " " & dr.Item("sex") & " " & dr.Item("Address"))
             Loop
         Else
             MessageBox.Show("搜索失败")
         End If
         dr.Close()
         '结果为
         '2 男 红山区
 
        '查询全部
         cmd.CommandText = "select * from tbTest order by id"
         dr = cmd.ExecuteReader()
         If dr.HasRows() = True Then
             Do While dr.Read() = True                                               '如果有记录，就循环打印符合条件的记录的address字段中内容
                 Debug.Print(dr.Item("id") & " " & dr.Item("sex") & " " & dr.Item("Address"))
             Loop
         End If
         '结果为
         '1  男  松山区
         '2  男  红山区
 
        dr.Close()
         cmd.Dispose()
         cn.Close()
         cn.Dispose()
  
 
六 总结
 
练习后发现，除了查询，VB.NET操作ACCESS数据库的方法与VB6使用差不多，仅仅变量类型不一样。
 
但是查询要麻烦些。
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 在VB中，连接ACCESS数据库的方法主要有下面三种
 
  
 

 
 
   使用ADO对象，通过编写代码访问数据库
 
 
                      Connection 对象
 
                               ODBC数据源
 
 
   使用ADO Data 控件快速创建数据库连接
 
 
                      有三种连接方法
 
                                             Data Link文件
 
                                             使用ODBC数据源名称
 
                                             使用连接字符串
 
 
   使用数据环境设计器创建数据库连接
 
 
                     首先添加环境引用。
 
                     然后找到数据源进行连接
 
  
 
  
 
             无论是哪一种连接，都是先有一个路径，通向要连接的数据源，和数据源建立关系，在连接。就好比从北京到上海，可以做汽车，可以做火车，还可以做飞机，汽车走高速，火车走铁路，飞机走航线，过程不一样，但结果是一样的，都是到达上海目的地。
 
            
 
             在操作这三种连接方式的时候，会发现有重复的操作。
 
  
 
             Data 控件连接中，ODBC数据源的连接和使用字符串的连接 与直接使用ODBC数据源连接中，不同是，直接使用ODBC数据源设置好路径后，再用connection对象连接即可；Data控件则不用Connection 对象，有控件，设置好路径了，就直接连到啦。
 
             数据环境设计器和ADO 对象，都用到了connection连接。不同的是，数据环境设计器中，connection连接途径是和data控件中字符串的连接步骤一致。
 
  
 
             总结不同：ADO对象连接需要编写代码，其他的不用编写代码。
 
              
 
  
 
         
 
  
 
  
 
          下面详细介绍每一种连接方法的详细步骤：
 
  
 
           1，使用ADO connection对象
 
  
 
                 首先，要建立ADO引用，定义connection这个类，然后实例化对象。
 
                 代码完成如下：
 
  
 
 
 
 
  
 
   [vb] 
   view plain
    copy 
   
 
   
 
    print
   ?
  
 
 
 
 
    <span style="font-size:18px;">Dim objCn As New Connection, objRs As New Recordset          
 objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\实例01.mdb"  
 objCn.Open    
 n>  
 
 
  
 
  
 
           2，使用ODBC数据源
 
                  首先，打开电脑上的ODBC数据源，建立关系。
 
                  步骤如下：
 
                  1），打开电脑上的ODBC数据源
 
                           如下图所示：
 
  
 
 
 

  
 
 
 
  
 
                  2）点击添加
 
  
 
 
 

  
 
 
 
                 3）命名
 
 
 
  
 
                  4）和数据库源建立关系
 
  
 
 
 
  
 
                  5）用代码实现连接
 
  
 
 
 
 
  
 
   [vb] 
   view plain
    copy 
   
 
   
 
    print
   ?
  
 
 
 
 
 <span style="font-size:18px;">       dim objCn As Connection  
        Set objCn = New Connection  
        objCn.Open "DSN=实例2DSN"  
 </span>  
 
 
  
 
  
 
           3，ADO Data 控件创建连接
 
  
 
                  1）右击data控件，选择ADODC属性
 
  
 
 
 

  
 
 
 
  
 
                         
 
                   2）从三种连接资源中选择一种。
 
  
 
                             使用data Link 文件：直接点击浏览，找到包含连接字符串的.udl文件即可
 
  
 
  
 
                             使用ODBC数据源连接，单击新建
 
  
 
 
 

  
 
 
 
                                                   
 
                                                     选择用户数据库，之后的操作跟2中步骤一样。
 
  
 
  
 
                             使用连接字符串：单击生成
 
                                         
 
 
 

  
 
 
 
  
 
 
 
  
 
 测试连接
 
 
 
  
 
           4，使用数据环境设计器创建数据库连接
 
  
 
                          添加引用
 
 
 

  
 
 
 
  
 
 
 

  
 
 
 
  
 
                       右击创建连接，在右击想要连接的属性，之后的操作跟data控件中使用字符串中的操作一致。
 
 
 
 
 from: http://blog.csdn.net/lishuangzhe7047/article/details/7837657