On Fri June 13 2003 14:23, rino.79 wrote:
> Hi, I'm Rino.
> My question is:
> How I can connect postgres database whit tcl/tk interface?
creates a new *.tcl file
__________________________
#!/usr/bin/tclsh
# Test of access to a database after install
# Table: customers
# One Field used in test: lname
#
# GRANT ALL customers TO user_whom_ever ;
#
# libarary for postgresQL 7.3.2
# /usr/lib/libpgtcl.so -> /usr/lib/pgtcl1.4/libpgtcl1.4.so
load /usr/lib/libpgtcl.so
set pgsetup "user=user_whom_ever dbname=mydatabase psic password='mypassword_if_any'"
# above used in the following way...
# pg_connect -conninfo "user=user_whom_ever dbname=mydatabase psic password='mypassword_if_any'"
set pgconn [pg_connect -conninfo $pgsetup]
puts "Connection string $pgsetup"
puts "__ Uppercase first character of customers last name ___\n"
pg_select $pgconn "Select DISTINCT substr(upper(lname),1,1) AS cid From customers LIMIT 18" arr { puts
[format"%s" $arr(cid) ]
}
pg_select $pgconn "SELECT count(*) AS cnt FROM customers" arr { puts [format "First 18 DISTINCT 1st characters,
froma total of: %s customers" $arr(cnt) ]
}
pg_disconnect $pgconn
Note: below, you may find a tar package with
more code and database for a in works project
for Linux
--
John Turner
http://Members.Ntelos.Net/~JLT
"Just because you do not know the answer,
does not mean that someone else does"
Sephen J. Gould {RIP}