time1 = SECONDS() oConn = CREATEOBJECT("adodb.connection") oConn.Open("bbfsdsn","sa","") oCustomerRS = CREATEOBJECT("adodb.recordset") oCustomerRS.Open("SELECT * FROM patledger",oconn) <b>DO WHILE !oCustomerRS.EOF x = oCustomerRS.Fields("somefield") oCustomerRS.MoveNext() ENDDO</b> time2 = SECONDS()
Time1 = SECONDS() oConn = SQLCONNECT("BBFSDSN","sa","") cSQL = SQLEXEC(oConn,"SELECT * FROM patledger","oCustomerRS") <b>SCAN x = <i>somefield</i> ENDSCAN</b> TIME2 = SECONDS()