很多時候,需要每次批量執行sql,尤其是有些不能用儲存過程的時候,程式寫起來比較麻煩。
為了簡單,寫了下邊的這個函式。只要將資料庫連線物件,和由sql文組成的1維陣列傳遞進去,
就可以實現批量的執行sql語句,並在任何一條語句執行失敗的時候回滾.
function runsql(byref condb, byval arrsql)
dim l_inticount
on error resume next
if ucase(typename(condb)) = ucase("connection") then
runsql = -1
exit function
end if
condb.begintrans()
if isarray(arrsql) then
for l_inticount=0 to ubound(strsql)
condb.execute strsql(l_inticount)
if condb.errors.count > 0 then
condb.rollbacktrans()
jafnc_execsql = -1
exit function
end if
next
else
condb.execute strsql
if condb.errors.count > 0 then
condb.rollbacktrans()
jafnc_execsql = -1
exit function
end if
end if
condb.committrans()
jafnc_execsql = 1
end function
批量執行SQL指令碼
1.先要 xp cmdshell 這個東東給開啟,開啟方法如下 sp configure show advanced options 1reconfigure gosp configure xp cmdshell 1reconfigure go測試就這樣exec master.dbo.xp cmds...
Oracle批量執行SQL語句
1.在plsql之類的工具中把語句塊寫在begin end之間,如 begin insert into table values insert into table values insert into table values insert into table values end 記住在end...
Oracle批量執行SQL語句
1.在plsql之類的工具中把語句塊寫在begin end之間,如 begin insert into table values insert into table values insert into table values insert into table values end 記住在end...