VBA SQL提取数据的问题

满大人

VBA sql中想先把数据是进步的人提取到sheet2，在把班级 人名提取出来，下面这个代码为啥只能完成一个提取

1. sql1 = "SELECT 班级,ID FROM[维度$] where 评价='进步' "
   
2. 
   
3. 
   
4. Set RS1 = CNN.Execute(sql1)
   
5. 
   
6. With Sheets("sheet1")
   
7.    
   
8.    .[c7].ClearContents
   
9. .[c7].CopyFromRecordset RS1
   
10.    
    
11.     Do While Not RS1.EOF
    
12.         strResult = strResult & RS1("班级") & RS1("ID") & ", "
    
13.          RS1.MoveNext
    
14.         
    
15.     Loop
    
16.     .[A10].Value = Left(strResult, Len(strResult) - 2)
    
17. 
    
18. End With
    

复制代码

shiruiqiang

满大人

shiruiqiang 发表于 2024-7-30 21:56

是想两个都提取出来，先把进步的人提出出来，在单提取出进步人员的班级姓名

longwin