只用data控件如何添加一个新的表、字段...？？？！！！教教我!

Question

1.添加新表
Private Function creatscore()Dim vbdb As Database
Dim vbws As Workspace
Dim nametd As TableDef
datafilename = Form10.Text1.Text  ’从文本框中读取数据库文件名称
datafilename = datafilename  + ".mdb"
Set vbws = DBEngine.Workspaces(0)
Set vbdb = vbws.CreateDatabase(App.path + "\" + datafilename, dbLangChineseTraditional, dbVersion30)
Set vbdb = OpenDatabase(App.path + "\" + datafilename)
Set nametd = vbdb.CreateTableDef("学期")  ‘学期为新表名称
vbdb.Close2，添加字段
Private Function creat()
Dim testdb As Database
Dim testtd As TableDefDim testfield1 As field
Dim testfield2 As field
Dim testfield3 As field
Dim testfield4 As field
Dim testfield5 As field
Dim testfield6 As field
Dim testfield7 As field
Dim testfield8 As field
Dim testfield9 As field
Dim testfield10 As field
Set testdb = OpenDatabase(path)
Set testtd = testdb.CreateTableDef(Form1.Text1.Text)  ’读取要添加字段的表名
Set testfield1 = testtd.CreateField("name", dbText)  ‘第一个字段
Set testfield2 = testtd.CreateField("sex", dbText)    ’第二个字段，依次类推
testtd.Fields.Append testfield1
testtd.Fields.Append testfield2
testdb.TableDefs.Append testtd
所用数据库为access2000,希望以上对你有帮助

Answer 1

添加新字段应该是2，添加字段
Private Function creat()
Dim testdb As Database
Dim testtd As TableDefDim testfield1 As field
Dim testfield2 As field
Set testdb = OpenDatabase(path)
Set testtd = testdb.CreateTableDef(Form1.Text1.Text)  ’读取要添加字段的表名
Set testfield1 = testtd.CreateField("name", dbText)  ‘第一个字段
Set testfield2 = testtd.CreateField("sex", dbText)    ’第二个字段，依次类推
testtd.Fields.Append testfield1
testtd.Fields.Append testfield2
testdb.TableDefs.Append testtd

Answer 2

Dim testdb As Database
Dim testtd As TableDef好像就要引用DAO吧！

Answer 3

你的QQ号
我的QQ是24037595

Answer 4

能不能不用引用DAO
只用DATA控件

Answer 5

我只想用内部DATA控件
嘻嘻
谁能帮我呀！

Answer 6

DAO,ADO比data好，为什么不用？

Answer 7

数据库没那么大
不需要DAO、ADO等
太复杂
外部资源占用太多

Answer 8

这样啊，我还是觉得比data好，：-）
关注其他人的观点