Office中国论坛/Access中国论坛

标题: 问题没有解决。如何简化SQL中的表和ACCESS中的表的导入？ [打印本页]

作者: sbsfhgl 时间: 2007-12-5 15:48
标题: 问题没有解决。如何简化SQL中的表和ACCESS中的表的导入？
Private Sub CmdLink_Click()
DoCmd.TransferDatabase acLink, "ODBC", _
"ODBC;DSN=h;UID=li

WD=123;LANGUAGE=us_chinese;" _
& "DATABASE=大利", acTable, "dbo.old产量汇总", "old产量汇总", True

DoCmd.TransferDatabase acLink, "ODBC", _
"ODBC;DSN=h;UID=li

WD=123;LANGUAGE=us_chinese;" _
& "DATABASE=大利", acTable, "dbo.old工资", "old工资", True

。。。。。。。。。。。。。。

'第一个""为要链接SQL中的表名，第二个""为链接到ACC的表名
End Sub

请问有谁能把我SQL里的表全部导入到ACCESS中，我要一个一个表的编写代码，
能不能用一个代码全部导入进去，并把SQL中的表前缀“DBO”去掉，急！
请各位支支招

不好，麻烦又来了，你只能针对导入的表，但如何做到将所有表全部导入呢？
给个代码嘛。。。。。

再问个问题，在SQL数据库中如何将MDF格式导入数据到企业管理器中，我怎么试都不得行

[ 本帖最后由 sbsfhgl 于 2007-12-6 08:25 编辑 ]

作者: Grant 时间: 2007-12-5 16:10
批量去除通过ODBC连接到SQL Server链接表名前的"DBO_"
通过ODBC连接到SQL Server后,每个连接表都自己加上了“DBO_”，这样使用起来很麻烦，可以通过调用下面的 RenameLinkTableName 过程来进行批量去除之。

' 用途: 批量去除通过ODBC连接到SQL Server链接表名前的"DBO_"
' 要求引用 Microsoft DAO 3.60 Object Library
' 作者: 朱亦文
Public Sub RenameLinkTableName()
Dim dbs As Database
Dim tdf As TableDef
Dim strNewName As String
Dim strName As String

Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
      strName = tdf.Name
      If Ucase(Left(strName, 3)) = "DBO" Then
         strNewName = Right(strName, Len(strName) - 4)
         tdf.Name = strNewName
         tdf.RefreshLink
      End If
Next
End Sub

表名也可以获得了

作者: sbsfhgl 时间: 2007-12-5 16:21
帅哥，谢谢，你太有型了

作者: sbsfhgl 时间: 2007-12-5 17:57
不好，麻烦又来了，你只能针对导入的表，但如何做到将所有表全部导入呢？
给个代码嘛。。。。。

再问个问题，在SQL数据库中如何将MDF格式导入数据到企业管理器中，我怎么试都不得行

[ 本帖最后由 sbsfhgl 于 2007-12-5 17:58 编辑 ]

作者: sbsfhgl 时间: 2007-12-6 08:24
。。。。。。。。。。。。。。。。。。。顶一下

作者: wwwwa 时间: 2007-12-6 09:18
思路：
用ADOX OR ADO的adSchemaTables 取得所有的TABLE，再用
SELECT * INTO aa IN odbc[odbc;dsn=er]
FROM temp IN ODBC[ODBC;Driver=SQL Server;UID=sa

WD=123;Server=temp;DataBase=tt];
导入数据

作者: sbsfhgl 时间: 2007-12-6 10:55
能不能给个完事的代码呀

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)