Question

我有一个Access数据库，我正在使用pass through查询来返回AS400表中的记录。连接字符串和传递查询工作正常，但现在我正在尝试将p-t查询的结果填充到db中的本地表中，并且我的代码超时。这是我第一次尝试ADO，所以我放弃了我的代码“我不是100％肯定我在做什么！”。你能看看这个，看看有什么明显的东西我做错了吗？任何方向将不胜感激。提前谢谢。

    Sub mod_ADODBConnect()
      Const NewTableName = "MyNewTable"
      Dim cn As ADODB.Connection
      Dim rs As ADODB.Recordset
      Dim db As DAO.Database
      Dim sSQL1 As String
      Dim sSQL2 As String

      sSQL1 = "SELECT ITMNUM, ITMDS, ITPKDS, MJCMCD, SBCMCD, STATUS, PRITIN, OGEXDT         from PDBLLIB007.BLPMST07"
      sSQL2 = "INSERT INTO ' & NewTableName & ' SELECT [" & sSQL1 & "].* from [" & sSQL1 & "]"

      Set cn = New ADODB.Connection
      cn.Open "Driver={Client Access ODBC Driver (32-bit)};" & _
        "System=DC007; Uid=XXXXX; Pwd=XXXXXX; MgDSN=0; ConnType=2;" & _
        "BlockSize=512; MaxFieldLen=2048; LazyClose=1; Prefetch=1; QueryTimeOut=0;     Translate=1"

     Set rs = New ADODB.Recordset
     rs.Open sSQL1, cn, adOpenDynamic, adLockOptimistic

     Do While Not rs.EOF
        rs.MoveNext
     Loop

   Set db = CurrentDb
   db.Execute ("sSQL2")

   rs.Close
   cn.Close

   Set rs = Nothing
   Set cn = Nothing
   Set db = Nothing
   End Sub

Answer 1

您有一个传递查询，可以正常工作并返回您想要的行。现在，您希望将这些行存储在新的本地（Jet / ACE）表中。在我看来，一种更简单的方法是在新的“ make table ”查询中使用传递作为数据源。

SELECT * INTO MyNewTable FROM YourPassThruQuery;

糟糕，看起来您打算将这些行附加到现有表中。

INSERT INTO MyNewTable
SELECT * FROM YourPassThruQuery;

如果表结构不匹配，则可以为两个表使用字段列表。

INSERT INTO MyNewTable (fld1, fld2)
SELECT first_field, second_field FROM YourPassThruQuery;

将记录从直通查询附加到本地表

1 个答案: