关于建库!

[xuewei]

我想动态的创建数据库,如何才能在程序中创建数据库?而不是创建表!谢谢

[tipstudio_zsp]

可以

[xfflean]

如果是想建立Access数据库,用Dao.
例:dim datbas as database,tabbas as tabeldef,filbas as filed,indbas as index
set datbas=dbengine.workspaces(0).createdatabase("路径")
set tabbas=datbas.createtabledef("Name")
datbas.tabledefs.append tabbas
'filbas indbas如上.

[pscj]

试试这个
Dim MyTable As TableDef, MyField As Field
Dim MyDatabase As Database
Set MyDatabase = CreateDatabase("c:\Demo.mdb", dbLangGeneral)

'开始建表
Set MyTable = MyDatabase.CreateTableDef("Article")

Set MyField = MyTable.CreateField("ID", dbAutoIncrField)
MyTable.Fields.Append MyField

Set MyField = MyTable.CreateField("Title", dbText, 255)
MyTable.Fields.Append MyField

Set MyField = MyTable.CreateField("Date", dbDate)
MyTable.Fields.Append MyField

Set MyField = MyTable.CreateField("Content", dbMemo)
MyTable.Fields.Append MyField

Set MyField = MyTable.CreateField("OriginalPlace", dbText, 255)
MyTable.Fields.Append MyField

Set MyField = MyTable.CreateField("Comment", dbMemo)
MyTable.Fields.Append MyField

Set MyField = MyTable.CreateField("IsChildren", dbBoolean)
MyTable.Fields.Append MyField

Set MyField = MyTable.CreateField("ParentID", dbLong)
MyTable.Fields.Append MyField
MyDatabase.TableDefs.Append MyTable

[xuewei]

谢谢大家的回复!

[tipstudio_zsp]

Option Explicit

Private adoCat As ADOX.Catalog


'-----方法：创建数据库-----
Public Sub CreateMDB()
On Error GoTo Errproc
Set adoCat = New ADOX.Catalog
If Right$(strMdbPath, 1) = "\" Then
strMdbPath = Left$(strMdbPath, Len(strMdbPath) - 1)
End If

'-----Create Database-----
adoCat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & strMdbPath & ";" _
& "Jet OLEDB:Database Password=" & strMdbPwd & ";" _
& "Jet OLEDB:Engine Type=" & enumMDBVer & ";"

'-----Create Tables、Indexes、Keys-----
Call CreateTables
Call CreateIndexes

Set adoCat = Nothing

Exit Sub
Errproc:
MsgBox Err.Number & " / " & Err.Description, vbCritical, "提示信息"
Exit Sub
Resume
End Sub

[tipstudio_zsp]

引用中选择Microsoft ADO Ext. 2.X for DDL and Security

[xuewei]

能不能用Microsoft Activex Data Object 2.0 library?
谢谢!!