根据工作表批量更新数据库(不使用循环)2007求助

忘得快

各位老师，SQL修改数据库时因数据量很大，用循环方式代码修改很费时，能否将下面的循环代码改用数组方式的SQL语句代码？谢谢指教！
For I = 10 To Range("A65536").End(xlUp).Row
      If Cells(I, 1) <> "" Then '
        SQL = "update 学生档案 set  学校名称='" & [D5] & "',学校地址='" & [D6] & "'" _
            & "where 学生编号=" & Cells(I, 1).Value & "" '
        cnn.Execute SQL
      End If
    Next

	学校名称：		上海复旦大学附中
	学校地址：		上海市杨浦区杨浦路1239号
学生编号	姓名	性别	出生日期	籍贯	住址	家庭电话	年级	班级	特长
100001	王兵	男	36547	四川	解放路219号	6640065	1年级	A班	乒乓球
100002	严匡斌	男	36547	江西	建康路213号	3647354	1年级	A班	无
100003	周天昊	女	36534	广东	北环路294号	2293323	1年级	A班	绘画,书法
100004	王晓斌	女	36507	湖南	北京路290号	3988312	1年级	A班	航模,钢琴,乒乓球
100005	李祯	女	36502	黑龙江	建设路263号	5844306	1年级	A班	无
100006	韩迎	男	36496	上海	北京路227号	6241022	1年级	A班	无
100007	王鑫	女	36494	广西	南新路214号	4087883	1年级	A班	无
100008	王从波	男	36472	广东	建康路282号	5782051	1年级	A班	航模,钢琴,乒乓球
100009	周斌	男	36461	广东	南新路155号	8425003	1年级	A班	无
100010	高国峰	男	36450	湖南	海滨路225号	7674460	1年级	A班	无
100011	于啸鹏	男	36425	湖南	海滨路267号	3766945	1年级	B班	长跑
100012	张翌	男	36425	上海	国庆路214号	3894342	1年级	B班	无
100013	黄晴	女	36406	广东	北京路111号	2591161	1年级	B班	无
100014	杨拯国	男	36385	上海	安源路272号	5294141	1年级	B班	武术,舞蹈

今天不知是什么原因网站不能上传附件，所以只能贴上，请见谅。

魂断蓝桥

什么数据库？

忘得快

魂断蓝桥 发表于 2019-3-21 14:46
什么数据库？

SQL Server数据库

魂断蓝桥

update 学生档案 set  学校名称='上海复旦大学附中',学校地址='上海市杨浦区杨浦路1239号'
         where 学生档案.学生编号=Newtable.学生编号

把xls表格导入到SQL Server数据库 中，表格名称是Newtable

这样试一下。

忘得快

魂断蓝桥 发表于 2019-3-21 15:12
update 学生档案 set  学校名称='上海复旦大学附中',学校地址='上海市杨浦区杨浦路1239号'
         where ...

老师您好！我将ACCESS替代SQL数据库，请您帮我试试，谢谢！
批量更新数据库求助.rar (323.3 KB, 下载次数: 6)

2019-3-21 18:11 上传

点击文件名下载附件

魂断蓝桥

忘得快 发表于 2019-3-21 18:11
老师您好！我将ACCESS替代SQL数据库，请您帮我试试，谢谢！

1. '引用Microsoft ActiveX Data Objects 2.x Library
   
2. Sub updateaddRecords2007()
   
3.     Dim cnn As New ADODB.Connection, sql$, MYF$, m%
   
4.     myPath = ThisWorkbook.Path & "\学校管理.accdb"
   
5.     myTable = "学生档案"
   
6.     MYF = ThisWorkbook.Name
   
7.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & myPath '连接数据库
   
8.     sql = "(select  学生编号,姓名,""" & Sheet2.[D5] & """ AS 学校名称,""" & Sheet2.[D6] & """ AS 学校地址" & " from [Excel 12.0;Database=" & ThisWorkbook.Path & "" & MYF & "].[数据$a9:b] where 学生编号 is not null) as a "
   
9.     sql = "UPDATE 学生档案 INNER JOIN " & sql & " ON 学生档案.学生编号=a.学生编号 SET 学生档案.学校名称= a.学校名称,学生档案.学校地址=a.学校地址"
   
10.     cnn.Execute sql, m
    
11.     MsgBox "更新OK,更新" & m & " 条数据"
    
12.     Set cnn = Nothing
    
13. End Sub
    

复制代码

魂断蓝桥

代码审核中，附件上传不了，只能给你个图片了。



sql = "(select  学生编号,姓名,""" & Sheet2.[D5] & """ AS 学校名称,""" & Sheet2.[D6] & """ AS 学校地址" & " from [Excel 12.0;Database=" & ThisWorkbook.Path & "\" & MYF & "].[数据$a9:b] where 学生编号 is not null) as a "
    sql = "UPDATE 学生档案 INNER JOIN " & sql & " ON 学生档案.学生编号=a.学生编号 SET 学生档案.学校名称= a.学校名称,学生档案.学校地址=a.学校地址"

魂断蓝桥

忘得快

魂断蓝桥 发表于 2019-3-22 10:10

谢谢老师！我试试

忘得快

魂断蓝桥 发表于 2019-3-22 10:10

老师您好！您的这个代码用于ACCESS数据库能正常运行，但用于SQL Server数据库出错，提示：

请教这是什么原因？如何修改代码？谢谢！