VBA将EXCEL数据刷新至SQL数据库中

jasonzhang_3 · 发表于 2019-6-12 14:59

各位高手朋友，谁知道怎么在excel中，用VBA实现将excel工作表的数据，批量添加/修改到SQL数据库中去，数据库是SQL2014，excel是2016版。

假如，excel中得数据表名称为“sheet1”，有5列数据：学号、姓名、专业、语文分数、数学分数，最后一行为每个分数的合计。其中，学号+姓名+专业是唯一的，不重复。
SQL数据库名字为：mydata，表名为：mytable。 mytable中存有的数据与上述sheet1中的格式相同，多了一个唯一标识key_id。
现在需要实现下述功能：
将sheet1中的数据更新至mytable中，如果经过判断，mytable中存在相同（学号+姓名+专业），则不进行覆盖修改；如果经过判断，mytable中没有相同（学号+姓名+专业），则在SQL中新增记录。

请高手帮忙，非常感谢。

microyip · 发表于 2019-6-12 15:44

写数据库的方法，在论坛知识树里有，或者搜索一下论坛也是一大把。至于判断是否重复，用语句去判断

jasonzhang_3 · 发表于 2019-6-24 08:22

microyip 发表于 2019-6-12 15:44
写数据库的方法，在论坛知识树里有，或者搜索一下论坛也是一大把。至于判断是否重复，用语句去判断

大神能帮写个框架波？

microyip · 发表于 2019-6-24 08:45

opiona · 发表于 2019-6-24 09:34

StrSQL = ""
StrSQL = ""
StrSQL = StrSQL & "INSERT INTO "
StrSQL = StrSQL & " [odbc;Driver={SQL Server};" '//在空格+[：后面是固定格式
StrSQL = StrSQL & "Server=" & StrNameServer & ";" '//服务器名称或地址
StrSQL = StrSQL & "Database=" & StrNameCatalog & ";" '//数据库名称
StrSQL = StrSQL & "UID=" & StrNameUser & ";PWD=" & StrPassWord & "]" '//用户名，密码]
StrSQL = StrSQL & ".[" & StrNameTable & "]" '//.[数据表名]
StrSQL = StrSQL & " SELECT [学号],[姓名],[专业],[语文分数],[数学分数] FROM [" & SHX.Name & "$]"
StrSQL = StrSQL & " AS A WHERE NOT EXISTS ("
StrSQL = StrSQL & " SELECT [学号],[姓名],[专业],[语文分数],[数学分数] FROM "
StrSQL = StrSQL & " [odbc;Driver={SQL Server};" '//在空格+[：后面是固定格式
StrSQL = StrSQL & "Server=" & StrNameServer & ";" '//服务器名称或地址
StrSQL = StrSQL & "Database=" & StrNameCatalog & ";" '//数据库名称
StrSQL = StrSQL & "UID=" & StrNameUser & ";PWD=" & StrPassWord & "]" '//用户名，密码]
StrSQL = StrSQL & ".[" & StrNameTable & "]" '//.[数据表名]
StrSQL = StrSQL & " as B WHERE A.[学号]=B.[学号] AND A.[姓名]=B.[姓名] AND A.[专业]=B.[专业]"
StrSQL = StrSQL & ")"

复制代码

opiona · 发表于 2019-6-24 09:35

QQ14885553-修改数据库2.rar (24.8 KB, 下载次数: 60)

		自动登录	找回密码
密码			免费注册

[求助] VBA将EXCEL数据刷新至SQL数据库中