Intellipro - Automating QTP Test Automation - Downloads - SQL - Exists - 090212

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

SQL Function - Exists

This function checks if a row exists.

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_Exists(sDsn,sSql)

    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_Exists = False

    Else
        zSql_Exists = True

    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