vba批量导⼊mysql_SQL向数据库中批量插⼊数据VBA实例教
程
之前讲过利⽤SQL语句向Access数据库中插⼊⼀条数据，这节来讲下怎样向数据库中批量插⼊数据。
现在我的Excel表中的有⼀个学⽣信息表，有99条数据，现在我要将这99条数据⼀次性插⼊Access数据库中的学⽣信息表中，先看代码Sub 插⼊数据表格()
Dim cnn As Object, rs As Object, SQL$, mypath
Set cnn = CreateObject("tion")
mypath = ThisWorkbook.Path & "\学校管理.accdb"
On Error Resume Next
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & mypath
SQL = "select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" &
[a1].CurrentRegion.Address(0, 0) _
& "]"
SQL = "insert into 学⽣信息 " & SQL
cnn.Execute SQL
cnn.Close
access转mysql教程视频Set cnn = Nothing
End Sub
其他地⽅没有什么，主要是在SQL语句的书写上。为了便于理解我这将SQL语句分成了两部分，先看第⼀部分"select * from [Excel
12.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0)  & "]"，这句代码和我们之前以Excel为例讲解select语句的时候⾮常像，其实这句就是将当前的Excel当成数据库，将其中的数据全部提取出来，这句翻译出来就是“select * from [Excel 12.0;Database=C:\Users\Administrator\Desktop\ACCESS数据库\数据.xlsm].
[Sheet1$A1:J100]”，然后第⼆句"insert into 学⽣信息 " & SQL就是将第⼀部分SQL筛选出来的数据整个插⼊到学⽣信息表中。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。