作者fumizuki (矇面加菲獅)
看板Visual_Basic
標題[VB6 ] ADODB
時間Sat Oct 5 22:22:43 2013
狀況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
1F：推 MOONRAKER:exec()不錯 :) 10/05 23:34
2F：推 horngsh:建議用ado.net來處理資料庫。 10/27 19:02