紧急求助！！！批量修改问题

hansenhandsome

我想批量修改表input中所选择记录的某个字段的值，部分代码如下，请那位大虾给补齐了。十万火急！非常感谢！该怎样执行该SQL语句？

Private Sub Command14_Click()

    Dim strSQLChange As String
    Dim table_name_1 As String
    Dim table_name_2 As String

    strSQLChange = ""
   If Not IsNull(Me.fields) And Not IsNull(Me.value) Then
     table_name_1 = "input"
     If Not IsNull(Me.date_1) And Not IsNull(Me.date_2) Then
   

   strSQLChange = " update " & table_name_1 & " Set " & table_name_1 & ".[discount] = " & Trim(Me.value) & " WHERE  ( " & table_name_1 & ".[date] >= #" & Me.date_1 & "# and " & table_name_1 & ".[date] <= #" & Me.date_2 & "#) "
  

   



MsgBox "修改成功", vbOKOnly, "操作成功"
end if

Else
   MsgBox "缺少参数", vbCritical, "发生错误"
End If
End Sub

fan0217

需要具体的实例才好改.

hansenhandsome

这是一个命令按钮的操作代码，这个按钮的功能就是批量修改表INPUT中的数据，我现在不知道如何在这里面运行下面这一条SQL语句，拜托赐教！！非常感谢

strSQLChange = " update " & table_name_1 & " Set " & table_name_1 & ".[discount] = " & Trim(Me.value) & " WHERE  ( " & table_name_1 & ".[date] >= #" & Me.date_1 & "# and " & table_name_1 & ".[date] <= #" & Me.date_2 & "#) "

fan0217

示例

下面的示例更新“雇员”表，将每一个销售经理的职称更改为“地区销售经理”：

1. Public Sub DoSQL()
   
   
2. 
   
   
3.     Dim SQL As String
   
   
4.    
   
   
5.     SQL = "UPDATE Employees " & _
   
   
6.           "SET Employees.Title = 'Regional Sales Manager' " & _
   
   
7.           "WHERE Employees.Title = 'Sales Manager'"
   
   
8. 
   
   
9.     DoCmd.[b]RunSQL[/b] SQL

复制代码

1.    
   
   
2. End Sub

复制代码

1. strSQLChange = " update " & table_name_1 & " Set " & table_name_1 & ".[discount] = " & Trim(Me.value) & " WHERE  ( " & table_name_1 & ".[date] >= #" & Me.date_1 & "# and " & table_name_1 & ".[date] <= #" & Me.date_2 & "#) "
   
   

复制代码

DoCmd.RunSQL strSQLChange

fan0217

也可以使用ADO

Execute 方法 (ADO Command)

执行 [url=mkMSITStore:C:\Program%20Files\Common%20Files\Microsoft%20Shared\OFFICE11\2052\ado210.chm::/htm/mdprocommandtext.htm]CommandText[/url] 属性中指定的查询、SQL 语句或存储过程。

语法

对于以 Recordset 返回的 Command：Set recordset = command.Execute( <a href="" target="_blank" >RecordsAffected, <a href="" target="_blank" >arameters, <a href="" target="_blank" >Options )

对于不是以记录集返回的 Command：command.Execute <a href="" target="_blank" >RecordsAffected, <a href="" target="_blank" >arameters, <a href="" target="_blank" >Options

返回值

返回 [url=mkMSITStore:C:\Program%20Files\Common%20Files\Microsoft%20Shared\OFFICE11\2052\ado210.chm::/htm/mdobjodbrec.htm]Recordset[/url] 对象引用或 Nothing。

hansenhandsome

非常感谢