请问 如何把一个DAO数据集（recordset）一次性写入一个数据表中而不是逐条写入。

zrj898

请问 如何把一个DAO数据集（recordset）一次性写入一个数据表中而不是逐条写入。
逐条写入的效率太低了，希望能得到结果。recordset的字段数是大于数据表的，而数据表的字段被recordset包含。

roych

把记录集中的SQL语句处理成查询，然后追加。
http://www.office-cn.net/thread-114632-1-1.html
第8楼。

ycxchen

有点不明楼主的意思，一次向另一表输入数据前的原表的数据不是要逐条写入吗？

zrj898

Private Sub µ±Ç°Íø¸ñ×ø±êÕûÀíºóдÈ뵱ǰÍø¸ñ×ø±ê±í2()
    Dim Sxjl() As ReXYH
    Dim TempX, TempY, TempH As Double
    Dim TempID As Long
    Dim TempS As String
    Dim i, ii As Long
        'On Error Resume Next
        Set Rst01 = Me.²âÁ¿³É¹û±í_×Ó´°Ìå.Form.RecordsetClone
        Rst01.MoveFirst
        For i = 0 To Rst01.RecordCount - 1
            TempID = Rst01.Fields("ID").Value
            TempS = Rst01.Fields("µãºÅ").Value
            TempX = Rst01.Fields("±±×ø±ê").Value
            TempY = Rst01.Fields("¶«×ø±ê").Value
            TempH = Rst01.Fields("¸ß³Ì").Value
            If InStr(Format(TempY, "0.000"), ".") = 9 Then
                TempY = TempY - TYdh01 * 1000000
                Rst01.Edit
                Rst01.Fields("¶«×ø±ê").Value = Rst01.Fields("¶«×ø±ê").Value - TYdh01 * 1000000
            End If
                Sql = "insert into ת»»Ç°Íø¸ñ×ø±êÁÙʱ±í (Êý¾ÝID,ÏîÄ¿ID,µãºÅ,±±×ø±ê,¶«×ø±ê,¸ß³Ì) values " _
                    & "(" & str(TempID) & "," & str(XmID) & ",'" & TempS & "'," & Format(TempX, "0.0000") _
                    & "," & Format(TempY, "0.0000") & "," & Format(TempH, "0.000") & ")"
                DoCmd.RunSQL Sql
            Rst01.MoveNext
        Next i
        ²âÁ¿³É¹û±í_×Ó´°Ìå.Requery
End Sub
有乱码没办法 看懂我的意思了吗？

layaman_999

recordset来源于表，就用runsql
否则还是逐条写入吧

t小宝

记录集（recordset）不能一次性写入一个数据库表，想别的办法吧。