解决了有程序链接指定程序，新问题，有没办法只链接表格中指定的字段？

cscn

用下述的脚本链接到了指定的表格，但有个表格有个字段格式ACCESS提示出错没办法成功链接，有没办法只链接指定表格中的指定某些字段？

Public Sub 创建_Click()

    Dim cnn As String
    Dim dbs As Object    'Database
    Dim tdf As Object    'DAO.TableDef
    Dim str_DSN As String, str_DBQ As String, str_UID As String, str_PWD As String, str_odbc As String
    Set dbs = CurrentDb
    '下面是ODBC连接SQL字符串
    strConnect = "ODBC;DRIVER=SQL Server" & _
                  ";SERVER=10.209.146.2" & _
                 ";DATABASE=wsidg" & _
                 ";UID=wdry" & _
                 ";PWD=wdry@2013"
                 
    Set tdf = dbs.CreateTableDef("PM_PRE_REGION_TD_DAY")  '创建链接表,命名为tblcode_kh_b
    tdf.Connect = strConnect
    tdf.SourceTableName = "PM_PRE_REGION_TD_DAY"    'SQL源表
    dbs.TableDefs.Append tdf
    Set dbs = Nothing
    Set tdf = Nothing
    Application.RefreshDatabaseWindow  '刷新
    MsgBox "创建成功，请查看表"
End Sub

潇洒帅

这个非常简单，使用SQL语句指定需要提取的字段即可

潇洒帅

这个非常简单，使用SQL语句指定需要提取的字段即可