SQL查询不会只返回一个字段的完整结果

Question

我在使用VBA执行SQL查询并将结果复制到Excel工作表时遇到问题。

子执行时，它仅复制256的倍数的行（因此，只有256、512、768等行是填充到Excel中的行）。我从数据库中复制任何其他字段都没有问题。另外，当我在MySQL中运行相同的查询时，它也可以正常工作。对于SQL和VBA来说都是相当新的东西，我看不到任何原因导致此特定字段引起麻烦。我唯一能想到的是它的内容是一个始终以下划线开头的字符串（我之所以只提它，是因为它是它与某些其他字段之间的唯一区别）。

是否有人对为什么会发生有任何想法？

编辑：这是有问题的代码的片段。老实说，我不确定代码是否会有所作为，因为它可以在其他情况下正常工作，但是再说一遍，这就是为什么我是新手:)

        Dim con As ADODB.Connection
        Dim rst As ADODB.Recordset

        Set con = New ADODB.Connection
        Set rst = New ADODB.Recordset

        con.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=ipaddress;UID=userID;PWD=password;DATABASE=jiradb;OPTION=16427;"
        con.Open

        sql = "SELECT TEMPO_DATA FROM gssd_worklog WHERE WORK_DATE BETWEEN '2012-01-01' AND '2012-03-31'"

        'Open Recordset'
        rst.Open sql, con

        'Copy Data to Excel'
        Set ws = ActiveSheet

        ws.Range("A2").CopyFromRecordset rst

Answer 1

我想我已经找到了解决方案，这要归功于Lamak的帮助：

rst.Open sql, con

Dim iRows As Integer
For iCols = 0 To rst.Fields.Count - 1
    ws.Cells(1, iCols + 1).Select
    With Selection
        .Value = rst.Fields(iCols).Name
        .Font.Bold = True
        .EntireColumn.AutoFit
    End With
Next iCols

iRows = 2

While Not rst.EOF
    For iCols = 0 To rst.Fields.Count - 1
        ws.Cells(iRows, iCols + 1).Value = rst.Fields(iCols).Value
    Next iCols
    rst.MoveNext
    iRows = iRows + 1
Wend

该问题似乎一直在尝试一次将所有字段从记录集中复制出来，逐个记录逐行复制记录似乎可以解决问题。