标题: QUESTION RELATED WITH DAO [打印本页] 作者: sunredday 时间: 2003-7-15 05:50 标题: QUESTION RELATED WITH DAO QUESTION RELATED WITH DAO
Dim dbsTemp As DAO.Database
Dim tbC As DAO.TableDef
Set dbsTemp = OpenDatabase(strdir)
If dbsTemp.TableDefs("21清单文件名称").Name <> "" Then
dbsTemp.TableDefs.Delete "21清单文件名称"
Set tbC = dbsTemp.CreateTableDef("21清单文件名称", dbAutoIncrField, "21清单文件名称", "JetTable;DATABASE=MyPath & Myname ")
dbsTemp.TableDefs.Append tbC