问题没有解决。如何简化SQL中的表和ACCESS中的表的导入？

sbsfhgl

Private Sub CmdLink_Click()
DoCmd.TransferDatabase acLink, "ODBC", _
    "ODBC;DSN=h;UID=liWD=123;LANGUAGE=us_chinese;" _
    & "DATABASE=大利", acTable, "dbo.old产量汇总", "old产量汇总", True
      
    DoCmd.TransferDatabase acLink, "ODBC", _
    "ODBC;DSN=h;UID=liWD=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

批量去除通过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

帅哥，谢谢，你太有型了

sbsfhgl

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

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

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

sbsfhgl

。。。。。。。。。。。。。。。。。。。顶一下

wwwwa

思路：
用ADOX OR ADO的adSchemaTables 取得所有的TABLE，再用
SELECT * INTO aa IN odbc[odbc;dsn=er]
FROM temp IN ODBC[ODBC;Driver=SQL Server;UID=saWD=123;Server=temp;DataBase=tt];
导入数据

sbsfhgl

能不能给个完事的代码呀