HI，大家好，我是星光。
关于SQL修改数据的语句，我们前两期聊了删和改；这期再聊下增，也就是INSERT语句。
在SQL中，可以使用INSERT……VALUES语句直接向数据库中插入一行数据，其语法格式如下：
INSERT INTO 表名 [(字段名1, 字段名2……)] VALUES(值1,值2……)
在VALUES后列出的数据，其位置必须和INTO后字段名的排列位置保持一致，也就是说第1个值必须对应第1个字段名，第2个值对应第2个字段名……以此类推。
不过，字段名是可以省略的；当字段名省略时，默认读取插入表的所有字段名。
如下图所示，是一份名为‘工资表’的Excel表格。
假设我们现在需要在该表新增一条记录，姓名是‘萧才人’，性别是‘女’，工龄为1，工资3000。
INSERT INTO [工资表$] VALUES('萧才人','女',1,3000)
语句省略了字段名，默认读取工资表的所有字段名，也就是姓名、性别、工龄和工资，VALUES列出的数据('萧才人','女',1,3000)和字段名一一对应；语句执行结果如下所示：
再比如我们需要插入一行数据，但只知道姓名是’李麻花’，女生，1年工龄，工资未知。
INSERT INTO [工资表$] VALUES('萧才人','女',1)
由于该语句省略了字段名，也就默认读取工资表的所有的4个字段名，但VALUES只提供了3个数据，因此会得到‘查询值的数目和目标字段中的数据不同“的错误提示。
INSERT INTO [工资表$] VALUES('萧才人','女',1,null)
INSERT INTO [工资表$] (姓名,性别,工龄) VALUES('萧才人','女',1)
需要说明的是，指定字段名的排列顺序不必和插入表的字段名排列顺序一致，也就是说，上面的语句也可以写成：
INSERT INTO [工资表$] (性别,姓名,工龄) VALUES('女','萧才人',1)
INSERT……INTO语句很有用，但它每次只能对数据库插入一行记录，当有多行数据需要插入时，我们还需要搭配VBA的循环语句等，虽能解决问题，但未免不够高效。
通过INSERT……SELECT语句，我们可以将一个表上的多行数据插入到另外一个指定表中。
INSERT INTO 表名1 [(字段名1, 字段名2……)] SELECT 字段名1,字段名2……FROM 表名2
现在，我们需要将考核为‘合格’的人名及对应的数据，新增到‘工资表’中。
INSERT INTO [工资表$] SELECT 姓名,性别,工龄,工资 FROM [试用期$] WHERE 考核='合格'
SELECT语句从‘试用期’的表格筛选出考核为‘合格‘的数据，并将其插入到工资表中。
INSERT INTO后的字段名做了省略处理，当省略该处字段名时，和INSERT……VALUES所不同的是，它默认读取的不是插入表的字段名，而是 SELECT语句查询结果表的字段名。
比如，以下语句，尽管SELECT语句的字段名排列顺序和工资表的字段名排列顺序不同，但数据插入位置并不会出错。
INSERT INTO [工资表$] SELECT 姓名,工龄,工资,性别 FROM [试用期$] WHERE 考核='合格'
再比如，以下语句，由于工资表并不存在考核列，因此会收到错误提示。
INSERT INTO [工资表$] SELECT 姓名,工龄,工资,性别,考核 FROM [试用期$] WHERE 考核='合格'
当然，当INSERT INTO后有指定的字段名时，以指定的字段名顺序为准。
INSERT INTO [工资表$] (姓名,工龄,工资,性别) SELECT 姓名,0,4000,性别 FROM [试用期$] WHERE 考核='合格'
SELECT查询语句，放弃了‘试用期‘表3000的工资，更改为4000；工龄也更改为0；由于INSERT INTO语句后指定了字段名，0对应的是工龄，4000对应的字段名是工资；因此语句执行后的结果如下图所示，并无错误：
需要说明的是，INSERT……SELECT语句可以将一张表的数据插入到指定表中，但前提是该指定表本身是存在的。
如果我们需要将查询数据插入到一张事先并不存在的表——可以使用SELECT……INTO语句。
SELECT 字段名 INTO 新表名 FROM 数据来源表
该语句会根据指定表名和字段名创建一份新表，并将FROM子句的查询记录放置其中。
比如，我们需要将一个Excel工作簿的所有工作表批量复制移动到ACCESS数据库中，可以使用以下代码。
代码看不全可以左右拖动..▼
Sub DoSql1() Dim cnn As Object, strSQL As String Dim sht As Worksheet, strShtName As String, strPath As String Set cnn = CreateObject("adodb.connection") strPath = ThisWorkbook.FullName '工作簿完整路径+名称 cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "/数据库.accdb" '创建ACCESS数据库的连接 For Each sht In Worksheets '遍历工作表 strShtName = sht.Name '工作表的名称 strSQL = "SELECT * INTO " & strShtName & " FROM [Excel 12.0;DATABASE=" & strPath & "].[" & strShtName & "$]" cnn.Execute (strSQL) '执行Sql语句 Next cnn.Close '关闭连接 Set cnn = Nothing '释放cnn对象End Sub
代码通过遍历代码所在工作簿的工作表，将其数据整体复制移动到名称为‘数据库’的ACCESS文件中。代码所使用的SQL代码如下：
strSQL = "SELECT * INTO " & strShtName & " _ &"FROM [Excel 12.0;DATABASE=" & strPath _ & "].[" & strShtName & "$]"
变量strShtName是工作表的名称；[Excel 12.0;DATABASE=" & strPath & "].[" & strShtName & "$]"是ADO跨文件连接Excel工作簿的固定引用格式，可以本系列教程第4篇：SQL查询中表技巧的总结。
整个语句的意思就是获取（FROM）工作表的数据，在ACCESS中新增一个表，表名等同Excel工作表的名称，并将该表所有的字段记录(SELECT *)放置其中。
不过，当ACCESS存在和Exce工作表同名的表时，代码会返回错误。
……
握抓，致安，左上角点关注，右下角点个赞，咱们下次见。
https://pan.baidu.com/s/1L9dIu6tK0jt4D205sigKSg
♥♥温馨小提示▼
公众号每天会发布1篇函数教程+1篇编程教程+1个技巧小视频，如果你没有收到我的更新，是由于微信按权重显示公众号而不是实际更新时间——这时就需要星标我一下啦，撒花✿
发表评论