大家好,今日继续给大家讲解VBA数据库解决方案的第21讲,如何利用VBA代码在已有的数据表中删除，添加，修改字段。这个内容是操作数据库的一项必修的内容，还望大家在实际工作中多利用，所以这节的知识，对于读者提高自己的数据库的操作很有帮助，这节的内容同时也涉及到很多的SQL语句操作，对于大家理解通过VBA对数据库的控制会很有帮助，或许有的朋友刚刚看到我的平台的文章，对于代码的熟悉程度不如老朋友，还望能充分结合我之前的书籍《VBA代码解决方案》多实践，提高自己对VBA的理解能力，不然对于大段的代码的理解将是非常吃力的。

实例内容：我们还是利用数据来说话：如下的数据库的数据表"信息参考"共有两个的字段

现在要增加一个"电子邮箱"的字段，先设计这个字段的长度为10个字符，然后再修改一下到50个字符，当然在增加"电子邮箱"的字段前要先判断原数据表中是否存在这个字段，如果存在要先删除这个字段，同时在操作的过程中要做到可视化的控制。

分析：这个实例并不难，但过程是较繁琐的，我们在做程序前要先理清思路。我们看看要实现这个要求的大概要经过的过程：

1 数据库和数据表连接的创建和打开。

2 显示字段(可视化的要求)，同时要判断是否有"电子邮箱"字段.

3 如果有"电子邮箱"，那么删除，同时显示一下删除后的结果(可视化).

4 删除后，或者原数据表中没有这个字段，那么建立"电子邮箱"字段，这时建立的是字符长度是10.

5 显示建立后的结果(可视化).

6 修改字段长度。

7 最后再次显示结果(可视化)。

上述过程紧扣可视化的要求进行，一步一步的完成，我们在做程序的时候，也要做到这种可视化的要求，要给用户一个友好的操作，不能呆板的写代码，只是考虑到程序的运行时间，要尽可能的多为用户考虑，操作到哪一步了，要提示给用户，特别是在数据处理这类单调的工作过程中，更要这样。

下面看看我们的代码：

Sub mynzAddFields() '数据表中删除增加修改字段

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 "下面将显示各个字段，判断有无[电子邮箱]字段