|
Private Sub 压缩_Click()
' 在模块的声明节中包含以下语句。
Dim appAccess As Access.Application
Dim app As Access.Application
Dim dbs As Object, tdf As Object, fld As Variant
Dim strDB As String
Const DB_Text As Long = 10
Const FldLen As Integer = 40
' 将字符串初始花为“数据库路径”。
strDB = "C:\My Documents\Newdb.mdb"
' 创建新的 Microsoft Access 实例。
Set app = CurrentProject.Application
Set appAccess = _
CreateObject("Access.Application.9")
' 在 Microsoft Access 窗口中打开数据库。
If Dir("C:\My Documents\Newdb.mdb") <> "" Then
Kill "C:\My Documents\Newdb.mdb"
End If
appAccess.NewCurrentDatabase strDB
' 获取数据库对象变量。
Set dbs = appAccess.CurrentDb
' 创建新表。
Set tdf = dbs.CreateTableDef("Contacts")
' 创建表中的字段。
Set fld = tdf. _
CreateField("CompanyName", DB_Text, FldLen)
' 追加字段和 TableDef 对象。
tdf.Fields.Append fld
dbs.TableDefs.Append tdf
appAccess.Visible = True
app.Quit
' Set appAccess = Nothing
End Sub
|
|