添加表的问题!
我在VB中写了一段程序想在一个ACCESS数据库中新添加一张表,程序执行没有任何错误,但是就是没有新表产生,为什么?
源码如下:
Dim Mydb As Database
Dim Mytable As TableDef
set mydb=OpenDabase(App.Path & "\guangda",,false,"")
Set Mytable = Mydb.CreateTableDef("FZ")
Mytable.CreateField("FZQDM", dbText, 50)
Mytable.CreateField("FCJSS", dbText, 50)