请大家帮忙分析,解释一下这段代码
各位高手:
你们好!
我现在想实现用代码直接创建数据库.但是如果把这些代码全部写到VB中.我怕以后不方便修改及更新.所以考虑是否要用VB调入一个文件.然后对文件进行数据的调用及运行.来达到创建数据库结构的目的.
但是如果我把创建代码放到一个文本文件中.有很多的问题.比如读写的问题,等等..
这里想问一下高手们!希望可以提一些意见.
1.如果要实现我这样的功能.需要怎么实现.
2.从外文件调用是否可行.又该怎样调用.
最好.可以有相关例子.谢谢!!!!急!
以下是在VB里面加载的代码!但是我觉得如果要按照这样写的话!实在太麻烦!而且比较累!
==========================================================================
'定义表与字段
Dim DefDatabase As Database
Dim DefTable As TableDef, DefField As Field
'打开 VB-CODE.MDB 数据库
Set DefDatabase = Workspaces(0).OpenDatabase(App.Path & "\VB-CODE.MDB", 0, False)
'创建名为中国的数据表
Set DefTable = DefDatabase.CreateTableDef("中国")
'创建NAME的字段
Set DefField = DefTable.CreateField("Name", dbText, 8)
DefTable.Fields.Append DefField
'结束数据表的创建
DefDatabase.TableDefs.Append DefTable
Set DefDatabase.close
set DefDatabase = nothing