我想用代码增加和删除Access数据表的某一列?有什么好的方法呢?
解决方案 »
- 使用Delphi控制Excel的公式编辑器
- 通过url传递数据,除了shellexecute来执行还有其他办法吗?
- 请教批量缩放JPG图片效率最好的方法
- listview为vsreport时,往它添加数据,怎样同时使垂直滚动条也移到最下面?
- 菜鸟求助(两到课后题不会望帮忙)
- 如何根据INI文件判断哪些文件需要更新呢???
- 怎样才能在程序中得到FastReport中memo控件的Font属性值,并把他的值克隆给一个TBitmap.Canvas.Font
- 在ASP中怎么样使用DELPHI编写的组件里的数据源?
- 各位高人,sql server 7单机版随程序一起发布的问题总结,高分送给!
- 如何找到win 2000 个人server版的密码
- 怎样向远程的计算机发送数据包 验证Window系统的用户和密码
- TLookupComboBox组件的简单问题
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