请教各位老师 rst.Open Sql, cnn, 1, 3取值的问题

汶水苍柏

附件内有两个表一个工作表，一个存放数据的表，运行以下代码取数据表的数据至工作表，问题是rst.RecordCount结果是： dd表内无数据得到的值是2，bb表内2条数据得到的值也是2，表内数据大于3条时才得到正确条目，为什么呢，谢谢


Sub Macro1()
    Dim cnn As Object
    Dim rst As Object
    Set cnn = CreateObject("ADODB.connection")
    Set rst = CreateObject("ADODB.Recordset")
    cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no;imex=1;';data source=" & ThisWorkbook.Path & "\数据表.xls"
'    Sql = "select * from [aaw$]"
     Sql = "select * from [dd$]"
      rst.Open Sql, cnn, 1, 3
       MsgBox rst.RecordCount
        If rst.RecordCount < 3 Then
        MsgBox "没有数据"
                Else
             MsgBox "有数据"
        End If
    rst.Close
   [a1].CopyFromRecordset cnn.Execute(Sql)
    cnn.Close
     Set rst = Nothing
     Set cnn = Nothing
End Sub

汶水苍柏

怎么能知道准确的记录集总数

汶水苍柏

怎么能知道准确的记录集总数

rendiule01

1.你的表最好有列标题
2.若表有列标题 时   select * from [dd$] where 列 is not null

汶水苍柏

rendiule01 发表于 2022-12-5 08:31
1.你的表最好有列标题
2.若表有列标题 时   select * from [dd$] where 列 is not null

谢谢，我想用它导入数据，现在的代码能实现，如果是空表没有数据就加个判断

汶水苍柏

空表rst.RecordCount取值也是2，表内2条数据rst.RecordCount取值也是2，有什么语句判断表是空的。

T100

空单元格也识别到了，对不允许非空的列进行限制(假设是第一列)
     sql = "select * from [dd$] where F1 is not null "