EUsql
- Posted by sixs at ida.net
Oct 03, 2003
This is a multi-part message in MIME format.
------=_NextPart_000_0009_01C38997.67FEBA80
charset="iso-8859-1"
Hello,
I am trying EUsql. Here is my creation : of the database, then I have a =
program trying to read the database. I think I have created the database =
and inserted a record. I can't read it=20
-------------------------------------------------------------------------=
--------------
with trace
--without warning
include eusql.e
include database.e
--include get.e
--include print.e
with trace
object ok
trace(1)
global constant
A_KeyAdd =3D 5+1, -- numeric: 0 =3D GEN, 1 =3D DOS, 2 =3D WIN, 3 =3D =
LNX
A_LastName =3D 12+1, -- string
A_FirstName =3D 13+1, -- string
A_Address =3D 14+1, -- number of K bytes
A_Street =3D 15+1, -- string
A_City =3D 16+1, -- year: 4 digits
A_State =3D 17+1, -- month: 1 to 12 =20
A_Zip =3D 8+1, -- day of the month: 1 to 31
A_Phone =3D 10+1 -- integer - number of pennies
constant sqlarchive =3D "Addsql.edb"
ok =3D create_db( sqlarchive )
ok =3D run_sql( "CREATE TABLE Address " &
"KeyAdd AS Text, LastName AS Text, ADDRESS AS TEXT, STREET AS =
TEXT," &
"CITY AS TEXT, STATE AS TEXT, DATE.YEAR AS INTEGER," &
"DATE.MONTH AS INTEGER, DATE.DAY AS INTEGER, ZIP AS INTEGER," &
"PHONE AS TEXT" )
if atom(ok) then
puts(1, get_sql_err( ok ))
? 1/0
end if
--ok =3D db_open("Addsql.edb", DB_LOCK_NO )
ok =3D run_sql("insert into Address A_KeyAdd,A_LastName, A_ADDRESS, =
A_STREET," &
"A_CITY, A_STATE, A_ZIP, A_PHONE")
if atom(ok) then
puts(1, get_sql_err(ok))
-- ? 1/0
else
sql =3D ok
end if
eusql_true_typecheck(0)
v =3D create_index( "", ADDRESS", "STATE", "LASTNAME", 0 )
--if wait_key() then end if
-------------------------------------------------------------------------=
-----------------end of creation of db
start read program
--------------------------------------------
include print.e
include eusql.e
with trace
--with type_check
trace(2)
integer fout
fout =3D open( "demo.txt", "w")
EUSQLRESULT ok
ok =3D open_db( "addsql.edb" )
--ok =3D create_index( "", "ADRESS", "LASTNAME", "FIRSTNAME", 0 )
ok =3D run_sql {"SELECT * FROM ADDRESS"}
printf(1,"%d. %s\n\n", {LASTNAME})
close(fout)
----------------------------- end of read =
db-----------------------------------------------
------=_NextPart_000_0009_01C38997.67FEBA80
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1226" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hello,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>I am trying EUsql. Here is my creation =
: of the=20
database, then I have a program trying to read the database. I think I =
have=20
created the database and inserted a record. I can't read it =
</FONT></DIV>
<DIV><FONT face=3DArial=20
size=3D2>----------------------------------------------------------------=
-----------------------</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>with trace<BR>--without =
warning<BR>include=20
eusql.e<BR>include database.e<BR>--include get.e<BR>--include =
print.e<BR>with=20
trace<BR>object ok<BR>trace(1)<BR>global constant<BR> A_KeyAdd =3D =
5+1, --=20
numeric: 0 =3D GEN, 1 =3D DOS, 2 =3D WIN, 3 =3D LNX<BR> A_LastName =
=3D=20
12+1, -- string<BR> A_FirstName =3D 13+1, --=20
string<BR> A_Address =3D 14+1, -- number of K=20
bytes<BR> A_Street =3D 15+1, -- string<BR> A_City =
=3D=20
16+1, -- year: 4 digits<BR> A_State =3D 17+1, -- =
month: 1 to=20
12 <BR> A_Zip =3D 8+1, -- =
day of the=20
month: 1 to 31<BR> A_Phone =3D 10+1 -- integer - number =
of=20
pennies</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>constant sqlarchive =3D =
"Addsql.edb"<BR>ok =3D=20
create_db( sqlarchive )</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>ok =3D run_sql( "CREATE TABLE Address " =
&<BR> "KeyAdd AS Text, LastName AS Text, =
ADDRESS AS=20
TEXT, STREET AS TEXT," &<BR> "CITY AS TEXT, =
STATE AS=20
TEXT, DATE.YEAR AS INTEGER," &<BR> =
"DATE.MONTH AS=20
INTEGER, DATE.DAY AS INTEGER, ZIP AS INTEGER," =
&<BR> =20
"PHONE AS TEXT" )</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>if atom(ok) then<BR> puts(1, =
get_sql_err( ok=20
))<BR> ? 1/0<BR>end if</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>--ok =3D db_open("Addsql.edb", =
DB_LOCK_NO=20
)</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>ok =3D run_sql("insert into Address=20
A_KeyAdd,A_LastName, A_ADDRESS, A_STREET," &<BR> =
"A_CITY,=20
A_STATE, A_ZIP, A_PHONE")</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>if atom(ok) then<BR> puts(1,=20
get_sql_err(ok))<BR>-- ? 1/0<BR>else<BR> sql =3D ok<BR>end=20
if</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>eusql_true_typecheck(0)<BR>v =3D =
create_index( "",=20
ADDRESS", "STATE", "LASTNAME", 0 )</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>--if wait_key() then end =
if</FONT></DIV>
<DIV><FONT face=3DArial=20
size=3D2>----------------------------------------------------------------=
--------------------------end=20
of creation of db</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>start read program</FONT></DIV>
<DIV><FONT face=3DArial=20
size=3D2>--------------------------------------------</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>include print.e<BR>include =
eusql.e<BR>with=20
trace<BR>--with type_check<BR>trace(2)<BR>integer fout<BR>fout =3D open( =
"demo.txt", "w")<BR>EUSQLRESULT ok<BR>ok =3D open_db( "addsql.edb" =
)<BR>--ok =3D=20
create_index( "", "ADRESS", "LASTNAME", "FIRSTNAME", 0 )<BR>ok =3D =
run_sql=20
{"SELECT * FROM ADDRESS"}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>printf(1,"%d. %s\n\n", =
{LASTNAME})</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial =
size=3D2>close(fout)<BR>----------------------------- end of=20
read=20
ML>
------=_NextPart_000_0009_01C38997.67FEBA80--
|
Not Categorized, Please Help
|
|
