SQL查询的问题

hyzhuhui

各位前辈，在SQL查询时，有以下3个问题。
1、获取的记录数是错误的。
2、怎么修改成 查 一年级（01）班 ，非缺考的句子，我把=改为<>,就一个也查不到了。
3、把查询记录制到数组后，怎么再把这个数组写入表格的A10 开始的单元格。
麻烦帮忙改正


Sub a()
Dim AdoRe As Object
Dim cnn, myf$, SQL$
Set AdoRe = CreateObject("ADODB.Recordset")
Set cnn = CreateObject("adodb.connection")


Dim Arr3


myf = ThisWorkbook.FullName


cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & myf
SQL = "SELECT ID,班级,姓名,语文,数学,备注 FROM [全校成绩$] " _
& " WHERE 班级='" & "一年级(01)班" & "' and 备注 <>'" & "缺考" & "'"
Sheets("sheet1").Activate
Set AdoRe = cnn.Execute(SQL)
  Range("a1").Value = "共查到" & AdoRe.RecordCount & "条记录"
     Range("a2").CopyFromRecordset cnn.Execute(SQL)
     
     Arr3 = AdoRe.GetRows                                '取得全部
     Range("a10").Resize(UBound(Arr3, 1), UBound(Arr3, 2)).Value = Arr3
Set cnn = Nothing
End Sub

qdtzq

1.and 备注 IS NULL  
2.Recordset用打开方式生成记录集，RecordCount才准确
3.需要转置 （若想使用transpose,不能有空值）

mmwwdd

洋务德雷

改写成 备注 is null

mmwwdd

在SQL中逻辑表达式的可能值包括TRUE、FALSE和UNKNOWN，它们被称之为三值逻辑。

　　在其它的语言中，逻辑表达式只有两种，要么是true,要么就是false。而sql中却存在第三个逻辑表达式UnKnown，这个是sql中特有的。从字面意思上我们可以解理该值的意思是：什么都不知道，就是什么都不是。一般情况下我们将任何值(包括NULL本身)与NULL做比较的时候，都会返回UnKnown。而在查询表达式中(比如where与having中)，UnKnown会视为false。所以我们就明白了为什么select * from 表 where 字段=null查不到正确的结果的原因了。

hyzhuhui

那果如我的备注中除了缺考  还有 请假，那么  怎么只排除 缺考的人 而保留 请假 和NULL和其它情况，该怎么写？

WANT-T

hyzhuhui 发表于 2022-12-25 17:39
那果如我的备注中除了缺考  还有 请假，那么  怎么只排除 缺考的人 而保留 请假 和NULL和其它情况，该怎么 ...

if(备注 IS NULL,'',备注)<>'缺考'

hyzhuhui

WANT-T 发表于 2022-12-25 18:12
if(备注 IS NULL,'',备注)'缺考'

只把缺考的排除，保留其它，包括NULL,复制进去出错了，您能在我的附件中修改吗？今天分送完了，明天送，谢谢！