PostgreSQL 7.1.3 Documentation
Prev | Chapter 4. pgtcl - TCL Binding Library | Next

# 4.2. Examples

Here's a small example of how to use the routines:

    # getDBs :
    #   get the names of all the databases at a given host and port number
    #   with the defaults being the localhost and port 5432
    #   return them in alphabetical order
    proc getDBs { {host "localhost"} {port "5432"} } {
        # datnames is the list to be result
        set conn [pg_connect template1 -host $host -port $port]
        set res [pg_exec $conn "SELECT datname FROM pg_database ORDER BY datname"]
        set ntups [pg_result $res -numTuples]
        for {set i 0} {$i < $ntups} {incr i} {
    	lappend datnames [pg_result $res -getTuple $i]
        }
        pg_result $res -clear
        pg_disconnect $conn
        return $datnames
    }

Prev | Home | Next
pgtcl - TCL Binding Library | Up | pgtcl Command Reference Information