VBA Excel ADO SQL更新查询不起作用

时间:2018-07-10 00:11:52

标签: sql excel vba scripting ado

我是VBA和Excel脚本编写的新手,但是,我试图使用它来连接到我创建的SQL Server。我已经从一个用户窗体中构建了一个通用查询,并创建了一个成功的SELECT语句来填充我的工作表。

但是,当我尝试更新数据库中的此信息时,我没有成功。该代码不会引发任何错误,但是我无法在数据库中找到更改。这是我的尝试:

Private Sub dbUpdate(Query)

Dim conn As ADODB.Connection
Dim recset As ADODB.Recordset
Dim cmd As ADODB.Command
Dim strConn As String

'Create the connection string
strConn = "Provider=SQLNCLI11;Server=IP-Address;Database=Info;Trusted_Connection=yes;DataTypeCompatibility=80;"

'Create the connection and recordset objects
Set conn = New ADODB.Connection
Set recset = New ADODB.Recordset

'Open the connection
conn.Open strConn

'Open the recordset with the query
'Previous attempt, no errors
'recset.Open Query, conn

'Execute the recordset
Set cmd = New ADODB.Command
'The below execution of a query throws errors I believe
cmd.CommandText = Query
Set recset = cmd.Execute

'Close things up
Set recset = Nothing
'recset.Close
conn.Close
Set conn = Nothing

End Sub

我非常确定查询是正确的,但是如果我仍然无法解决,我将在明天进行更新。

1 个答案:

答案 0 :(得分:0)

这里是一个可能对您有用的示例。

Sub ImportDataFromExcel()
    Dim rng As Range
    Dim r As Long
    Dim conn As ADODB.Connection
    Dim strConn As String
    Dim strSQL As String

    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        "C:\Users\Ryan\Desktop\Coding\Integrating Access and Excel and SQL Server\Access & Excel & SQL Server\" & _
        "EXCEL AND ACCESS AND SQL SERVER\Excel & Access\Select, Insert, Update & Delete\Northwind.mdb"
    Set conn = New ADODB.Connection
    conn.Open strConn

    With Worksheets("Sheet1")
        lastrow = .Range("A2").End(xlDown).Row
        lastcolumn = .Range("A2").End(xlToRight).Column
        Set rng = .Range(.Cells(lastrow, 1), .Cells(lastrow, lastcolumn))
    End With

        'therow = 1

        For i = 2 To lastrow
            'r = rng.Row
            'If r > 1 Then
                strSQL = "UPDATE PersonInformation SET " & _
                    "FName='" & Worksheets("Sheet1").Range("B" & i).Value & "', " & _
                    "LName='" & Worksheets("Sheet1").Range("C" & i).Value & "', " & _
                    "Address='" & Worksheets("Sheet1").Range("D" & i).Value & "', " & _
                    "Age=" & Worksheets("Sheet1").Range("E" & i).Value & " WHERE " & _
                    "ID=" & Worksheets("Sheet1").Range("A" & i).Value
                conn.Execute strSQL
            'End If
            'r = r + 1
        Next i


    conn.Close
    Set conn = Nothing
End Sub

enter image description here

有很多不同的版本。希望您可以修改此示例以适合您的特定需求。