set conninfo [list user=cz password=*** host=hermes.olymp dbname=ttickets]
set db [pg_connect -conninfo $conninfo]
set h [pg_exec $db "select * from usersInfo"]
if {[regexp PGRES_TUPLES_OK [pg_result $h -status ]]} {
puts "es wurden [pg_result $h -numTuples] Ergebnisse"
puts "aus den Spalten '[join [pg_result $h -attributes] ", "]' gefunden\n"
# Ergebnis für Ergebnis
for {set i 0} {$i < [pg_result $h -numTuples]} {incr i} {
puts "Zeile $i: [pg_result $h -getTuple $i]"
}
puts "Noch mal Zeile 2: [pg_result $h -getTuple 2]"
# Ergebnis in einem Array, Zeilennummer als Index
pg_result $h -assign array1
puts "\neine Zeile aus dem array mit -assign"
parray array1 "0,*"
# Ergebnis in einem Array,
pg_result $h -assignbyidx array2
puts "\neine Zeile aus dem array mit -assignbyidx"
parray array2 "ticketmaster,*"
} else {
puts stderr "es trat ein Fehler auf: [pg_result $h -error]"
}
pg_result $h -clear
# Eine Zeile löschen
pg_exec $db "DELETE FROM usersInfo WHERE username='testuser'"
# Einfaches Einfügen
set sql "INSERT INTO tickets(productid, platform, priority, subject, description) "
append sql "VALUES('Wheelhouse','Linux','Enhancement','font color','some description')"
set h [pg_exec $db $sql]
set oid [pg_result $h -oid]
set h [pg_exec $db "SELECT ticketid FROM tickets WHERE OID=$oid"]
puts "\nneues Ticket mit tickeid [pg_result $h -getTuple 0] (oid $oid)"
