Do While Not.EOFのタイムアウト内でクエリを更新する

Question

毎月問題なく動作している毎晩実行されるファイルがあります。突然、クエリタイムアウトエラーが発生します。クイックトレースを見ると、毎回何らかの二次照会（更新）に失敗していることがわかります。

コード実行の非常に一般的な概要に：

strSQL = "EXEC usp_GET_listofRecords" 
rsRun(recSet, strSQL) 
Do While Not recSet.EOF 

    If recSet("condition") = 0 Then 
     strSQL2 = "UPDATE t_table SET status=0 WHERE id=" & recSet("id") 
     rsRun2(recSet2, strSQL2) 
     rsClose(recSet2) 

    ElseIf recSet("condition") = 1 Then 
     strSQL2 = "UPDATE t_table SET status=1 WHERE id=" & recSet("id") 
     rsRun2(recSet2, strSQL2) 
     rsClose(recSet2) 

    ElseIf recSet("condition") = 3 Then 
     strSQL2 = "UPDATE t_table SET status=3 WHERE id=" & recSet("id") 
     rsRun2(recSet2, strSQL2) 
     rsClose(recSet2) 

    End if 
    recSet.MoveNext 
Loop 
rsClose(recSet) 

これが最後に何ヶ月のために正常に動作しており、今では、更新のいずれかをヒットするたびに失敗しました。

編集：

strSQL = "EXEC usp_GET_listofRecords" 
rsRun(recSet, strSQL) 
Do While Not recSet.EOF 

    If recSet("condition") = 0 Then 
     strSQL2 = strSQL2 & "UPDATE t_table SET status=0 WHERE id=" & recSet("id") & "; " 

    ElseIf recSet("condition") = 1 Then 
     strSQL2 = strSQL2 & = "UPDATE t_table SET status=1 WHERE id=" & recSet("id") & "; " 

    ElseIf recSet("condition") = 3 Then 
     strSQL2 = strSQL2 & = "UPDATE t_table SET status=3 WHERE id=" & recSet("id") & "; " 

    End if 

    recSet.MoveNext 
Loop 
rsClose(recSet) 

rsRun recSet, strSQL2 
rsClose(recSet) 

編集2：と呼ばれる機能を含む：

Function rsRun(recSet, strSQL) 
    Call OpenDB() 
    Set recSet = Server.CreateObject("ADODB.Recordset") 
    recSet.Open strSQL, dbConn 
End Function 

Function rsRun2(recSet2, strSQL2) 
    Call OpenDB() 
    Set recSet2 = Server.CreateObject("ADODB.Recordset") 
    recSet2.Open strSQL2, dbConn 
End Function 

Function OpenDB() 
    Set dbConn = Server.CreateObject("ADODB.Connection") 
    dbConn.ConnectionTimeout = 30 
    dbConn.CommandTimeout = 120 
    dbConn.Open strConnectionString, strUserName, strPassword 
End Function 

Answer 1

数があるように見える、私は問題なく、次の作業を行っているため、更新コマンドは、有効である知っていますここでは問題が発生しますが、まずはタイムアウトの主な原因になるでしょう。私はrsRun2という関数を呼び出した直後に疑念を抱いていました。 rsRunとrsRun2のためのあなたの定義の中であなたがOpenDBに電話をかけると、新しい接続毎回を開くこと

は

注意してください。 OpenDBを呼び出すと、すでに開いていた古いものを閉じることなく、その新しい接続で古いdbConnをに置き換えます。これは、ループを繰り返すたびに新しいデータベース接続を開始しているため、データのサイズが大きくなると、接続要求がタイムアウトになるまで、それ以上受け入れません。

あなたは、本質的にちょうど2つの接続上の単一の呼び出しで実行するすべてのコマンドをバッチ処理することによって、問題を中心に作業しているので、あなたの書き換えバージョンが動作するという事実は、こののさらなる証拠です。あなたが唯一の接続を使用し、1 DBを使用していて、これ以上開かないので、もしそれが、同じ接続上で複数のコマンドを実行するために完全に大丈夫だと

注意。コード内のどこからでも開始を除いてOpenDBへの通話を削除するので、自分が行っていることを完全に制御することができます。

追加のアドバイスがあります。 Ansgar Wiechers氏は、あなたのSQLは潜在的にSQL Injectionに対して脆弱であるとしています。 ADOとパラメータ化されたクエリを使用してコードのセキュリティを向上させる方法を学ぶ必要があります。理論的には

*は、これらの古いオブジェクトがガベージコレクション結局のVBScriptによって得るが、これはすぐに、または対応する接続​​が正しくクローズされることを起こるという保証はありません。