大家好,今日繼續(xù)給大家講解VBA數(shù)據(jù)庫(kù)解決方案的第21講,如何利用VBA代碼在已有的數(shù)據(jù)表中刪除，添加，修改字段。這個(gè)內(nèi)容是操作數(shù)據(jù)庫(kù)的一項(xiàng)必修的內(nèi)容，還望大家在實(shí)際工作中多利用，所以這節(jié)的知識(shí)，對(duì)于讀者提高自己的數(shù)據(jù)庫(kù)的操作很有幫助，這節(jié)的內(nèi)容同時(shí)也涉及到很多的SQL語(yǔ)句操作，對(duì)于大家理解通過(guò)VBA對(duì)數(shù)據(jù)庫(kù)的控制會(huì)很有幫助，或許有的朋友剛剛看到我的平臺(tái)的文章，對(duì)于代碼的熟悉程度不如老朋友，還望能充分結(jié)合我之前的書籍《VBA代碼解決方案》多實(shí)踐，提高自己對(duì)VBA的理解能力，不然對(duì)于大段的代碼的理解將是非常吃力的。

實(shí)例內(nèi)容：我們還是利用數(shù)據(jù)來(lái)說(shuō)話：如下的數(shù)據(jù)庫(kù)的數(shù)據(jù)表"信息參考"共有兩個(gè)的字段

現(xiàn)在要增加一個(gè)"電子郵箱"的字段，先設(shè)計(jì)這個(gè)字段的長(zhǎng)度為10個(gè)字符，然后再修改一下到50個(gè)字符，當(dāng)然在增加"電子郵箱"的字段前要先判斷原數(shù)據(jù)表中是否存在這個(gè)字段，如果存在要先刪除這個(gè)字段，同時(shí)在操作的過(guò)程中要做到可視化的控制。

分析：這個(gè)實(shí)例并不難，但過(guò)程是較繁瑣的，我們?cè)谧龀绦蚯耙壤砬逅悸?。我們看看要?shí)現(xiàn)這個(gè)要求的大概要經(jīng)過(guò)的過(guò)程：

1 數(shù)據(jù)庫(kù)和數(shù)據(jù)表連接的創(chuàng)建和打開。

2 顯示字段(可視化的要求)，同時(shí)要判斷是否有"電子郵箱"字段.

3 如果有"電子郵箱"，那么刪除，同時(shí)顯示一下刪除后的結(jié)果(可視化).

4 刪除后，或者原數(shù)據(jù)表中沒(méi)有這個(gè)字段，那么建立"電子郵箱"字段，這時(shí)建立的是字符長(zhǎng)度是10.

5 顯示建立后的結(jié)果(可視化).

6 修改字段長(zhǎng)度。

7 最后再次顯示結(jié)果(可視化)。

上述過(guò)程緊扣可視化的要求進(jìn)行，一步一步的完成，我們?cè)谧龀绦虻臅r(shí)候，也要做到這種可視化的要求，要給用戶一個(gè)友好的操作，不能呆板的寫代碼，只是考慮到程序的運(yùn)行時(shí)間，要盡可能的多為用戶考慮，操作到哪一步了，要提示給用戶，特別是在數(shù)據(jù)處理這類單調(diào)的工作過(guò)程中，更要這樣。

下面看看我們的代碼：

Sub mynzAddFields() '數(shù)據(jù)表中刪除增加修改字段

Dim cnADO, rsADO As Object

Dim strPath, strSQL As String

Set cnADO = CreateObject("ADODB.Connection")

Set rsADO = CreateObject("ADODB.RecordSet")

strPath = ThisWorkbook.Path & "mydata2.accdb"

strTable = "信息參考"

cnADO.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & strPath

tt = False

strSQL = "SELECT * FROM " & strTable

rsADO.Open strSQL, cnADO, 1, 3

Cells.ClearContents

MsgBox "下面將顯示各個(gè)字段，判斷有無(wú)[電子郵箱]字段

總結(jié)

以上是生活随笔為你收集整理的oracle中修改多个字段默认值_利用VBA代码在已有的数据表中删除、添加、修改字段...的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。