Office中国论坛/Access中国论坛

标题: [求助]如何用DAO或ADO增加栏位 [打印本页]

作者: mandyliu912 时间: 2006-4-1 02:07
标题: [求助]如何用DAO或ADO增加栏位
两个问题

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

结构如下

姓名    ：文字

编号    ：数字

生日    ：日期

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

Setp2:

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

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

作者: fan0217 时间: 2006-4-1 02:37
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 时间: 2006-4-1 02:43
需要引用 ADO Ext.2.8,否则要出现错误.

参考:Append 方法(ADO)

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)