Método Execute

Executa um Comando SQL. Ele retorna um objeto RecordSet para consultas SELECT ou um Inteiro para comandos que não retornam registros.

Sintaxe

Object.Execute(CommandText, RecordsAffected)

Argumentos:

  • Object: Obrigatório. Sempre o nome do objeto ADODB Connection.

  • CommandText: Obrigatório. Comando SQL

  • RecordsAffected: Opcional. Número de registros afetados por comandos que não retornam registros

Comentários

O exemplo a seguir ilustra o uso do método Execute.

Exemplo 1:

'Create ADODB.Connection Object
Dim ConnObj   ' Create a variable.
Set ConnObj = CreateObject("ADODB.Connection")
ConnObj.Open("ConnectionString") 'Creates DB Connection by Using Connection String

Dim RecSetObj
Dim CmdTxt
CmdTxt = "SELECT * FROM EMPLOYEE_DETAILS"
Set RecSetObj = ConnObj.Execute(CmdTxt) 'Returns RecordSet

Dim RecAffected
CmdTxt = "UPDATE EMPLOYEE_DETAILS SET SALARY= 10000 WHERE LEVEL = 5"
ConnObj.BeginTrans()
ConnObj.Execute CmdTxt, RecAffected 'RecAffected filled with number of records updated
ConnObj.CommitTrans()

RecSetObj.Close()
ConnObj.Close()
Set RecSetObj = Nothing
Set ConnObj = Nothing