请高手帮忙看看错在哪(红色的那句)?

mhxcy 2013-04-17 03:54:41
Sub pmc()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim strsql, Field, i
cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
strsql = "select 班级,姓名,政治,物理,数学,语文,英语,总分 ,dcount(1,""Sheet2$"",""班级='""& 班级 &""' and 总分> "" & 总分)+1 as 班级排名,dcount(1,""sheet2$"",""总分>"" & 总分)+1 as 年级排名 from [sheet2$]"
rs.Open (strsql), cnn, adOpenKeyset, adUseClient

For Each Field In rs.Fields
Sheets("sheet1").Cells(1, 1).Offset(0, i) = Field.Name
i = i + 1
Next

Sheets("sheet1").Cells(2, 1).CopyFromRecordset rs
rs.Close
cnn.Close
End Sub
...全文
124 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
mhxcy 2013-04-25
  • 打赏
  • 举报
回复
已解决。谢谢!

6,216

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office应用
社区管理员
  • Microsoft Office应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧