Mise à jour de NText provoquant de longs délais/délais

Question

J'essaye de mettre à jour un champ NText dans SQL 2000 en utilisant ASP classique. Voici le code que j'utilise pour le faire. Quelqu'un at-il des indications sur la façon de l'accélérer? Ou suis-je coincé avec ça.

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 

Oh et ce code est presque mot à mot du MSDN site.

Answer 1

D'abord, j'éliminerais le découpage qui est si 90's.

Ensuite, il y a: -

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

Aïe! Vous aimeriez penser qu'ADO a demandé intelligemment à SQL Server de trouver cet enregistrement basé sur le champ MyDataId indexé, mais pariez que ce n'est pas le cas. C'est probablement en train de tirer sur tout le contenu de la table jusqu'à ce que l'enregistrement soit arrivé.

Cela devrait être fait avec une instruction UPDATE T-SQL et un objet 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