VB数据库添加字段

Private Sub Command1_Click()

Dim TabExit As Boolean

TabExit = False

Dim cn As New ADODB.Connection

cn.CursorLocation = adUseClient

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\db1.mdbMode=ReadWritePersist Security Info=FalseJet OLEDB:Database Password=123456"

'cn.Execute "ALTER TABLE 库存表 ADD COLUMN 生产厂家 CHAR(20)"

'cn.Execute "ALTER TABLE 库存表 ADD COLUMN 生产日期 DATETIME"

'cn.Execute "ALTER TABLE 库存表 ADD COLUMN 库存上限 Single"

cn.Execute "ALTER TABLE 库存表 ADD COLUMN ID COUNTER"

cn.Close

Set cn = Nothing

End Sub

时候有需要在oracle数据库中添加多个字段的需求，案例如下：

alter

table

my_workflow

add

(state

varchar2(2)

default

'0'

not

null,name

varchar2(100)

not

null,age

number

default

0

not

null)

上面的语句解释：

表名：my_workflow

添加了3个字段：

字段1：字段名称：state，

数据类型

：varchar2(2)

,默认值'0',不为空(not

null)

字段2：字段名称：name

，数据类型：varchar2(100),不为空(not

null)

字段3：字段名称：age，数据类型number，默认值0，不为空(not

null)

---