建立一個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   

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