如何批量修改字段类型，请教帮主

mwxlmxy

1、  有一个表”tab’’,有A、B、C三个字段，均为文本型，想用ALTER TABLE语句进行批量修改为数字型字段，如何进行表达式

2、  用ALTER TABLE语句形成的数字型字段，如何控制的小数点后的位数？

请问如何设计。谢谢！

fan0217

ALTER TABLE 语句


修改已用 [url=mkMSITStore:E:\Program%20Files\Common%20Files\Microsoft%20Shared\OFFICE11\2052\jetsql40.chm::/dasqlcreatetable.htm]CREATE TABLE 语句[/url]创建好的表设计。

---

注意 对于非微软数据库， Microsoft Jet 数据库引擎 不支持ALTER TABLE, 或 数据定义语言 (DDL) 语句的使用。而使用 DAO创建方法。

---

语法


ALTER TABLE 表 {ADD ADD{COLUMN 字段类型 [ (字长)] [NOT NULL]    [CONSTRAINT 索引 ] |
    ALTER COLUMN 字段类型 [(字长)] |
    CONSTRAINT 多重字段索引 } |
    DROP DROP{COLUMN 字段 I CONSTRAINT 索引名 } }


ALTER TABLE 语句分为以下几个部分：











部分


说明





table


欲修改的表之名称。





field


欲在表内增加或删除的字段的名称。或表内欲被替换的字段名称。





type


字段的数据类型。





size


字段的字符长度 (文本及二进制字段)。





index


字段索引。欲了解更多有关如何构造本索引的信息，请看 [url=mkMSITStore:E:\Program%20Files\Common%20Files\Microsoft%20Shared\OFFICE11\2052\jetsql40.chm::/dasqlconstraint.htm]CONSTRAINT子句[/url]。





multifieldindex


欲增加至表 中的多重字段索引的定义。欲了解更多有关如何构造本索引的信息，请看 [url=mkMSITStore:E:\Program%20Files\Common%20Files\Microsoft%20Shared\OFFICE11\2052\jetsql40.chm::/dasqlconstraint.htm]CONSTRAINT子句[/url]。





indexname


欲删除的多重字段索引的名称。

fan0217

ALTER TABLE 语句示例

此示例在员工表中增加 Money 数据类型的一个工资字段。

Sub AlterTableX1()



    Dim dbs As Database



    ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' 对运费超过 $100 的订单，



    '添加工资字段至员工表中，

    '并且设置为 Currency 数据类型。

    dbs.Execute "ALTER TABLE Employees " _

        & "ADD COLUMN Salary CURRENCY;"



    dbs.Close



End Sub



此示例把工资字段的数据类型从 Money 改为 Char。

Sub AlterTableX2()



    Dim dbs As Database



    ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' 对运费超过 $100 的订单，



    '添加工资字段至员工表中，

    '并且设置为 Currency 数据类型。

    dbs.Execute "ALTER TABLE Employees " _

        & "ALTER COLUMN Salary CHAR(20);"



    dbs.Close



End Sub



此示例从员工表中删除工资字段。

Sub AlterTableX3()



    Dim dbs As Database



    ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' 对运费超过 $100 的订单，



    '从员工表中删除工资字段。

    dbs.Execute "ALTER TABLE Employees " _

        & "DROP COLUMN Salary;"



    dbs.Close



End Sub



此示例在订单表中增加一个外部键。这个外部键是基于员工编号字段和引用至员工的表中的员工编号字段。在此示例中，不必把 EmployeeID 字段列在 REFERENCES 子句中的 Employees table 后面，因为 EmployeeID 是 Employees table 的主键。

SubSub()



    Dim dbs As Database



    ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' 对运费超过 $100 的订单，



    '在订单表中添加外部键。

    dbs.Execute "ALTER TABLE Orders " _

        & "ADD CONSTRAINT OrdersRelationship " _

        & "FOREIGN KEY (EmployeeID) " _

        & "REFERENCES Employees (EmployeeID);"



    dbs.Close



End Sub



此示例从订单表中删除外部键。

Sub AlterTableX3()



    Dim dbs As Database



    ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' 对运费超过 $100 的订单，



    ' 从订单表中清除OrdersRelationship外部键

    '

    dbs.Execute "ALTER TABLE Orders " _

        & "DROP CONSTRAINT OrdersRelationship;"



    dbs.Close



End Sub

fan0217

以上信息全部来自帮助,其实最好的老师在身边.