ALTER TABLE ステートメントの使用例

次の例では、通貨型 (Money) の Salary フィールドを Employees テーブルに追加します。

Sub AlterTableX1()

    Dim dbs As Database

    ' この下の行を、使用しているコンピュータ上の

    ' Northwind のパスに変更してください。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Salary フィールドを Employees テーブルに

    ' 追加し、データ型を通貨型 (Money) にします。

    dbs.Execute "ALTER TABLE Employees " _

        & "ADD COLUMN Salary MONEY;"

    dbs.Close

End Sub

次の例では、Salary フィールドを通貨型 (Money) から文字型 （Char) に変更します。

Sub AlterTableX2()

    Dim dbs As Database

    ' この下の行を、使用しているコンピュータ上の

    ' Northwind のパスに変更してください。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Salary フィールドを文字型に変更します。

    dbs.Execute "ALTER TABLE Employees " _

        & "ALTER COLUMN Salary CHAR(20);"

    dbs.Close

End Sub

次の例では、Employees テーブルから Salary フィールドを削除します。

Sub AlterTableX3()

    Dim dbs As Database

    ' この下の行を、使用しているコンピュータ上の

    ' Northwind のパスに変更してください。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Salary フィールドを

    ' Employees テーブルから削除します。

    dbs.Execute "ALTER TABLE Employees " _

        & "DROP COLUMN Salary;"

    dbs.Close

End Sub

次の例では、Orders テーブルに外部キーを追加します。この外部キーは EmployeeID フィールドに基づくもので、Employees テーブルの EmployeeID フィールドを参照しています。この例では、EmployeeID フィールドは Employees テーブルの主キーであるため、REFERENCES 句の Employees テーブルの後に記述する EmployeeID フィールドは省略可能です。

Sub AlterTableX4()

    Dim dbs As Database

    ' この下の行を、使用しているコンピュータ上の

    ' Northwind のパスに変更してください。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' 外部キーを Orders テーブルに追加します。

    dbs.Execute "ALTER TABLE Orders " _

        & "ADD CONSTRAINT OrdersRelationship " _

        & "FOREIGN KEY (EmployeeID) " _

        & "REFERENCES Employees (EmployeeID);"

    dbs.Close

End Sub

次の例では、Orders テーブルから外部キーを削除します。

Sub AlterTableX5()

    Dim dbs As Database

    ' この下の行を、使用しているコンピュータ上の

    ' Northwind のパスに変更してください。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Orders テーブルから外部キー OrdersRelationship を

    ' 削除します。

    dbs.Execute "ALTER TABLE Orders " _

        & "DROP CONSTRAINT OrdersRelationship;"

    dbs.Close

End Sub