用代码新增字段及更改字段数据类型示例-麥田
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 源码示例


用代码新增字段及更改字段数据类型示例

发表时间:2007/5/23 评论(2) 浏览(9043)  评论 | 加入收藏 | 复制
   
摘 要:通过用代码改字段数据类型或加字段并设字段数据类型
正 文:

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

一、代码部分

'模块名称:通过代码修改字段数据类型或加字段并设字段数据类型的完整示例
'功能作用: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群(群号:198465573)
 
 相关文章
在access中创建表及如何指定字段类型  【umvsoft整理  2008/6/30】
access与SQL之间对照关系及字段类型说明  【风行  2011/6/16】
在access中修改字段类型的SQL语句  【竹笛  2011/8/24】
【Access源码示例】VBA获取表中字段的数据类型示例,通过代码...  【红尘如烟  2012/10/9】
 
 访客评论
2018/10/13wg
你这种方法,如果是数据库表打开状态,你怎么改?比如我正在输入一个字段,已经超出了位数,需要扩展一位。不能用变量设置字段宽度?

2010/9/19学习
正在找这个信息,先看了!

总记录:2篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

麥田

文章分类

文章存档

友情链接