VBA 执行非标量函数
示例
ADO连接几乎可以用来执行提供程序通过SQL支持的任何数据库功能。在这种情况下，虽然使用@@Identity或类似的SQL命令在INSERT语句之后获取键分配很有用，但不一定总是使用该函数Recordset返回的Execute值。请注意，OpenDatabaseConnection为简洁起见，下面的示例使用从建立连接到数据源示例的功能。
Public Sub UpdateTheFoos()
On Error GoTo Handler
Dim database As ADODB.Connection
Set database = OpenDatabaseConnection(SomeDSN)
If Not database Is Nothing Then
Dim update As ADODB.Command
Set update = New ADODB.Command
'Build the command to pass to the data source.
With update
.ActiveConnection = database
.CommandText = "UPDATE Table SET Foo = 42 WHERE Bar IS NULL"
.CommandType = adCmdText
.Execute 'We don't need the return from the DB, so ignore it.
End With
End If
CleanExit:
If Not database Is Nothing Anddatabase.State= adStateOpen Then
database.Close
End If
Exit Sub
Handler:
Debug.Print"Error " &Err.Number& ": " & Err.Description
Resume CleanExit
End Sub请注意，发送到数据源的命令容易受到SQL注入的影响，无论是有意还是无意的。通常，不应通过串联任何类型的用户输入来创建SQL语句。而是应对其进行参数化（请参阅创建参数化命令）。
热门推荐
7 简短的二胎祝福语
10 简短霸气女儿生日 祝福语
11 祝福语高考小众诗句简短
12 元旦祝福语20秒简短
13 老师过年祝福语大全 简短
14 一生祝福语简短
15 产检祝福语简短霸气
16 朋友店开张祝福语简短
17 生日爱情祝福语大全简短
18 朋友女儿生日祝福语 简短