access 链接sqlserver

问题来源：从ODBC导入数据到ACCESS

再从ACCESS导入到SQL数据库，ACCESS会多带个DBO。

所以需要批量修改ACCESS的表名。

 

首先需要引用ADOX
引用方法：
打开ACCESS的VBE窗口
引用ADOX—— 菜单"工具"-> "引用 "--> 勾选Microsoft   ADO   Ext.2.7   for   DDL   ado   Security 或更高版本，点击确定按钮

 

新建一个模块。

 

Sub aa()

Dim MyDB As New ADOX.Catalog    

Dim Obj As ADOX.Table    

MyDB.ActiveConnection = CurrentProject.Connection    

For Each Obj In MyDB.Tables        

If Obj.Name Like "dbo_*" Then        

Obj.Name = Mid(Obj.Name, 4)    

End If    

Next Obj

End Sub

问题2：access 升迁SQL server计算字段不能升迁，因此在设计access时不要设计计算字段，

解决：使用update语句对行内数据进行汇总更新到总计字段