一百分问题

Question

1.删除数据库就是删除文件,关闭所以有连接,直接把文件kill就可以.
  增加有两种方法,copy一个MDB文件,或者用对象创建.
2.cn.execute " create table .."
  cn.execute " drop table .."
3.修改字段要查一下资料了.
  cn.execute " alter table .."

Answer 1

不知道你用什么数据连接，我这里只说DAO
（ADO好像没有DDL查询）
引用DAO3.51(ver3.6 如果创建Access2000数据库)
1、Create Database
dim dbnew as database
dim dbname as string
dbstring="C:\a\a.mdb"  
Set dbnew = DBEngine.CreateDatabase(dbname, dbLangGeneral)
2、Drop DataBase
把文件KIll了就行了，不过KILL之前，要关闭说有的数据连接
3、创建表
1)执行SQL语句
DB.execute("Create table ... ")
DAO的方法：
 Dim f As Field
 Dim td As TableDef
    Set td = New TableDef
   Set f = td.CreateField("ID", dbLong)
   f.Required = True
   td.Fields.Append f
   Set f = td.CreateField("NAME", dbText,10)
   f.Required = True
   td.Fields.Append f
   ...
   td.Name = "tblZC"
   dbnew.TableDefs.Append td
3、Drop table 
   DBnew.execute("drop table tablename")
   dbnew.tabledef("tablename").Delete (没试过,我只用SQL语句去DRop)
4、   dbnew.excute("alter table ADD COLUMN fieldname integer")    
 dbnew.excute("alter table Drop COLUMN fieldname")    
或
dim f as Field
Set f = td.CreateField("NAME", dbText,10)
f.Required = True
dbnew.tabledef("tablename").fields.append f 
dbnew.tabledef("tablename").fields("FieldName").Delete (但是我不知道如何修改一个字段的类型，如它Char(10)改为MENO,反正DAO中SQL和对象的方法都好象行不通)ADOX (自己去查，ADOX专门作DDL查询的)，只创建
ADOX创建Access 2000数据库，如下：
'引用Microsoft ADO Ext. 2.7 for DDL and Security
Dim oCatalog As New ADOX.Catalog
oCatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\tempA.MDB"