有些時候，之前說的方法仍然會有意外發生： 在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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1403958825.A.443.html