用代码新增字段及更改字段数据类型示例；用VBA代码更改字段类型；在Access中批量修改字段类型的语句

时　间:2007-05-23 00:00:00
作　者:褚玉春   ID：11  城市：上海  QQ：3002789054
摘　要:通过用代码改字段数据类型或加字段并设字段数据类型。
正　文:

正    文：当我们的软件在客户投入使用后,在遇到数据库升级或者发现有的表中的字段类型需要改动时,我们可以通过下面的方法来更改表结构.

一、代码部分

'模块名称：通过代码修改字段数据类型或加字段并设字段数据类型的完整示例
'功能作用：1.修改字段类型
'          2.新增字段与字段类型
'制 作 者：禇玉春(艾盟威软件技术支持服务)
'参考网站：http://www.umvsoft.com;  http://www.accessoft.com
'制作者邮箱：20099004@qq.com
'制作日期：2007-5-22

Private Sub CmdOK1_Click()
CurrentDb.Execute "Alter TABLE tblTest Alter COLUMN mc TEXT(22)"
MsgBox "表tblTest的mc字段的类型已改为文本型,大小为22", vbInformation, "提示"
End Sub

Private Sub CmdOK2_Click()
CurrentDb.Execute "alter table tblTest alter column mc bit"
MsgBox "表tblTest的mc字段的类型已改为布尔型", vbInformation, "提示"
End Sub

Private Sub CmdOK3_Click()
CurrentDb.Execute "alter table tblTest alter column mc date"
MsgBox "表tblTest的mc字段的类型已改为日期型", vbInformation, "提示"
End Sub

Private Sub CmdOK4_Click()
On Error GoTo Err_CmdOK4_Click

CurrentDb.Execute "Alter Table tblTest Add Column mc2 text(2)"
MsgBox "表tblTest内已经增加字段mc2,类型为文本型", vbInformation, "提示"
Exit_CmdOK4_Click:
    Exit Sub

Err_CmdOK4_Click:
    MsgBox Err.Description
    Resume Exit_CmdOK4_Click
End Sub

二、示例下载：

点击浏览该文件