可否通过SQL查找学生清单信息

睡虫E梦

蓝桥玄霜 发表于 2017-4-3 17:13
请见附件。

老师，您的SQL写得很精简，能否再加少少条件进行查询吗？例如仅查询并返回值数学这一科的成绩，不用全部返回学生所有学科成绩，能做到吗？同时，能对上述的代码句进行注释下吗？我还在入门学习。谢谢谢

蓝桥玄霜

1. Sub cax()
   
2. Dim Conn, SQL$, myPath$, Rst, sRan As Range, i&
   
3. Set sRan = Range("A2")
   
4. Range("a2:g1000").ClearContents
   
5. myPath = ThisWorkbook.Path & ""
   
6. Set Conn = CreateObject("adodb.connection")
   
7. Set Rst = CreateObject("adodb.recordset")
   
8. Conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
   
9.             "extended properties=excel 8.0;" & _
   
10.             "data source=" & myPath & [k1].Value & ".xls"
    
11. Conn.Open
    
12. If Conn.State = 1 Then
    
13.     SQL = "select 考号,姓名,数学 from [年级$a2:g]"
    
14.     Rst.Open SQL, Conn, 1, 3
    
15.     For i = 0 To Rst.Fields.Count - 1
    
16.         sRan.Offset(0, i).Value = Rst.Fields(i).Name
    
17.     Next
    
18. 
    
19.     sRan.Offset(1, 0).CopyFromRecordset Conn.Execute(SQL)
    
20.     Conn.Close
    
21. End If
    
22. Set Conn = Nothing
    
23. End Sub
    
24. 
    

复制代码

睡虫E梦

蓝桥玄霜 发表于 2017-4-4 10:19

谢谢老师教导，真心感谢！

睡虫E梦

各位老师，现在我想把六年级学生的获奖的各个奖次的分数进行根据B列及C列进行条件查询后并统计在D列，能实现到这样的算法吗？无限感谢。

睡虫E梦

蓝桥玄霜 发表于 2017-4-3 17:12

老师，您好。您如有空可否帮忙看看这个代码可否进行根据A表的条件数据对应B表重复多条数据进行合计吗？谢谢
Private Sub CommandButton1_Click()
Sheet1.Range("D3:E100") = ""
Application.ScreenUpdating = False
Dim wb As Excel.Workbook
Dim arr, brr As Variant
Dim i, s, r As Integer
arr = ThisWorkbook.Worksheets(1).[a1].CurrentRegion
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets(1).[G1] & ".xls") '依次打开目录工作薄
brr = wb.Worksheets(1).UsedRange

For i = 3 To UBound(arr)
For s = 3 To UBound(brr)

If arr(i, 2) = brr(s, 1) And arr(i, 3) = brr(s, 2) Then
arr(i, 4) = brr(s, 3)
End If
Next s
Next i


ThisWorkbook.Worksheets(1).[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    wb.Close False '关闭打开的工作薄
    Application.ScreenUpdating = True
End Sub

详见http://club.excelhome.net/thread-1338080-1-1.html