【文章內(nèi)容簡(jiǎn)介】 詢，產(chǎn)生記錄集另一種方法是先用Sever對(duì)象的CreateObject方法創(chuàng)建記錄集對(duì)象實(shí)例。Set 對(duì)象變量名 = (“”)利用RecordSet對(duì)象的Open方法讀取數(shù)據(jù) RecordSet對(duì)象建立完成后，其中還沒有任何可供使用的記錄數(shù)據(jù)，可以通過RecordSet對(duì)象中的Open方法獲取真正的記錄數(shù)據(jù)，Open方法用來向數(shù)據(jù)源提出一個(gè)操作請(qǐng)求并執(zhí)行具體的操作。Open方法的使用格式如下：記錄對(duì)象變量名Open、數(shù)據(jù)來源、連接對(duì)象、指針類型、鎖定方式、數(shù)據(jù)源類型。顯示記錄集中的數(shù)據(jù) 記錄集創(chuàng)建好后，可以通過它的屬性、方法和集合完成對(duì)記錄集中數(shù)據(jù)的顯示。（1）記錄集中的屬性 記錄集對(duì)象中有許多屬性，它們對(duì)遍歷記錄集是有用處的。AbsolutePosition：用來設(shè)置或讀取當(dāng)前記錄在記錄集中的位置順序號(hào)。BOF：用來測(cè)試并返回記錄指針是否到達(dá)記錄集的頭部。是為True不是為False。EOF：用來測(cè)試并返回記錄指針是否到達(dá)記錄集的尾部。是為True不是為False。RecordCount：返回一個(gè)記錄集中的記錄總數(shù)。AbsolutePage：用來設(shè)置或返回當(dāng)前記錄所在的頁號(hào)。PageCount：返回當(dāng)前記錄集所包含總頁數(shù)。PageSize：設(shè)置每頁所包含的記錄個(gè)數(shù)。 （2）記錄集中的方法 記錄集有一些方法是用來在記錄之間移動(dòng)記錄指針的。移動(dòng)當(dāng)前指針的方法有5種，除了Move方法有兩個(gè)參數(shù)外，其余的四個(gè)不含參數(shù)，使用很方便。但要注意，當(dāng)指針類型參數(shù)設(shè)置為adOpenForwardOnly時(shí)，光標(biāo)向前移動(dòng)的方法是不可用的。五個(gè)方法分別是：MoveFirst：移動(dòng)到第一條記錄；MoveLast：移動(dòng)到最后一條記錄；MoveNext：移動(dòng)到下一條記錄；MovePrevious：移動(dòng)到上一條記錄；Move N,Start：移動(dòng)N個(gè)記錄。（3）記錄集的子集合 RecordSet對(duì)象包含一個(gè)字段子集合Fields，它儲(chǔ)存記錄的全部字段。Fields中的每個(gè)元素是一個(gè)字段對(duì)象。Field對(duì)象包含如下屬性：Name：字段名 Type：字段的數(shù)據(jù)類型 Value：字段的值 Count：返回記錄集中一條記錄的字段個(gè)數(shù)可以通過以下方式調(diào)用Field對(duì)象的不同屬性：(字段名或字段序號(hào))Value (字段名或字段序號(hào)).Type(字段序號(hào)).Name其中字段序號(hào)表示當(dāng)前字段在字段子集合Fields中的排列位置，若有n個(gè)字段，則其值從0、2...n1。通過字段序號(hào)獲取字段名稱：記錄變量名（字段序號(hào)）.Name 通過字段序號(hào)獲取字段值：記錄變量名(字段序號(hào)).vaule直接讀取指定名稱的字段值： 記錄變量名（“字段名”）記錄的增加及編輯修改 RecordSet對(duì)象有5個(gè)可直接更新記錄的方法，其中UpdateBatch方法是用于成批處理記錄的，其它4種方法都是對(duì)當(dāng)前記錄操作的，所以不帶任何參數(shù)。AddNew：添加一條新的空記錄。該方法執(zhí)行后指針指向該新記錄，可以對(duì)其各個(gè)字段賦值，但不寫回到數(shù)據(jù)表中，只有通過執(zhí)行Updete方法才可以完成真正的插入功能。 雖然連接對(duì)象的Execute方法也能用Insert命令實(shí)現(xiàn)記錄的插入，但對(duì)于有較多字段名和多個(gè)字段值的情況來說，用Insert命令實(shí)現(xiàn)記錄的插入書寫代碼比較麻煩，而且容易寫錯(cuò)，不適合大量字符串的插入。而用記錄集對(duì)象的Addnew是常用的插入記錄的方法。Delete：刪除當(dāng)前記錄。這種方法每次只刪除一條記錄，而且不能帶條件，所以我們一般都用連接對(duì)象的Execute方法實(shí)現(xiàn)對(duì)記錄的刪除，這種方法更靈活，功能也較完善。 Update：更新當(dāng)前記錄，將記錄集中編輯修改的記錄寫入數(shù)據(jù)庫(kù)中。用AddNew或Delete方法增加或刪除記錄后，最終要通過Update方法實(shí)現(xiàn)。 CancalUpdate：撤消更新操作。撤消了AddNew和Delete命令的效果。 UpdateBatch：更新（保存）一個(gè)或多個(gè)記錄的修改。 （1）增加記錄 向表中插入新記錄時(shí)，如果該記錄的字段較多，且字段值大都是由用戶實(shí)際輸入的，我們一般都使用RecordSet對(duì)象的AddNew方法，具體實(shí)現(xiàn)過程如下：首先向表中插入一條空記錄，通過賦值語句向該記錄的不同字段賦值，最后通過Update方法完成對(duì)數(shù)據(jù)庫(kù)的數(shù)據(jù)真正更新。在實(shí)際應(yīng)用時(shí)一般要設(shè)計(jì)2個(gè)網(wǎng)頁文檔，一個(gè)是數(shù)據(jù)輸入界面，另一個(gè)是完成記錄插入的數(shù)據(jù)更新的。（2）刪除記錄 從表中刪除記錄有兩種方法，一種是通過連接對(duì)象的Execute方法執(zhí)行SQL命令中的Delete命令；另一種方法是利用記錄集對(duì)象的Delete方法刪除當(dāng)前記錄。我們一般使用通過連接對(duì)象的Execute方法執(zhí)行SQL命令中的Delete命令的方法，這種方法可以帶刪除條件，一個(gè)命令可以刪除多條滿足條件的記錄；而利用記錄集對(duì)象的Delete方法只能刪除當(dāng)前記錄，所以必須通過循環(huán)語句才能刪除多條記錄，運(yùn)行效率較低。通過輸入界面輸入刪除條件，這種方式一般要設(shè)計(jì)兩個(gè)頁面，一個(gè)靜態(tài)頁面用于提供輸入刪除的條件值；另一個(gè)動(dòng)態(tài)頁面用于獲取靜態(tài)頁面所提交的刪除值，然后判斷是否存在要?jiǎng)h除的記錄，如果不存在則顯示提示信息，如果存在則執(zhí)行刪除命令。通過復(fù)選框選擇多條要?jiǎng)h除的記錄，這種方式一般要設(shè)計(jì)兩個(gè)動(dòng)態(tài)頁面，一個(gè)動(dòng)態(tài)頁面用于提供可供選擇的刪除記錄，每個(gè)記錄前有一個(gè)復(fù)選框，供用戶確定該記錄是否要?jiǎng)h除；另一個(gè)動(dòng)態(tài)頁面用于獲取選擇頁面所提交的刪除記錄的特征值，從而確定要?jiǎng)h除的記錄。通過超連接的方式確定要?jiǎng)h除的記錄，這種方式一般要設(shè)計(jì)兩個(gè)動(dòng)態(tài)頁面，一個(gè)動(dòng)態(tài)頁面用于提供可供選擇的刪除記錄，每個(gè)記錄的主鍵字段包含一個(gè)超連接，當(dāng)用戶單擊此超連接時(shí)，即可調(diào)另一網(wǎng)頁獲取選擇頁面所提交的刪除記錄的特征值實(shí)現(xiàn)對(duì)該記錄的刪除。在這種情況下被刪除的記錄已經(jīng)顯示的屏幕上了，也不用判斷它是否存在，直接執(zhí)行SQL中的Delete刪除命令。（3）修改記錄 對(duì)于一次要修改多條記錄，且被修改的多條記錄修改的方法相同時(shí)，一般使用通過連接對(duì)象的Execute方法執(zhí)行SQL命令中的Update命令，用這種修改記錄的方法建議被修改的值不宜過多，如果被修改的值過多書寫代碼復(fù)雜且容易出錯(cuò)。如果一次要修改某條記錄的多個(gè)字段值，而且不同記錄被修改的字段值也不相同時(shí)，建議使用記錄集對(duì)象的Update方法修改當(dāng)前記錄。 AutoCAD VBA 簡(jiǎn)介 什么是 AutoCAD VBAVBA 是 Visual Basic for Applications 的英文縮寫，它是一個(gè)功能強(qiáng)大的開發(fā)工具，在工作中，有很多任務(wù)僅用 AutoCAD 命令不可能完成的，學(xué)好 VBA 可以成倍甚至成百、成萬倍提高工作效率。 用 VBA 管理器組織工程你可以使用 VBA 管理器查看裝載在當(dāng)前 AutoCAD 進(jìn)程的所有 VBA 工程。 VBA 管理器一個(gè) AutoCA D工具，它允許你裝載、卸載、保存、創(chuàng)建、嵌入和分離 VBA 工程。打開 VBA 管理器的步驟：在工具菜單中選擇宏 VBA 管理器或者在 AutoCAD中調(diào)用 VBAMAN 命令。裝載現(xiàn)存的工程，當(dāng)你裝載工程到 AutoCAD 中，所有的公用的子程序 ( 也稱為宏 ) 都可以使用。 嵌入于圖形中的工程在圖形打開時(shí)就被裝載。保存在 DVB 文件中的工程必須單獨(dú)裝載。裝載現(xiàn)存的 VBA 工程文件：在 VBA 管理器中，使用裝載項(xiàng)可彈出打開 VBA 工程對(duì)話框；在打開 VBA 工程對(duì)話框中，選擇打開的工程文件。該 VBA 工程對(duì)話框允許你打開有效的DVB 文件；如果你嘗試打開不同類型的文件，你將會(huì)得到出錯(cuò)信息；選擇打開。你也可以使用 VBALOAD 命令直接出現(xiàn)打開 VBA 工程對(duì)話框以裝載工程文件。另外，當(dāng)工程裝載后，該工程所引用的其它工程將會(huì)自動(dòng)地裝載。還有， AutoCAD 在啟動(dòng)時(shí)將自動(dòng)裝載名稱為 的工程文件。相關(guān)主題：病毒警告。每次當(dāng)你裝載工程時(shí)，你會(huì)看到啟用或禁用工程中的代碼以阻止宏病毒的警告框。如果你選用啟用代碼，如果工程中含有宏病毒時(shí)病毒可能會(huì)發(fā)作。如果你禁用代碼，工程同樣會(huì)裝載，但工程中的所有代碼將不能運(yùn)行。卸載工程以釋放內(nèi)存并保持裝載的工程列表的長(zhǎng)度以方便管理。你不能卸載嵌入工程或由其它已裝載工程所引用的工程。卸載 VBA 工程的操作：在 VBA 管理器中，選擇要卸載的工程；選擇卸載或者使用 VBAUNLOAD 命令，它將提示你所要卸載的工程。嵌入工程到圖形中：當(dāng)你嵌入一個(gè)工程時(shí)，你是將工程的一個(gè)副本置于圖形數(shù)據(jù)庫(kù)中。無論何時(shí)，當(dāng)所包含工程的圖形打開或關(guān)閉時(shí)，工程會(huì)同時(shí)被裝載和被卸載。一個(gè)圖形只有在同一時(shí)間包含一個(gè)嵌入工程。如果圖形已經(jīng)包含有一個(gè)嵌入工程，你必須在同樣地入其它工程之前將該嵌入工程分離出。嵌入工程到 AutoCAD 圖形中的操作：打開 VBA 管理器并選擇你所要嵌入的工程；選擇嵌入。當(dāng)你分離工程時(shí)，其實(shí)是將工程從圖形數(shù)據(jù)庫(kù)中刪除，同時(shí)會(huì)提示你將工程保存為外部的工程文件。如果你沒有將其保存為外部工程文件，該工程的數(shù)據(jù)將會(huì)刪除。從 AutoCAD 圖形中分離工程的操作：打開 VBA 管理器并選擇要從圖形中分離的工程；選擇分離；如果你想保存工程信息為外部工程文件，可以在 “ 你是否想在刪除 VBA 工程前將其輸出？ ”的提示下選擇 “ 是 ” ，此時(shí)會(huì)顯示另存為對(duì)話框，允許你保存文件。如果你不想保存該工程信息到外部文件，可以在 “ 你是否想在刪除 VBA 工程前將其輸出？ ” 的提示下選擇 “ 否 ” ，此時(shí)工程信息將在沒有保存的情況下從圖形中刪除。創(chuàng)建新的工程：新的工程將作為未保存的全局工程被創(chuàng)建。當(dāng)工程創(chuàng)建時(shí)，你可以將工程嵌入圖形中，或?qū)⑵浔４鏋楣こ涛募?chuàng)建新的 VBA 工程的操作：打開 VBA 管理器；選擇新建。新創(chuàng)建的工程將使用默認(rèn)的工程名稱 ACADproject 。你必須到 VBA IDE 中才可以更改工程名稱。保存嵌入工程，嵌入工程是在圖形保存時(shí)同時(shí)保存的。全局工程必須使用 VBA 管理器或 VBA IDE 進(jìn)行保存。使用 VBA 管理器保存工程的操作：打開 VBA 管理器并選擇要保存的工程；選擇另存為，此時(shí)另存為對(duì)話框打開；選擇用于保存工程的文件；選擇保存 處理宏 與設(shè)置 VBA 工程選項(xiàng)一樣，宏對(duì)話框允許你運(yùn)行、編輯、刪除和創(chuàng)建宏。宏是公用 ( 可執(zhí)行 ) 的子程序。每一工程通常至少一個(gè)宏。打開宏對(duì)話框的操作：從工具菜單中選擇宏：或在 AutoCAD 中調(diào)用 VBARUN 命令。在對(duì)話框中顯示的是所有在有效范圍內(nèi)的宏名稱。你可通過下拉列表來改變有效范圍。該列表指定所要顯示的宏所在的工程或圖形。你可在以下列表內(nèi)容選擇所要顯示宏范圍所有圖形和工程所有圖形所有工程在當(dāng)前所打開的單獨(dú)圖形在當(dāng)前所裝載的單獨(dú)工程通過限制有效范圍你可控制顯示在列表中的宏名稱的數(shù)量。它可幫助你注意到當(dāng)前有多少宏裝載到圖形中或指定工程中有多少宏。運(yùn)行宏，運(yùn)行宏就是在當(dāng)前 AutoCAD 進(jìn)程中執(zhí)行宏代碼。當(dāng)前活動(dòng)圖形指的是當(dāng)宏執(zhí)行開始時(shí)處于打開并處理激活狀態(tài)。所有在全局工程的宏中所涉及的 ThisDrawing 對(duì)象將指向當(dāng)前活動(dòng)圖形。在嵌入工程中，ThisDrawi ng對(duì)象通常指向嵌入該宏的圖形。運(yùn)行宏的操作：打開宏對(duì)話框并選擇要運(yùn)行的宏；選擇運(yùn)行。編輯宏，編輯宏將打開 VBA IDE 并打開所選定宏的代碼窗口。詳細(xì)的介紹請(qǐng)參考 “ 用 VBA IDE 編輯工程 ”。編輯宏的操作：打開宏對(duì)話框并選擇要編輯的宏； 選擇編輯。逐語句運(yùn)行宏指的是開始運(yùn)行宏并在第一行代碼時(shí)暫停。 VBA IDE 也隨之打開所選定的宏的代碼窗口并高亮顯示所執(zhí)行宏所在的行。逐語句運(yùn)行宏的操作：在宏對(duì)話框中，選擇要逐語句運(yùn)行的宏；選擇逐語句；選擇逐語句。創(chuàng)建新的宏操作：打開宏對(duì)話框并輸入新宏的名稱；在宏位置下拉列表中選擇所創(chuàng)建宏所要存在的位置；選擇創(chuàng)建。如果所指定宏的名稱已經(jīng)存在，系統(tǒng)將提示你是否替換現(xiàn)在的宏。如果你在提示下選擇“是”，則現(xiàn)在的宏代碼將被刪除，而一個(gè)新的而沒有內(nèi)容的宏也會(huì)以指定名稱而創(chuàng)建 。如果你在提示下選擇“否”這時(shí)會(huì)返回宏對(duì)話框以輸入另外的宏名稱。如果你在提示下選擇“取消”宏對(duì)話框?qū)⑾?，宏也沒有創(chuàng)建。刪除宏操作：打開宏對(duì)話框并選擇要?jiǎng)h除的宏；選擇刪除，系統(tǒng)會(huì)提示你是否確認(rèn)刪除；在提示下，選擇“是”而刪除宏，或者選擇“否”以取消刪除的操作。 VBA IDE 編輯工程打開 VBA IDE，當(dāng)打開 VBA IDE 時(shí)，它就可以訪問所有已裝載的工程。按需要打開 VBA IDE 的操作 ，你可以從命令行或從菜單欄中打開 VBA IDE 從命令行，可輸入 VBAIDE ?；驈墓ぞ卟藛?，使用宏 V isual Basic 編輯器。在 AutoCAD 啟動(dòng)時(shí)自動(dòng)打開 VBA IDE 的操作。 查看工程信息VBA IDE 包含名稱為工程窗口的窗口，其中顯示了所有已裝載 VBA 工程的列表。它也顯示包含在工程中的代碼、類和窗體模塊，還有關(guān)聯(lián)到該工程的文檔，在該工程所引用的 VBA 工程，以及工程的物理 位置 ( 也稱路徑 ) 。工程窗口有它自己的工具欄，使用其工具欄可打開不同的工程部件進(jìn)行編輯。使用查看代碼按鈕可打開選定模塊的代碼。使用查看對(duì)象按鈕可顯示如窗體之類的選定對(duì)象。VBA IDE 工程窗口，工程窗口默認(rèn)為可見。如果不可見，可從查看菜單中選擇工程窗口，或按 CTRL+R 。定義工程的部件，每個(gè)工程可包含多個(gè)不同的部件。在工程中包含的不同部件可以是對(duì)象、窗體、標(biāo)準(zhǔn)模塊、類模塊和引用。對(duì)象部件聲稱了 VBA 代碼可訪問的對(duì)象或文檔的類型。在 AutoCAD VBA 工程，該對(duì)象聲稱為當(dāng)前AutoCAD 圖形。窗體部件包含了當(dāng)前你在工程中為了使用而建立的自定義對(duì)話框。該代碼部件包含了普通程序和函數(shù)。標(biāo)準(zhǔn)模塊也歸類為代碼模塊或簡(jiǎn)單的模塊。類模塊部件包含你所有定義為類的自己的對(duì)象。引用部件包含所有引用其它的工程和庫(kù)。增加新部件增加新的部件是在工程中創(chuàng)建一空白的部件。你可在工程中增加新的模塊、窗體和類模塊。你有責(zé)任更新所有部件