From: Dmitriy Anisimkov <anisimkov@iforex.net>
Subject: Oracle Call Interface (OCI) for Ada95
Date: 2000/02/08
Date: 2000-02-08T00:00:00+00:00 [thread overview]
Message-ID: <389F60C8.A761F961@iforex.net> (raw)
Simple thick Ada95 binding of OCI.
http://cgi.tripod.com/vagul/adaoci.html
Programs do to look like :
Connect := Logon("scott/tiger@any_tns_name");
Prepare(Connect, Stmt, "begin :result := (sysdate -
:client_time)*60*60*24; end;");
Bind(Stmt,Numb,":result");
Bind(Stmt,Date,":client_time");
Set_Value(Date,Sysdate); -- client local time
Put_Line(To_String(Get_Value(Date),"DD Mon YY HH24:MI:SS"));
Execute(Stmt);
Put_Line(To_String(Get_Value(Numb),"FM999990.099"));
reply other threads:[~2000-02-08 0:00 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox