谁敢一试-用vba将excel数据导入到SQL-一次导入的方法

永远的船长

目前采取普通的循环引入，但是碰到数据上万的话，效率太慢，有没有一次导入的方法
先上代码，循环的意思是，第一层就是从上到下，多少行，第二层就是从左到右，一列一列添加


For i = 2 To Cells(Rows.count, Range(Arr(0)).Column).End(3).Row
      For n = 1 To ii
      mystr = mystr & Cells(i, Range(Arr(n - 1)).Column) & "','"
      Next n
mystr = "values ('" & Left(mystr, Len(mystr) - 3) & "')"
sql = "insert into" & " " & mytable & mycolumn & " " & mystr                 '自定义用& " " &和其他相连，table和column没有是sql语音要求两者不空格
cnn.Execute sql
next i

我是来讨说法的

首先，SQL是编程语言，不是数据库，所有不知道你到把excel数据导入到什么数据库中
下面是将excel导入到access中，其他数据库类似

一句代码，全表导入
   Set conn = CreateObject("adodb.connection")
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=access数据库路径"
    conn.Open   '下面一句sql就够了
    conn.Execute "insert into 表名 select * from [Excel 8.0;DataBase=" & ActiveWorkbook.FullName & "].[表名$]"

关键部分代码自己改

jiminyanyan

有导入SQL的工具的吧。。。

lilyhcn1

别的我不知道，至少PHP数据写入数据库也是一条一条写的

microyip

明显的标题党

永远的船长

我是来讨说法的 发表于 2019-4-27 09:10
首先，SQL是编程语言，不是数据库，所有不知道你到把excel数据导入到什么数据库中
下面是将excel导入到acc ...

抱歉没表述完整，Microsoft SQL Server 2008 R2

永远的船长

jiminyanyan 发表于 2019-4-27 09:33
有导入SQL的工具的吧。。。

vba可以么？？？？？？？

永远的船长

lilyhcn1 发表于 2019-4-27 10:02
别的我不知道，至少PHP数据写入数据库也是一条一条写的

一条一条太慢了，效率低，数据多的话，不知道猴年马月

永远的船长

microyip 发表于 2019-4-27 10:37
明显的标题党

绝对不是，搞了几天了没搞明白，心不安，

lipton

逐个单元格读取肯定慢，用记录集向数据库插入数据会明显提高效率，access帮助有示例代码。
Microsoft SQL Server 2008 R2储存过程有表值参数效率相当高，不知VBA是否能使用。