如何用vb创建Access数据库

Question

以前在网上看到过
也收集了不知道那去了找不知道了？
现在我想把sql server 的数据库的数据和表都取出来然后再 创建 access数据库然后再创建表 
要在VB中创建
请指教

Answer 1

可以用DAO呀！
Dim db As Database  
Dim td As TableDef  '表
Dim fld As Field    ‘单元
Set db = DBEngine(0).CreateDatabase(FileNames, dbLangChineseTraditional)
Set td = db.CreateTableDef("TableName")
Set fld = td.CreateField("FieldName", FieldType)
td.Fields.Append fld
db.TableDefs.Append td
set fld=Nothing
set td=Nothing
set db=Nothing

Answer 2

用ADO：dim cn as new adodb.connection
cn.open "provider=..."cn.execute "create ........"

Answer 3

如你的系是Win2K+Office2000, 和DAO是不行的，
最好是用ADO。

Answer 4

可以呀！
我的程序就是W2K+O2000呀！只是不能调EXCEL，不过加上EXCEL的类就可以了实现了

Answer 5

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=179417

Answer 6

Dim Wrk As Workspace
    Set Wrk = DBEngine.Workspaces(0)
    Set dbs = Wrk.CreateDatabase(App.Path & "\" & DatabaseName & TableName & "Outputtemp.mdb", dbLangChineseSimplified)
    Set tdfNew = dbs.CreateTableDef(TableName)    tdfNew.Fields.Append tdfNew.CreateField(Col1, dbText)
    tdfNew.Fields.Append tdfNew.CreateField(Col2, dbText)
    tdfNew.Fields.Append tdfNew.CreateField(Col3, dbText)
    tdfNew.Fields.Append tdfNew.CreateField(Col4, dbText)
    dbs.TableDefs.Append tdfNew