向sql数据库表写入数据求助！！

duanyuncl

录入代码有问题，不知道怎么修改了。结果如下图，请大神指教该如何修改（如果按列名列分别指定，代码行数较多，所以想用循环）。
Sub 录入记录()
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer
Dim SQL As String
Dim val As String
    Set ws = Sheet2 '确定录入数据所在表
        '建立与SQL Server数据库的连接
    conn.ConnectionString = "Provider=SQLOLEDB;" _
    & "Server=192.168.1.162;" _
    & "uid=abc;" _
    & "pwd=sa;" _
    & "Database=cwb"
    conn.Open
    '向数据表中添加新记录
    SQL = "select * from " & Range("a1").Text & ""
    Set rs = New ADODB.Recordset
    rs.Open SQL, conn, adOpenKeyset, adLockOptimistic
     For i = 3 To ws.Range("a50000").End(xlUp).Row
     For j = 1 To 10
        rs.AddNew
        rs.Fields(j - 1) = ws.Cells(i, j)
        Next j
        Next i
          rs.Update
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
    MsgBox "成功保存数据！", vbInformation, "scdy 记录": Exit Sub
End Sub

roych

指定列名，可以通过:
for i = 0 to rst.fileds.count-1
rst.fields(i).name处理。
不过，个人更倾向于在SQL server里写存储过程导入；如果没法使用SQL server的话，则考虑链接表（SQL server以及Excel），再创建追加查询（把Excel的数据追加到SQL server里）。——当然，前提是Excel没啥表头，合并单元格之类乱七八糟的东西。

duanyuncl

roych 发表于 2020-9-1 16:15
指定列名，可以通过:
for i = 0 to rst.fileds.count-1
rst.fields(i).name处理。

衷心感谢指导！查了一堆资料，已解决了。     For j = 1 To 10        rs.AddNew原来此两句顺序不对，调换下前后位置就OK了。