Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

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

时 间:2007-05-23 00:00:00
作 者:褚玉春   ID:11  城市:上海  QQ:3002789054点击这里给麥田发消息
摘 要:通过用代码改字段数据类型或加字段并设字段数据类型。
正 文:

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

一、代码部分

'模块名称:通过代码修改字段数据类型或加字段并设字段数据类型的完整示例
'功能作用:1.修改字段类型
'          2.新增字段与字段类型
'制 作 者:禇玉春(艾盟威软件技术支持服务)
'参考网站:
http://www.umvsoft.comhttp://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


二、示例下载:

点击浏览该文件



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助