From: JL <JLT@WVInter.Net>
To: rino.79 <rino.79@inwind.it>
To: pgsql-interfaces@postgresql.org
Subject: Re: Info
Date: Mon, 16 Jun 2003 13:57:20 -0400
Message-ID: <200306161357.20600.JLT@WVInter.Net> (raw)
In-Reply-To: <000a01c331d8$edd28680$0df4623e@79>
References: <000a01c331d8$edd28680$0df4623e@79>
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, from a 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}
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Reply to all the recipients using the --to and --cc options:
reply via email
To: pgsql-interfaces@postgresql.org
Cc: JLT@WVInter.Net, rino.79@inwind.it
Subject: Re: Info
In-Reply-To: <200306161357.20600.JLT@WVInter.Net>
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
This inbox is served by DDX for PostgreSQL; see mirroring instructions
for how to clone and mirror all data and code used for this inbox