1. EUSQL
- Posted by sixs at ida.net
Apr 09, 2003
This is a multi-part message in MIME format.
------=_NextPart_000_0153_01C2FE79.E356A700
charset="iso-8859-1"
I am trying to use EUSQL in a windows program. I am having some =
problems. Is there an example of EUSQL and Windows that I could review?
Jim Smiley
------=_NextPart_000_0153_01C2FE79.E356A700
charset="iso-8859-1"
<!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.1106" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY style=3D"COLOR: #000000; FONT-FAMILY: " bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>I am trying to use EUSQL in a windows =
program. I am=20
having some problems. Is there an example of EUSQL and Windows that I =
could=20
review?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
------=_NextPart_000_0153_01C2FE79.E356A700--
2. Re: EUSQL
- Posted by sixs at ida.net
Apr 09, 2003
Hi,
I am using IDE to create a project. I took an existing project that had a
screen and data inputs and am inserting a database created in EUSQL and
include these statements
include eusql.e
include get.e
include print.e
constant sqla22 = "sqla22.edb"
Then I changed the code thusly
procedure MyWin_onOpen (integer self, integer event, sequence
params)--params is ()
sequence linex, liney
integer indx
PaintWin_id(MyWin) -- draw our fancy borders.
--trace(1)
--deletedb()
--db_close()
--createdb()
if db_open("sqla22", DB_LOCK_NO) != DB_OK then
junk = message_box("couldn't open database",
"Empty entry!", MB_TASKMODAL + MB_ICONWARNING)
abort(1)
end if
create_table ( sequence sqla22, sequence People )
****** this statement ges an error that say it is looking for possibly 'end'
, not a function. a caret points o the last letter in 'create_table.
Previously I had tried to use the database I created using EUSQL and tried
to enter data using typical EDB commands. I couldn't find the dataI hd
entered in a viewing the database.
if db_select_table("PEOPLE") != DB_OK then
junk = message_box("couldn't open table",
"Empty entry!", MB_TASKMODAL + MB_ICONWARNING)
abort(1)
end if
*****************************
create database and PEOPLE Table
constant sqlarchive = "sqla22.edb"
trace(1)
ok = create_db( sqlarchive )
--if atom(ok) then
-- puts(1, get_sql_err( ok ))
-- ? 1/0
--end if
ok = run_sql( "CREATE TABLE PLATFORM " &
"ID AS INTEGER, PLATFORM AS TEXT")
ok = run_sql( "CREATE TABLE MONTH " &
"ID AS INTEGER, MONTH AS TEXT" )
ok = run_sql( "CREATE TABLE AUTHORS " &
"ID AS INTEGER, NAME AS TEXT" )
ok = run_sql( "CREATE TABLE PEOPLE " &
"KEYID AS INTEGER, LNAME AS TEXT," &
" FNAME AS TEXT, ADDRESS AS TEXT," &
" STREET AS TEXT, CITY AS TEXT," &
" STATE AS TEXT, ZIP AS TEXT," &
" PHONE AS TEXT" )
ok = run_sql( "CREATE TABLE KEYRECORDS " &
"KEID AS TEXT, KEYNAME AS INTEGER" )
Is this the correct way to identify fields that can be used by EDB commands,
or should they be EUSQL commands to access the database
Jim Smiley
----- Original Message -----
From: "Matt Lewis" <matthewwalkerlewis at yahoo.com>
To: "EUforum" <EUforum at topica.com>
Sent: Wednesday, April 09, 2003 10:03 AM
Subject: RE: EUSQL
>
>
> From: sixs at ida.net [mailto:sixs at ida.net]
>
> > I am trying to use EUSQL in a windows program. I am having
> > some problems. Is there an example of EUSQL and Windows
> > that I could review?
> >
> > Jim Smiley
>
> In fact, I'm currently writing an app that uses EuSQL. It uses
wxEuphoria,
> and isn't quite ready for the light of day, although it should work on
both
> Windows *and* Linux. It basically allows you to view and edit EDS and
EuSQL
> databases in a GUI environment--think MS Access, without the forms and
> reports and scripting and etc.
>
> That said, I'm not sure what it is you're looking for. EuSQL is platform
> independent (it only relies on database.e, which works on all Euphoria
> supported platforms). The problem is most likely within EuSQL itself.
> Unfortunately, it's not as robust [yet] as I'd like it to be, nor are the
> docs as useful as they should be (been doing some work on that, too).
I've
> recently fixed several bugs, and should probably get an update out here
> soon. Hopefully by this weekend.
>
> Can you give some more details about your problem?
>
> Thanks,
>
> Matt Lewis
>
>
>
> TOPICA - Start your own email discussion group. FREE!
>
3. EUSQL
- Posted by sixs at ida.net
Apr 13, 2003
This is a multi-part message in MIME format.
------=_NextPart_000_0007_01C3013A.AD28A980
charset="iso-8859-1"
OH, I finally found set_parameter
and now can add records to SQL EDB.
Sometimes I can see theforrest for the trees
Jim Smiley
------=_NextPart_000_0007_01C3013A.AD28A980
charset="iso-8859-1"
<!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.1106" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY style=3D"COLOR: #000000; FONT-FAMILY: " bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>OH, I finally found =
set_parameter</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> and now can add records to SQL=20
EDB.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Sometimes I can see theforrest for the=20
trees</FONT></DIV>
------=_NextPart_000_0007_01C3013A.AD28A980--
4. EUSQL
Matt,
Help!
I'm using EU Sql in an application to filter records presented to the
user. I can't figure out why I am getting the following error in
ex.err. Sorry about the length of the post. If you need more
information I can provide.
Thanks, Jonas
D:\EUPHORIA\include\eusql.e:1504 in function get_fields()
subscript value 0 is out of bounds, reading from a sequence of length 2
index = {{0},{13}}
conditions = {{1,0,18,0,{84'T',69'E',77'M',74'J',79'O',78'N'}}}
distinct = 0
order = {1,-2}
fields = {}
record = {1,{106'j',111'o',98'b',49'1',32' '},{99'c',111'o',110'n',
116't',97'a',99'c',116't',32'
',49'1'},{97'a',100'd',100'd',114'r',101'e',
115's',115's',32' ',49'1'},{99'c',105'i',116't',121'y',32'
',49'1'},{109'm',
{101'e',3,1,9,18,53'5',5,60'<'},{},{},{}}
field = {{1,{106'j',111'o',98'b',49'1',32' '},{99'c',111'o',110'n',
116't',97'a',99'c',116't',32'
',49'1'},{97'a',100'd',100'd',114'r',101'e',
115's',115's',32' ',49'1'},{99'c',105'i',116't',121'y',32'
',49'1'},{109'm',
111'o',110'n'}}
wheres = {{0},{{18,{84'T',69'E',77'M',74'J',79'O',78'N'}}}}
max = 1
lx = 2
wx = <no value>
ok = 1
i = 1
i = 1
j = 2
j = 1
.. called from D:\EUPHORIA\include\eusql.e:1669 in function
run_select()
sql =
{},{{},{}},0,{},{1,{}}}
query = {{{42'*'}},{}}
field_order = {1,2}
field = {{}}
rx = {1}
max = {}
joins = <no value>
field_count = {2}
select =
min = <no value>
calc = <no value>
groups = <no value>
group_calcs = <no value>
field_order_neg = {1,-2}
wheres = <no value>
join_wheres = {{1,0,18,0,{84'T',69'E',77'M',74'J',79'O',78'N'}}}
qx = <no value>
visible_fields = 1
null_join = <no value>
distinct = 0
ix = 2
ok = <no value>
i = 1
i = 2
i = 1
i = 1
.. called from D:\EUPHORIA\include\eusql.e:2221 in function run_query()
sql =
{},{{},{}},0,{},{1,{}}}
qt = 1
.. called from D:\Projects\eujh\JH.EXW:68 in procedure LoadJobList()
lv_item = <no value>
rtn_code = 0
job_status = {}
job_number = {}
ent_date = {}
sql = {115's',101'e',108'l',101'e',99'c',116't',32' ',42'*',32' ',
102'f',114'r',111'o',109'm',32'
',106'j',104'h',95'_',104'h',101'e',97'a',
100'd',101'e',114'r',32' ',119'w',104'h',101'e',114'r',101'e',32'
',106'j',
66'B',95'_',69'E',78'N',84'T',95'_',85'U',83'S',69'E',82'R',32' ',61'=',
32' ',39''',116't',101'e',109'm',106'j',111'o',110'n',39'''}
selection = {106'j',104'h',95'_',104'h',101'e',97'a',100'd',101'e',
69'E',82'R',32' ',61'=',32' ',39''',116't',101'e',109'm',106'j',111'o',
110'n',39'''}
parsed_sql =
79'O',78'N'}}}},{},{{},{}},0,{},{1,{}}}
