Bueno, evidentemente cambia según las máquinas, a mí también me dio a favor del xBase...
OOP xBase SQL 1 0.792 1.599 xBase 2 0.776 1.213 xBase 3 0.789 1.231 xBase 4 0.787 1.226 xBase 5 0.809 1.391 xBase 6 0.873 1.260 xBase 7 0.979 1.345 xBase 8 0.797 1.464 xBase 9 0.809 1.292 xBase 10 0.923 1.696 xBase -----Mensaje original----- De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Oscar Zárate Enviado el: Monday, June 11, 2007 10:40 AM Para: GUFA List Member Asunto: [GUFA] Found() Es MUY loco, pero .... en estas longitudes ... (ya que casi estamos a la misma latitud) funciona mas rapido el XBase LOOP xBase SQL 1 1.436 1.894 xBase 2 1.416 1.898 xBase 3 1.431 1.894 xBase 4 1.452 1.904 xBase 5 1.618 1.921 xBase 6 1.426 1.897 xBase 7 1.423 1.885 xBase 8 1.418 1.891 xBase 9 1.429 1.907 xBase 10 1.427 1.886 xBase Esto es en una Notebook IBM Pentium IV con 1 Gb de Ram. Lo corro en la desktop y te aviso. SaludOZ, On 6/11/07, Martín Salías <[EMAIL PROTECTED]> wrote: > A ver... me parece que tanto canguro te tiene a mal traer. Emprolijé un poco > el código (sin afectar los resultados) para que genere un TXT y podamos > comparar en base a la ejecución de distintos miembros de la lista que > quieran aportar 5 minutos de CPU. > > En mi notebook los resultados dan que me debés una birra: > > LOOP xBase SQL > 1 1.913 1.536 SQL > 2 1.976 1.473 SQL > 3 1.946 1.892 SQL > 4 1.882 1.462 SQL > 5 1.690 1.501 SQL > 6 2.367 1.520 SQL > 7 1.887 1.610 SQL > 8 1.761 2.218 xBase > 9 2.048 1.646 SQL > 10 2.380 1.532 SQL > > Como ves, una única vez ganó el xBase, y en otras corridas perdió siempre. > Te mandé la peor para el SQL para que te quedes contento. > > Pego a continuación el PRG. Sólo hay que correrlo y el resultado se imprime > al Screen y queda en un OzBeer.txt que los interesados pueden pegar tal cual > en una respuesta a este mensaje. > > Saludos, > /ms > > > Clear > Set Safety Off > Set Notify off > Set Textmerge on > Set Textmerge to OzBeer.txt > > \\LOOP xBase SQL > > For i = 1 To 10 > > \ <<i>> > Use In Select("test") > Create Table Test Free (Campo1Char c(10), Campo1 i) > > Wait WINDOW "Inserting..." nowait > For lnCount = 1 To 1000000 > lnSeconds = Seconds() * Rand() > Insert Into Test ( ; > Campo1Char, Campo1; > ) Values ( ; > RIGHT(Transform(lnSeconds-Int(lnSeconds)), 3) ; > + Transform(Int(lnSeconds)) ; > + Iif(Int(lnCount/2) = (lnCount/2), "AA", "BB") , ; > lnCount; > ) > Next > > Wait WINDOW "Indexing..." nowait > Index On Right(Alltrim(Campo1Char),2) Tag Campo1 > > Wait WINDOW "xBase replacing..." nowait > lnStart1 = Seconds() > Replace Campo1 With Campo1 + 1 ; > For Right(Alltrim(Campo1Char),2) = "AA" > lnFinish1 = Seconds() > > Wait WINDOW "SQL replacing..." nowait > lnStart2 = Seconds() > Update Test Set Campo1 = Campo1 + 1 ; > Where Right(Alltrim(Campo1Char),2) = "AA" > lnFinish2 = Seconds() > > lnXbase = lnFinish1-lnStart1 > lnSQL = lnFinish2-lnStart2 > > \\ << lnXBase >> > \\ << lnSQL >> > \\ << Iif( lnSQL < lnXBase, "SQL", "xBase" ) >> > Next > > Set Textmerge to > > > No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.472 / Virus Database: 269.8.13/843 - Release Date: 10/06/2007 1:39 PM No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.472 / Virus Database: 269.8.13/843 - Release Date: 10/06/2007 1:39 PM
