新建一个ACCESS数据库

1、新建一个ACCESS数据库，2003版本。

2、创建一个姓名表，加一个姓名字段，文本型。

3、在姓名表中加六条记录，张三、李四、王五、赵六、钱七、孙八

==========================================

'首先，工具->引用->选中Microsoft ActiveX Data Objects 2.X Library

'必须选中，否则下面代码不会起作用！（以下链接数据库之方式，不需要使用ADODB控件，仅需代码即可）

Public Conn As New ADODB.Connection

Public Rs As New ADODB.Recordset

Public Cnt As Integer '这个Cnt是用来表示数据库数据总量的，对链接过程无关

'连接数据库的代码段

Conn.CursorLocation = adUseClient '以Conn为链接名建立链接，这里是设置数据游标（客户端数据游标），即设定读取数据库数据之方式（一行一行地读）

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "/test.mdb"

'自己改动一下上面的路径和文件名即可，其他的代码你不理解照粘贴无妨

If Rs.State <> adStateClosed Then Rs.Close

Rs.Open "SELECT 铺名, 上月读数, 本月读数, 实用度数, 铺位数, 首层面积, 非经营层面积, 欠费明细, 欠费金额 FROM data WHERE 首层面积 is not null and 非经营层面积 is not null;", Conn, adOpenKeyset, adLockPessimistic

Cnt = Rs.RecordCount

'关闭数据库链接（一般放到子过程结束处，关闭数据库链接）

Rs.Close

Conn.Close

Set Rs = Nothing

Set Conn = Nothing

'添加、修改、删除、更新数据（都以Conn.Execute后带SQL语句来实现对数据库的查询操作）

'Conn.Execute "update data set 上月读数 = 本月读数"

’Rs.MoveNext '数据游标转到数据库下一行

'实例：

For i = 1 To Cnt

DoEvents

Conn.Execute "insert into data (ID,铺名,上月读数,本月读数,实用度数,铺位数) values(" & Rs("ID") & ",'" & Rs("铺名") & "'," & Rs("上月读数") & "," & Rs("本月读数") & "," & Rs("实用度数") & "," & Rs("铺位数") & ")"

Rs.MoveNext

Next

==============================================

在工程中引用 Microsoft ActiveX Data Objects 2.x Library

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/pc.mdb"

Set conn = New ADODB.Connection

conn.Open connstr

Set rs = New ADODB.Recordset

 ''''''''''''

 ' rs.Open "SELECT * FROM 我的表格名 WHERE 我选定的字段=" & 值, conn, 3, 3

 ' 以可写方式打开 表里 我选定的字段 = 值 的那个记录

 ' rs ("name")就是那个记录 在 name字段的内容

 ' 对此赋值后，要rs.update才能生效

 ''''''''

 ''''''''''''

 ' rs.Open "SELECT * FROM 我的表格名", conn, 3, 3

 ' 以可写方式打开 表里 第一个记录

 ' rs.movenext 可以移动到下一个记录

 ' rs ("name")就是那个记录 在 name字段的内容

 ' 对此赋值后，要rs.update才能生效

 ''''''''

==============================

'窗体中的代码  

  Option   Explicit  

  Dim   rs   As   New   ADODB.Recordset  

  Private   Sub   Form_Load()  

          Dim   strSQL   As   String  

          strSQL   =   "select   *   from   TabName"  

          rs.Open   strSQL,   cn,   adOpenStatic,   adLockReadOnly,   adCmdText  

          If   rs.RecordCount   >   0   Then  

                  MsgBox   "test1"  

          End   If  

          rs.Close  

          Set   rs   =   Nothing  

  End   Sub  

  '模块　  

  Option   Explicit  

  Public   cn   As   New   ADODB.Connection  

  Public   Sub   GetCn()  

          Dim   iConcstr   As   String  

          iConcstr   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &   App.Path   &   "/data.mdb;Persist   Security   Info=False;Jet   OLEDB:DataBase   Password='123456789987654321'"  

          cn.Open   iConcstr  

  End   Sub   

    =====================================================