VB关于在ACCESS中添加表和字段的问题？麻烦指点~~~

Question

现有一个ACCESS数据库和一个TEXT文本数据，我用程序将文本数据导入到了ACCESS数据库中，我想问一下怎样用VB代码实现在ACCESS数据中添加表和字段，也就是在窗口界面上加一文本框和按钮，想加什么表和字段可以通过在执行程序上添加。谢谢指教！

Answer 1

一个DAO的例子
Set JKBase = g_wspHDSpace.CreateDatabase(BaseName, dbLangGeneral)
        
        Set NewTable = JKBase.CreateTableDef("JianKong")
        
        Set FD = NewTable.CreateField("Number", dbLong)
        NewTable.Fields.Append FD
        Set FD = NewTable.CreateField("Calling", dbText, 20)
        FD.AllowZeroLength = True
        NewTable.Fields.Append FD
        Set FD = NewTable.CreateField("Unit", dbText, 20)
        FD.AllowZeroLength = True
        NewTable.Fields.Append FD
        Set FD = NewTable.CreateField("Called", dbText, 20)
        FD.AllowZeroLength = True
        NewTable.Fields.Append FD
        
        JKBase.TableDefs.Append NewTable

Answer 2

创建新表可以用 SQL 语句:
cn.Execute "CREATE TABLE tablename(fieldname1 fieldtype, fieldname2 fieldtype)"

Answer 3

在我的Blog中有详细到解释
http://blog.sina.com.cn/u/1251655220
如有问题，请留言

Answer 4

在我的Blog中有详细的解答
http://blog.sina.com.cn/u/1251655220
如有问题请留言，一定在第一时间回复！