長い遅延/タイムアウトを引き起こすNTextの更新

Question

Classic ASPを使用してSQL 2000のNTextフィールドを更新しようとしています。ここに私がそれをするために使用しているコードがあります。どのように多分それをスピードアップする方法についての任意のポインターがありますか？それとも私はそれに固執していますか？

set Cnn = server.CreateObject("ADODB.connection") 
Cnn.ConnectionString = Application("Cnn_ConnectionString") 
Cnn.open 
set rs = server.CreateObject("ADODB.Recordset") 

rs.CursorType = adoOpenDynamic 
rs.LockType = adLockOptimistic  
conChunkSize = 100 
rs.Open "MyTable",Cnn, , , adCmdTable 
rs.Find "MyDataId=" & request("DataId"),,adSearchForward,1  

lngOffset = 0 
lngLogoSize = len(request("txtMyEntry"))*2 
Do while lngOffset < lngLogoSize 
    varChunk = LeftB(RightB(request("txtMyEntry"), lngLogoSize - _ 
       lngOffset), conChunkSize) 
     rs("MyDataField").AppendChunk varChunk 
     lngOffset = lngOffset + conChunkSize 
    Loop 

rs.Update 
rs.Close 

ああ、このコードはMSDN siteとほぼ同じです。

Answer 1

まずは90sのチャンクを削除します。

次にあります： -

rs.Open "MyTable",Cnn, , , adCmdTable 
rs.Find "MyDataId=" & request("DataId"),,adSearchForward,1 

む〜！あなたは、ADOがインテリジェントに、インデックスされたMyDataIdフィールドに基づいてそのレコードを見つけるようにSQLサーバに依頼したが、そうしないと賭けていると思っていると思います。レコードが到着するまで、テーブルの内容全体を引き出します。

これは、実際には、UPDATE T-SQLステートメントとADODB.Commandオブジェクトで行う必要があります。

Set cmd = Server.CreateObject("ADODB.Command") 
cmd.ActiveConnection = cnn 
cmd.CommandType = 1 '' // adCmdText 
cmd.CommandText = "UPDATE MyTable SET MyDataField = ? WHERE MyDataId = ?" 
cmd.Parameters.Append cmd.CreateParameter("dataField", 203, 1, Len(txtMyEntry), txtMyEntry) '' // 203 = asLongVarWChar, 1 = adParamInput 
cmd.Parameters.Append cmd.CreateParameter("id", 3, 1, , CInt(DataID)) '' // 3 = adInteger 
cmd.Execute