[求助]如何用DAO或ADO增加栏位

mandyliu912

两个问题

例如，要在当前数据库建立一个名称叫“表1”的Table

结构如下

姓名      ：文字

编号      ：数字

生日      ：日期

Createtabledef("表1“）应该如何建立

Setp2:

现在要增加一个栏位（性别，文字）

请问用ADO或DOA如何在已经做好的表上修改

fan0217

ADO来自系统帮助)

下面的代码演示如何创建新的表。' BeginCreateTableVB
Sub Main()
    On Error GoTo CreateTableError
   
    Dim tbl As New Table
    Dim cat As New ADOX.Catalog
   
    ' Open the Catalog.
    cat.ActiveConnection = "rovider='Microsoft.Jet.OLEDB.4.0';" & _
        "Data Source='c:\Program Files\Microsoft Office\" & _
        "Office\Samples\Northwind.mdb';"
   
    tbl.Name = "MyTable"
    tbl.Columns.Append "Column1", adInteger
    tbl.Columns.Append "Column2", adInteger
    tbl.Columns.Append "Column3", adVarWChar, 50
    cat.Tables.Append tbl
    Debug.Print "Table 'MyTable' is added."
   
    'Delete the table as this is a demonstration.
    cat.Tables.Delete tbl.Name
    Debug.Print "Table 'MyTable' is deleted."
   
    'Clean up
    Set cat.ActiveConnection = Nothing
    Set cat = Nothing
    Set tbl = Nothing
    Exit Sub
   
CreateTableError:

    Set cat = Nothing
    Set tbl = Nothing

    If Err <> 0 Then
        MsgBox Err.Source & "-->" & Err.Description, , "Error"
    End If
End Sub
' EndCreateTableVB

[此贴子已经被作者于2006-3-31 18:44:02编辑过]

fan0217

需要引用 ADO Ext.2.8,否则要出现错误.

参考:Append 方法(ADO)

[此贴子已经被作者于2006-3-31 18:49:48编辑过]