csv文件导入SQL，求教

darkartus

各位大神，
如何使用代码把csv格式的文件数据导入到sql里啊，试来试去不成功，求救！！！
比如一个简单的测试文件：

xiangbaoan

1. Sub test1() '导入到 Excel
   
2.   Dim p As String, f As String, i As Integer
   
3.   p = ThisWorkbook.Path & "\"
   
4.   f = "test.csv"
   
5.   If Len(Dir(p & f)) = 0 Then MsgBox "!": Exit Sub
   
6.   Range("A1").CurrentRegion.ClearContents
   
7.   Dim Conn As Object, rs As Object, SQL As String
   
8.   Set Conn = CreateObject("ADODB.Connection")
   
9.   Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='text;HDR=yes;FMT=CSVDelimited';Data Source=" & p
   
10.   SQL = "SELECT * FROM [" & f & "]"
    
11.   Set rs = Conn.Execute(SQL)
    
12.   For i = 0 To rs.Fields.Count - 1
    
13.     Range("A1").Offset(0, i) = rs.Fields(i).Name
    
14.   Next
    
15.   Range("A2").CopyFromRecordset rs
    
16.   Set rs = Nothing
    
17.   Conn.Close
    
18.   Set Conn = Nothing
    
19.   Beep
    
20. End Sub
    
21. 
    
22. Sub test2() '导入到 Access
    
23.   Dim p As String, f As String
    
24.   p = ThisWorkbook.Path & "\"
    
25.   f = "test.csv"
    
26.   If Len(Dir(p & f)) = 0 Then MsgBox "!": Exit Sub
    
27.   Dim Conn As Object, SQL As String
    
28.   Set Conn = CreateObject("ADODB.Connection")
    
29.   Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & p & "test.accdb"
    
30.   SQL = "SELECT * FROM [Text;FMT=Delimited;HDR=Yes;Database=" & p & ";].[" & f & "]"
    
31.   
    
32.   SQL = "INSERT INTO 测试表 SELECT * FROM(" & SQL & ")" '已存在 测试表 用此句
    
33.   'SQL = "SELECT * INTO 测试表 FROM(" & SQL & ")" '不存在 测试表 用此句
    
34.   
    
35.   Conn.Execute SQL
    
36.   Conn.Close
    
37.   Set Conn = Nothing
    
38.   Beep
    
39. End Sub

复制代码

darkartus

xiangbaoan 发表于 2022-8-30 17:31

哇，大神，感谢！
不过我想导入sql server，能不能再帮忙看看

xiangbaoan

darkartus 发表于 2022-8-30 18:39
哇，大神，感谢！
不过我想导入sql server，能不能再帮忙看看

不好想了，无法模拟的。

darkartus

xiangbaoan 发表于 2022-8-31 09:02
不好想了，无法模拟的。

我靠，sql作为数据处理的软件，csv作为外部存储大量数据的载体格式，sql居然无法给出代码端口去导入csv！！！痛苦啊

zpy2

darkartus 发表于 2022-8-31 11:47
我靠，sql作为数据处理的软件，csv作为外部存储大量数据的载体格式，sql居然无法给出代码端口去导入csv！ ...

https://skyvia.com/blog/3-easy-ways-to-import-csv-file-to-sql-server

darkartus

zpy2 发表于 2022-8-31 12:12
https://skyvia.com/blog/3-easy-ways-to-import-csv-file-to-sql-server

感谢，感谢，找到变通的方法了。

darkartus

xiangbaoan 发表于 2022-8-30 17:31

第一个导入EXCEL的代码，如果test的文件超过255列，好像就只能导入255列。这个限制能突破吗？