高手进：我想用VBA创建一个空的MDB库文件，怎么做呀？

Question

当然是引用DAO对象，然后创建喽

Answer 1

holydiablo(鱼头) :能说的详细些嘛？

Answer 2

应用 M SQL DMO Object Library '创建数据库
Public Function CreateDataBase() As Boolean
    
On Error GoTo ErrorLine
    
    Dim objSQLServer2 As New SQLDMO.SQLServer2
    Dim objDatabase As New SQLDMO.Database
    Dim objDBFile As SQLDMO.DBfile
    Dim objDBOption As SQLDMO.DBOption2
    Dim objLogFile As SQLDMO.LogFile
    
    Set objDBFile = New SQLDMO.DBfile
    Set objLogFile = New SQLDMO.LogFile
    
    objSQLServer2.Connect mvarDataBaseName, mvarDataUID, mvarDataPassWord
    
    If mvarblnDelDataBase = True Then
        objSQLServer2.Databases.Remove mvarRestoreDataName
    End If
    
    objDatabase.Name = mvarRestoreDataName
    
    
    '设置数据文件的属性
    objDBFile.Name = mvarRestoreDataName & "_Mdf"
    objDBFile.PhysicalName = mvarDataFilePath & "\" & objDBFile.Name    '数据文件具体物理路径
    objDBFile.PrimaryFile = True
    objDBFile.Size = mvarDataInitSize '设置数据文件的初始化大小
    
    '判断数据文件的增长类型
    If mvarRestoreDataGrowpType = 1 Then
        objDBFile.FileGrowthType = SQLDMOGrowth_MB '按兆字节增长
        objDBFile.FileGrowth = mvarDataAddOfM
    Else
        objDBFile.FileGrowthType = SQLDMOGrowth_Percent '按百分比增长
        objDBFile.FileGrowth = mvarDataAddOfPercent
    End If
    
    objDatabase.FileGroups("PRIMARY").DBFiles.Add objDBFile
    
     '设置事务日志文件的属性
    objLogFile.Name = mvarRestoreDataName & "_Ldf"
    objLogFile.PhysicalName = mvarLogFilePath & "\" & objLogFile.Name
    objLogFile.Size = mvarLogFileInitSize
    
    If mvarRestoreLogGrowpType = 1 Then
        objLogFile.FileGrowthType = SQLDMOGrowth_MB '按兆字节增长
        objLogFile.FileGrowth = mvarLogFileAddOfM
    Else
        objLogFile.FileGrowthType = SQLDMOGrowth_Percent '按百分比增长
        objLogFile.FileGrowth = mvarLogFileAddOfPercent
    End If
    
    objDatabase.TransactionLog.LogFiles.Add objLogFile
    
    '创建数据库
    objSQLServer2.Databases.Add objDatabase
    Set objDBOption = objDatabase.DBOption
    objDBOption.RecoveryModel = SQLDMORECOVERY_Full
    CreateDataBase = True
    
    Set objSQLServer2 = Nothing
    Set objDatabase = Nothing
    Exit Function
    
ErrorLine:
    CreateDataBase = False
    Err.Raise Err.Number, Err.Source
End Function

Answer 3

dim db as dao.workspec
db.createdatabase

Answer 4

引用DAO，用下面的方法创建
Dim DB As Database
Set DB = CreateDatabase("1.mdb", dbLangChineseSimplified , dbVersion30)
其中1.mdb可设置成任可文件名，也可包含路径。
dbLangChineseSimplified为设置成简体中文，如果加密码则设置为dbLangChineseSimplified & ";pwd=密码"。dbVersion30是设置数据库的版本，如果引用的是DAO3.6可设置成dbVersion40，即ACCESS2000的格式。dbVersion30是ACCESS97的格式。
欢迎到小站来看看
http://lihuasoft.go163.net