addnew vs insert to

[gguida]

§Caio Ragazzi,
chiedo a voi divoratori di sql....dalmio piccolo ho sempre saputohe l'istruziione insert to è molto più performante di addnew.

Ho realizzato del codice per importare un file txt in un db access, utilizzando inser to ci metto 30 s,mentre con addnew 3 s la cosa mi risulta strana.
Sono abituato a non usare mai addnew visto che non è sql puro e non è compatibile con altri db.

vi posto il codice...grazie per l'aiuto...

addnew

<% 


    sTableDb = "catastosog"



Dim strCampi1, sTableDb
            set rsC = Server.CreateObject("ADODB.Recordset") ' estraggo i campi
            
            Set RsC = Conn.OpenSchema(4, Array(Empty, Empty, "" & sTableDb ))
            do while not rsC.eof

                strCampiDB=strCampiDB &rsC("COLUMN_NAME") &";" ' metto i campi in un array con lo spazio per split
                aa=aa+1
                'response.Write aa-1&"."&rsC("COLUMN_NAME") &"
"

                rsC.moveNext
            loop
            rsC.Close
            Set rsC = Nothing
            Dim arr_strCampiDB_max,arr_strCampi_minDB,arr_strCampiDB
            arr_strCampiDB = split_stringa1(strCampiDB)
            arr_strCampiDB_min = lBound(arr_strCampiDB)
            arr_strCampiDB_max = uBound(arr_strCampiDB)
            'response.End()
            %>
    
<table width="53%" border="0" align="center">
  
  <tr>
    <td height="21" align="left" class="titolocol">SOGGETTI</td>
  </tr>
  <tr>
    <td width="96%" height="20" align="left" class="titolotab">Step 1 to 3 tabella <%= sTableDb %> svuotata</td>
    <td width="4%" align="left"></td>
  </tr>
</table>
<% response.Flush() %>
<%  sQuery = "DELETE * FROM " & sTableDb
    conn.Execute(sQuery)
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txt = fso.OpenTextFile(sPath &"\"& filesog)
  Set rss=server.CreateObject("ADODB.Recordset")
  rss.Open sTableDb,conn,3,3
    
         
      With txt
       While not .AtEndOfStream
       r = r+1
         aCampo = Split(txt.ReadLine(),"|")

    
     rss.Addnew()     
    

if aCampo(3)="P" then
rss(arr_strCampiDB(0))=aCampo(0)
rss(arr_strCampiDB(1))=aCampo(9)
rss(arr_strCampiDB(2))=aCampo(4)
rss(arr_strCampiDB(3))=aCampo(8)
rss(arr_strCampiDB(4))=aCampo(4)&" "&aCampo(5)
rss(arr_strCampiDB(6))=aCampo(2)
rss(arr_strCampiDB(7))=aCampo(8)
rss(arr_strCampiDB(8))=aCampo(5)
rss(arr_strCampiDB(9))=aCampo(6)
rss(arr_strCampiDB(10))=aCampo(1)
rss(arr_strCampiDB(11))=aCampo(3)
else
rss(arr_strCampiDB(0))=aCampo(0)
rss(arr_strCampiDB(1))=aCampo(6)
rss(arr_strCampiDB(4))=aCampo(4)
rss(arr_strCampiDB(11))=aCampo(3)
rss(arr_strCampiDB(6))=aCampo(2)
rss(arr_strCampiDB(7))=aCampo(5)
end if
    rss.Update()
    

    'response.End()
    
     
      

           Wend
       
    End With
    rss.close()
    Set txt = Nothing
    Set fso = Nothing
    
    response.End()
%> 

insert to

<%  
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txt = fso.OpenTextFile(sPath &"\"& filesog)

    
    Set cmd = CreateObject("ADODB.Command")
    With cmd
       .CommandText = "PARAMETERS pC1 Text, pC2 Text, pC3 Text, pC4 Text, pC5 Text, pC6 Text, pC7 Text, pC8 Text, pC9 Text, pC10 Text, pC11 Text; INSERT INTO  "& sTableDb &" (codice_amministrativo, sezione, identificativo_immobile, tipo_persona , cognome, nome , sesso, data_di_nascita , luogo_di_nascita , codice_fiscale , generalita) VALUES(pC1, pC2, pC3, pC4, pC5, pC6, pC7, pC8, pC9, pC10, pC11)"
       .CommandType = 1
       Set .ActiveConnection = conn
       .Parameters.Refresh
    End With

    r = 0
    With txt
       While not .AtEndOfStream
          r = r+1
          aCampo = Split(txt.ReadLine(),"|")
          With cmd
              if aCampo(3)="P" then 
                 .Parameters("pC1").Value = aCampo(0)
                 .Parameters("pC2").Value = aCampo(1)
                 .Parameters("pC3").Value = aCampo(2)
                 .Parameters("pC4").Value = aCampo(3)
                 .Parameters("pC5").Value = aCampo(4)
                 .Parameters("pC6").Value = aCampo(5)
                 .Parameters("pC7").Value = aCampo(6)
                 .Parameters("pC8").Value = aCampo(7)
                 .Parameters("pC9").Value = aCampo(8)
                 .Parameters("pC10").Value = aCampo(9)
                 .Parameters("pC11").Value = aCampo(4)&" "&aCampo(5)
             elseif aCampo(3)="G" then 
                 .Parameters("pC1").Value = aCampo(0)
                 .Parameters("pC2").Value = aCampo(1)
                 .Parameters("pC3").Value = aCampo(2)
                 .Parameters("pC4").Value = aCampo(3)
                 .Parameters("pC11").Value = aCampo(4)
                 .Parameters("pC8").Value = aCampo(5)
                 .Parameters("pC7").Value = ""
                 .Parameters("pC5").Value = ""
                 .Parameters("pC6").Value = ""
                 .Parameters("pC9").Value = ""
                 .Parameters("pC10").Value = aCampo(6)
             end if
             .Execute

             
          End With
           Wend
       .Close
    End With
    
    Set txt = Nothing
    Set fso = Nothing
    
    Set cmd = Nothing
      %>