从Excel中删除SQL行

我想使用Excelmacros从SQL表中删除特定的行，我有这个脚本插入，只是稍微调整了一点，无济于事。 请有人帮忙。 这是即时通讯尝试

Sub Button1_Click() Dim conn As ADODB.Connection Dim cmd As ADODB.Command Dim strSQL As String strSQL = "DELETE FROM dbo.AssociateInfo" & _ " WHERE (ID, FirstName, LastName, HireDate) " & _ " = (?,?,?,?);" Set conn = New ADODB.Connection conn.Open "Provider=SQLOLEDB;Data Source=BLANK;Initial Catalog=BLANK;User ID=BLANK;Password=BLANK;" 'Skip the header row iRowNo = 2 With Sheets("Sheet1") 'Loop until empty cell in FirstName Do Until .Cells(iRowNo, 1) = "" Set cmd = New ADODB.Command cmd.ActiveConnection = conn cmd.CommandType = adCmdText cmd.CommandText = strSQL cmd.Parameters.Append _ cmd.CreateParameter("pID", adVarChar, adParamInput, 8, .Cells(iRowNo, 1)) cmd.Parameters.Append _ cmd.CreateParameter("pFirstName", adVarChar, adParamInput, 30, .Cells(iRowNo, 2)) cmd.Parameters.Append _ cmd.CreateParameter("pLastName", adVarChar, adParamInput, 30, .Cells(iRowNo, 3)) cmd.Parameters.Append _ cmd.CreateParameter("pHireDate", adVarChar, adParamInput, 10, .Cells(iRowNo, 4)) cmd.Execute iRowNo = iRowNo + 1 Loop MsgBox "Data Successfully Exported" End With conn.Close Set conn = Nothing End Sub 

我想我有删除脚本不正确。

这里是如何使用它插入的

 strSQL = "INSERT INTO dbo.AssociateInfo" & _ "(ID, FirstName, LastName, HireDate) " & _ "VALUES (?,?,?,?);" 

Answer 1

我知道了，你所要做的就是让strSQL显示正确的SQL查询

 strSQL = "DELETE FROM dbo.AssociateInfo WHERE ID = ? AND FirstName = ? AND LastName = ? AND HireDate = ?;"