[讨论] 如何把用户选择的记录导出

hunrybecky

[讨论] 如何把用户选择的记录导出一般而言，都是通过复制然后打开EXCEL粘贴即可。但是这个方法要打开其他对象如EXCEL等才能实现，而且操作比较麻烦，有一定局限性，如果直接使用DOCMD.OutputTo则不能把用户选择的记录进行输出，而只能对整个表等进行输出。为此提出这个讨论具有必要行。
我的想法是，既然DOCMD.OutputTo只能输出表，所以就可以把选择的记录保存到临时表中再导出就可以解决问题。但是再使用中我遇到了问题，希望高手们一起来讨论这个问题

With Me.subMC.Form '子表单subMC
    Dim intStartR As Integer '定义用户选择的开始记录号
    Dim intEndR As Integer '定义用户选择的结束记录号
    Dim intRows As Integer '定义用户选择的行数
    'Dim i As Integer
    'Dim strSQL As String
    If .SelHeight > 0 Then
        intStartR = .CurrentRecord
        intEndR = .SelTop + .SelHeight
        intRows = intEndR - intStartR '获取用户选择的记录,注意的是用户必须从上而下选择记录,而不能从下而上选择记录
        'strSQL = "SELECT * INTO tmpTemp FROM whMC2 WHERE MCNo='" & .MCNo & "' AND Item='" & .Item & "'"
        'If intEndR - intStartR >= 1 Then
        '    For i = (intStartR + 1) To intEndR
        '        strSql1 = "再把其他记录追加到表"
        '    Next i
        'End If
        Dim rst As ADODB.Recordset '定义当前记录集
        Set rst = .RecordsetClone
        Dim intFieldCount As Integer '定义并获取当前记录集的字段数量
        intFieldCount = rst.Fields.Count
        Dim arrGetR As Variant, x As Integer, y As Integer '定义记录集数组,上标和下标
        arrGetR = rst.GetRows(intRows, .Bookmark) '获取记录集的指定行数
        '=================================================================循环输出记录
        For x = 0 To intRows - 1 '
            For y = 0 To intFieldCount - 1
                Debug.Print arrGetR(y, x) & ";";
            Next y
        Debug.Print vbCrLf
        Next x
        '=================================================================循环输出记录
    End If
    'DoCmd.RunSQL strSQL
    'DoCmd.OutputTo acOutputTable, "tmpTemp", , , True
End With

问题就在于这里，如何把循环输出的记录写如一个带字段名称的表中？以前在一个台湾人写的ACCESS书写的一个财务管理方面的书中有介绍，可是现在忘记怎么操作了，希望高手指点

sszssz

很好,学习

hosam

等待～～～～～

hunrybecky

我又重新转回ADP了。转MDB发现很多SQL语句要修改，麻烦。
我毕竟好多年不用ACCESS，现在重新回来写程序，好多都忘记了。再说以前没有用过ADP，突然转ADP真不知道怎么搞。

t小宝

Access都被你修理成绿色的了，还有什么办不到。。。

hunrybecky

被ADP搞疯了，经过测试，虽然不能使用ADOX来创建查询，但是可以通过RunSQL来创建。
DoCmd.RunSQL "CREATE VIEW " & strQName & " AS " & strSQL 在ADP中不能再叫查询了，必须叫VIEW视图，否则创建不成功。

hunrybecky

转MDB也发现问题不少，主要是老是掉线，出现ODBC调用失败，有时刷新连接表可以解决问题，有时非要把数据库关闭重新打开。

hunrybecky

王大哥，如你所说，我真的很灰心了。决定把ADP换回MDB，反正，MDB也支持连接表到SQL。

tmtony

小不点, 出错时,代码停在哪一行?

hunrybecky

最好把表和代码弄到MDB中，测试通过。天拿，这ADP还真难搞。
真想把ADP换成MDB算了，一直用的DAO全部转想ADO太麻烦了。