如何用代码导入ODBC里面的表？

sbsfhgl

搜索了半天也没有找到“如何用代码导入ODBC里面的表？”
只有去掉表里的dbo,不知道有没有人会这个。
运行代码后，打开ODBC，配置完毕，再运行代码，则将原配置里的表全部导入到ACCESS中

tmtony

以前帮客户做过,原理很简单, 就是搜索ODBC中指定的表,然后逐个导入进来, 我找一下原来的代码,找到贴上来

sbsfhgl

找到没有呀。。。。。。。，

5988143

期待中.......

5988143

附件为ADP联接SQL服务器数据库的例子!
但是没有MDB的例子哈!
烦请站长提供哈!
谢谢!

tmtony

这个是以前在繁体下写的代码, tblupdatetable 是需要导入的sql server链接表(可以自己根据表有否connect属性来自动判断也可以)

    Dim i As Integer
   
    Dim intTblcnt As Integer
   
    Dim rs As ADODB.Recordset
    Dim myTable As TableDef
On Error Resume Next

    Set rs = New ADODB.Recordset
    rs.Open "tblupdatetable", CurrentProject.Connection, adOpenStatic, adLockReadOnly
   
    Do While Not rs.EOF
     If rs("FIsNeedCopy") <> 0 Then
       DoCmd.DeleteObject acTable, rs.Fields("FTableName")
      
       DoCmd.TransferDatabase acImport, "ODBC 戈?畐", _
    "ODBC;DSN=made;UID=madeWD=ttbq;" _
    & "DATABASE=made", acTable, rs.Fields("FTableName"), rs.Fields("FTableName")
     Else
       If Not (CurrentDb.TableDefs(rs.Fields("FTableName")).Attributes = DB_ATTACHEDODBC Or CurrentDb.TableDefs(rs.Fields("FTableName")).Attributes = DB_ATTACHEDODBC + DB_ATTACHSAVEPWD) Then
         CurrentDb.Execute "delete * from " & rs.Fields("FTableName")
       End If
     End If
       rs.MoveNext
    Loop