有些时候，之前说的方法仍然会有意外发生： 在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/cn.aspx?n=bbs/Visual_Basic/M.1403958825.A.443.html