求：将全部字段数据类型改为文本类型的代码

20090930　发表于：2017-03-14 16:51:52 　

复制

Top

张志发表于：2017-03-14 20:52:40

vba代码新增字段、更改字段类型、删除字段：http://www.accessoft.com/article-show.asp?id=8305

Top

MDZZ 发表于：2017-03-15 08:26:12

CurrentDb.Execute "ALTER TABLE 表名称 ALTER COLUMN 字段名称 Char"

Top

红尘如烟发表于：2017-03-15 10:09:58

循环所有字段，执行DDL SQL语句：

    Dim dbs: Set dbs = CurrentDb
    Dim tdf: Set tdf = dbs.TableDefs("Table1")
    Dim fld
    For Each fld In tdf.Fields
        dbs.Execute "ALTER TABLE Table1 ALTER COLUMN " & fld.Name & " TEXT"
    Next

Top

20090930 发表于：2017-03-15 12:07:40

多谢红尘如烟！

Top

20090930 发表于：2017-03-15 12:23:11

显示类型不匹配啊

Set dbs = CurrentDb

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

求：将全部字段数据类型改为文本类型的代码