OpenEuphoria

Re: Possible problem in EDS

• Posted by _tom (admin) Feb 01, 2018
• 1339 views

This does not look good.

include std/eds.e 
include std/console.e 
include std/filesys.e 
 
    display( "cleanup first" ) 
     
? delete_file( current_dir() & "/" & "mydata.edb" )  
 
    display( "-- create a new database------ ") 
      
? db_create( "mydata", DB_LOCK_NO) 
 
    display(  "---- add tables with records to database ----------"  ) 
 
for i=1 to 5 do 
    ? db_create_table( sprintf( "my_%d_table", i ) ) 
 
    -- add some records 
    for j=1 to rand(20) do 
        ? db_insert( j, rand(100) ) 
    end for 
end for 
 
sequence names = db_table_list() 
 
for i=1 to length(names) do 
    printf(1, "%20s %d\n", {names[i], db_table_size( names[i] ) } ) 
end for 
 
    display( "\n======== delete one table =============" ) 
 
db_delete_table( "my_3_table" ) 
names = db_table_list() 
 
for i=1 to length(names) do 
    printf(1, "%20s %d\n", {names[i], db_table_size( names[i] ) } ) 
end for 
 
 
    display( "\n--------- close and open the database" ) 
 
db_close() 
? db_open( "mydata" ) 
     
names = db_table_list() 
 
for i=1 to length(names) do 
    printf(1, "%20s %d\n", {names[i], db_table_size( names[i] ) } ) 
end for 

Can not say way.

thanks

_tom