有些時候，之前說的方法仍然會有意外發生：
在SQL Server中發生錯誤的時候，程式不會引發錯誤，整個TSQL批次也沒有完成
也就是說程式看起來一切正常，但實際上沒有正確執行，執行結果也可能不正確
解決方法：
'Const adExecuteNoRecords = 128 'ASP 中自行定義常數
Call cn.Execute(CommandText, Options:=adExecuteNoRecords)
或
Call cn.Execute(CommandText, Options:=128)
'於 VB6 中
'設定引用項目 Microsoft ActiveX DataObject Library，即有adExecuteNoRecords常數
'於 ASP 中，必須自行定義常數，或者直接用 128 當做參數值
'此常數表示不要接收查詢的結果集，也就表示不會獲得 Recordset
※ 引述《fumizuki (矇面加菲獅)》之銘言：
: 狀況1：
: ADODB.Connection 無法執行批次命令。
: 執行的命令中，遇到下列陳述式即會暫停查詢，
: select/insert/update/delete/use ...
: 當呼叫 Recordset.NextRecordset() 時才會繼續執行。
: 但批次查詢中可能會包含上述陳述式多個，
: 則 NextRecordset 就必須要呼叫多次才能一直執行到批次結束為止。
: 例如：
: Set rs = cn.Execute("INSERT INTO T1 VALUES(1); SELECT 1 / 0")
: 不會引發除以零的錯誤，因為執行到 INSERT 就暫停了
: Set rs = rs.NextRecordset()
: 當呼叫 NextRecordset()，就會繼續執行，結果發生除以零的錯誤。
: 解決方法：
: CommandText = "'" & Replace(命令文字, "'", "''") & "'"
: CommandText = "EXEC(" & CommandText & ")"
: Set rs = cn.Execute(CommandText)
: 'EXEC 中指定的命令文字會被當成一整個批次執行
: '兩個單引號為SQL Server中的跳脫字元，用來表示字串中的單引號
: 狀況2：
: 如果有多個 ADODB.RecordSet 為 Open 的狀態，
: 每一個 RecordSet 都會以 SQL CURSOR 的方式進行查詢。
: (例如：sp_cursor、sp_execute...)
: 這表示每一次 RecordSet.MoveNext 之類的要求，都會向 SQL Server 要求資料，
: 跟SQL Server通訊的次數太多，效能也會比較差。
: 解決方法：
: 記得 RecordSet 用完立即關閉，再繼續執行下一個批次命令。
: 範例1：
: Set rs1 = cn.Execute(命令1)
: Do While Not rs1.EOF
: 'do something
: rs1.MoveNext
: Loop
: rs1.Close
: Set rs2 = cn.Execute(命令2)
: Do While Not rs2.EOF
: 'do something
: rs2.MoveNext
: Loop
: rs2.Close
: 範例2：
: Set rs1 = cn.Execute(命令1)
: If Not rs1.EOF Then HasData1 = True: aryData1 = rs1.GetRows()
: rs1.Close
: Set rs2 = cn.Execute(命令2)
: If Not rs2.EOF Then HasData2 = True: aryData2 = rs2.GetRows()
: rs2.Close
: result = ""
: For i = RowIndex To UBound(aryData1, 2)
: For ColIndex = 0 To UBound(aryData1, 1)
: If ColIndex > 0 Then result = result & ","
: result = result & aryData1(ColIndex, RowIndex)
: Next
: result = result & vbCrLf
: Next
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.194.228.130
※ 文章網址: http://www.ptt.cc/bbs/Visual_Basic/M.1403958825.A.443.html