Budowa bloku poleceń PL/SQL do użycia w makrach przy pomocy ADODB

block = "declare"
block = block & " zm1 typ1"
block = block & " zm2 typ2;"
block = block & " begin"
block = block & " kom1;"
block = block & " kom2"
block = block & " kom3;"
block = block & " commit;"
block = block & " end;"


Wywołanie

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Provider = "OraOLEDB.Oracle"
cn.ConnectionString = "User ID = " & l & "; Password = " & h & "; Data Source = " & d & ""
cn.Open
block = ...
cn.Execute (block)
cn.Close