可以使用ado的Execute 方法,语法如下
ALTER TABLE table 
{ [ ALTER COLUMN column_name 
    { new_data_type [ ( precision [ , scale ] ) ] 
        [ COLLATE < collation_name > ] 
        [ NULL | NOT NULL ] 
        | {ADD | DROP } ROWGUIDCOL } 
    ] 
    | ADD 
        { [ < column_definition > ] 
        |  column_name AS computed_column_expression 
        } [ ,...n ] 
    | [ WITH CHECK | WITH NOCHECK ] ADD 
        { < table_constraint > } [ ,...n ] 
    | DROP 
        { [ CONSTRAINT ] constraint_name 
            | COLUMN column } [ ,...n ] 
    | { CHECK | NOCHECK } CONSTRAINT 
        { ALL | constraint_name [ ,...n ] } 
    | { ENABLE | DISABLE } TRIGGER 
        { ALL | trigger_name [ ,...n ] } 
}注意要看是什么数据源,不同的数据源语法也不同,上面的是MS SQL SERVER的语法

解决方案 »

  1.   

    MSDN里面查ADO啊~完整的参考~不会用MSDN怎么做程序员啊?
      

  2.   

    ACCESS数据库,在表中增加字段
    ALTER TABLE 数据表名称 ADD 字段名称 数据类型
    其中自动编号 数据类型为 COUNTER
    例子
    Dim cnn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim strsql As StringPrivate Sub Command1_Click()
      cmd.Execute
    End SubPrivate Sub Form_Load()
      Set cnn = New ADODB.Connection
      cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db.mdb"
      Set cmd = New ADODB.Command
      cmd.ActiveConnection = cnn
      cmd.CommandText = "ALTER TABLE table1 ADD ID Counter"
    End Sub