3、程序原码

　　采用微软DAO (Data Access Object) 数据模型, 打开Access 本地数据库, 并连接一个外部ODBC数据表, 拷贝该表结构完成, 有以下过程块CopyStru :

Private Sub copyStru () 　Set dbsTemp = wrkjet. OpenDatabase (tagFilName)// 链接表的过程 　For i = 0 To tabN - 1 　　Set tdfLinked = dbsTemp. CreateTableDef (“linkTab”) 　　tdfLinked. Connect = “OdbC; DATABASE = xgsbgsys ; UID = 　　sa ; PWD = ; DSN = xgsdb ;” 　　tdfLinked. SourceTableName = tabName (i) 　　dbsTemp. TableDefs. Append tdfLinked 　　Set temp Tab = dbsTemp. CreateTableDef () 　　temp Tab. Name = tabName (i) 　　//创建新表的过程 　　For Each fld In tdfLinked. Fields 　　　Set newFil = temp Tab. CreateField (fld. Name , fld. Type ,fld. Size) 　　　newFil. OrdinalPosition = fld. OrdinalPosition 　　　newFil. Required = fld. Required 　　　temp Tab. Fields. Append newFil 　　Next 　　//创建索引 　　For Each idx In tdfLinked. Indexes 　　　Set newIdx = temp Tab. CreateIndex () 　　　With newIdx 　　　　Name = tabName (i) & ” x” 　　　　Fields = idx. Fields 　　　　Unique = idx. Unique 　　　　Primary = idx. Primary 　　　End With 　　　temp Tab. Indexes. Append newIdx 　　Next 　　dbsTemp. TableDefs. Append temp Tab 　　Set temp Tab = Nothing 　　dbsTemp. TableDefs. Delete ”linkTab” 　Next i 　dbsTemp. Close 　Set dbsTemp = Nothing 　wrkjet. Close 　Set wrkjet = Nothing End Sub End Sub

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页