PostgreSQL 7.4beta4 Documentation
Prev | Fast Backward | Chapter 29. pgtcl - Tcl Binding Library | Fast Forward | Next

# 29.4. Example Program

Example 29-1 shows a small example of how to use the pgtcl commands.

Example 29-1. pgtcl Example Program

    # 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
pg_lo_export | Up | ECPG - Embedded SQL in C