Intellipro - Automating QTP Test Automation - Downloads - SQL - Count Rows - 090212

Automating QTP Test Automation Home Automation Articles Downloads QTP Gotchas Links Books Contact About Site Map

SQL Function - Count Rows

This function gets a count of the number of rows returned by a query.

Download it Here (right-click and then save target as).

(NOTE - you can just cut & paste from below, but the formatting will have multiple spaces instead of tabs).

'=========================================================================

Function zSql_CountRows(sDsn,sSql)

    'This function gets the number of rows satisfying a query
    'NOTE - I could use COUNT in the query, but QTP sometimes has trouble with it

    Dim oCon, oRec

    Set oCon=CreateObject("ADODB.Connection")
    Set oRec=CreateObject("ADODB.Recordset")

    oCon.Open ("DSN=" & sDsn)

    oRec.Open sSQL,oCon

    If oRec.Eof Then
        zSql_CountRows = 0

    Else
        zSql_CountRows = oRec.RecordCount

    End If

    oRec.Close
    oCon.Close

    Set oRec=Nothing
    Set oCon=Nothing

End Function

'=========================================================================

Copyright © 2009 Intellipro Services Ltd. All rights reserved Home About Privacy Policy Terms of use Contact Site Map

advanced advice agile answers application articles aut automated automating automation basics beginners browser button checkbox child childobjects click close code coding combo combobox consultant consultancy convention count createobject database delete descriptive download downloads dp edit editbox element enhancements error examples faq faqs file files filesystemobject fixes folder folders forum framework frameworks function functions generation generator getobject getroproperty gotchas group guide guru harness hewlett hp inputbox insert intellipro interview language library libraries link list listbox manifesto manual master name naming navigate object or packard page ping pro problem procedure procedures professional programming qtp query queries question questions quick quicktest radio refresh repository ross row rows samples script scripts scrum select server software specific sprint sql step stored strategy structure sub subroutine suite sync tables test testing text textbox title tool tools tsl tutorial update updates url vbscript web webedit webpage webradiogroup weblist whittaker wscript