[VB6 ] ADODB

[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) 
◆ From: 123.194.72.87
推 MOONRAKER:exec()不錯 :)
推 horngsh:建議用ado.net來處理資料庫。