如何使用 DAO 來新增兩個資料表中記錄

文章翻譯 文章翻譯
文章編號: 141686 - 檢視此文章適用的產品。
全部展開 | 全部摺疊

結論

在 Microsoft Excel 在本篇文章開頭所列的版本中,您可以使用 DAO (資料存取物件) 來處理外部資料庫中的資料。本文提供巨集範例會示範如何可以新增的兩個不同的資料表使用 DAO 命令記錄。

其他相關資訊

Microsoft 僅,為了說明提供程式設計範例,不提供任何明示或默示的保證。這包括,但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已熟悉使用我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能,但它們不會修改這些範例以提供附加功能或建構程序,以符合您特定需求。警告: 您使用或修改本文所提供的 SQL 陳述式是在您自己的風險。Microsoft 提供 「 現狀 」 這個 SQL 陳述式並不提供任何種類,明示或默示的保證,包括但不是限於適售性以及適合某特定用途之默示擔保責任。Microsoft 不支援修改 SQL 陳述式,以符合特定客戶的需求。

可合併的兩個或多個查詢,表格,結果與單一 UNION 操作中 SELECT 陳述式。下列範例會示範如何使用 UNION 操作來附加兩個資料表:

 Sub AppendTables()
 
 Dim db As Database
 Dim Results As Recordset
 Dim i As Integer
 
   'Open the dBASE IV database
   Set db = OpenDatabase("c:\my documents", False, False, "dBASE IV;")
 
   'Create a recordset that is a union of the January table
   'and the February Table
   Set Results = _
 
      db.OpenRecordset("Select * from January" & _
        "UNION Select * from February")
 
   'Return the column headers to the first row of Sheet1
 
    For i = 0 To Results.Fields.Count - 1
      Sheets("Sheet1").Range("A1").Offset(, i) = Results.Fields(i).Name
    Next
 
   'Return the recordset results to Sheet1
   Sheets("Sheet1").Range("a2").CopyFromRecordset Results
 
   db.Close
 
 End Sub
				
如果用於 AppendTables 巨集 [一月和二月資料表出現在下列中資料表
   January.DBF                         February.DBF
   ------------------------            ------------------------
   DATE      QTY     AMOUNT            DATE      QTY     AMOUNT
   1/3/95     1      66.99             2/6/95     6      44.91
   1/5/95     6      59.11             2/9/95     7      19.13
   1/8/95     4       2.80             2/10/95    2      20.56
   1/8/95     3      11.12             2/10/95    3      69.94
   1/9/95     2      49.71             2/11/95    8      71.67
   1/15/95    3      59.76             2/19/95    1      93.61
   1/23/95    7      93.32             2/24/95    4      57.76
   1/23/95    8      90.96             2/26/95    3      98.13
				
結果傳回給 Sheet1 中使用巨集則如下
   DATE      QTY     AMOUNT
   1/3/95     1      66.99
   1/5/95     6      59.11
   1/8/95     4       2.80
   1/8/95     3      11.12
   1/9/95     2      49.71
   1/15/95    3      59.76
   1/23/95    7      93.32
   1/23/95    8      90.96
   2/6/95     6      44.91
   2/9/95     7      19.13
   2/10/95    2      20.56
   2/10/95    3      69.94
   2/11/95    8      71.67
   2/19/95    1      93.61
   2/24/95    4      57.76
   2/26/95    3      98.13
				
若要使用資料存取物件的命令中一個 Microsoft Excel Visual Basic 應用程式的巨集,必須參考 DAO 程式庫。要參考之 DAO 程式庫會使用下列步驟:
  1. 啟動包含巨集的模組工作表。
  2. 按一下 [工具] 功能表引用項目。
  3. 在 Microsoft Excel 97 選取 Microsoft DAO 3.5 物件程式庫] 核取方塊或 Microsoft Excel 版本 7.0 中選取 [Microsoft DAO 3.0 物件程式庫] 核取方塊,然後按一下 [確定]。

?考

如需有關 DAO 的詳細資訊,按一下 [索引] 索引標籤,Microsoft Excel 97 Visual Basic 說明] 中的,鍵入下列文字
DAO、 概觀
然後再連按兩下所選取的文字,以移至 「 資料存取物件概觀 > 主題。

如需有關資料存取物件的詳細資訊,按一下 [索引] 索引標籤,Microsoft Excel 7.0 說明中的,鍵入下列文字
DAO、 概觀
然後再連按兩下所選取的文字,以移至 「 資料存取物件概觀 > 主題。

如需有關 UNION sql 作業的詳細資訊,按一下 [索引] 索引標籤,Microsoft Excel 說明中的,鍵入下列文字
UNION 操作
然後再連按兩下所選取的文字,以移至 「 UNION 操作 (SQL) 」 主題。

屬性

文章編號: 141686 - 上次校閱: 2005年8月17日 - 版次: 2.1
這篇文章中的資訊適用於:
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 95 Standard Edition
關鍵字:?
kbmt KB141686 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:141686
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。
依現狀不再更新的知識庫內容免責聲明
本文旨在說明 Microsoft 不再提供支援的產品。因此,本文係依「現狀」提供,不會再更新。

提供意見

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com