Re: Possible problem in EDS

new topic     » goto parent     » topic index » view thread      » older message » newer message

Tried to do this using Phix without luck:

    ?  "cleanup first" 
     
{} =  delete_file( current_dir() & "/" & "mydata.edb" )  
 
    ? "-- create a new database------ " 
      
{} = db_create( "mydata", DB_LOCK_NO) 
 
    ?   "---- add tables with records to database ----------"  
    set_rand(1001) 
for i=1 to 5 do 
    sequence tablename = sprintf( "my_%d_table", i ) 
  --  ? tablename 
    {} = db_create_table( tablename ) 
    {} = db_select_table( tablename ) 
    -- add some records 
    integer rec_count = i + rand(20) 
    ? rec_count 
    for j=1 to rec_count do 
        {} = db_insert( j, rand(50) ) 
    end for 
end for 
 
 
 
sequence names = db_table_list() 
 
? names 
 
 
 
 
 
for i=1 to length(names) do 
 
    ? names[i] 
    {} = db_select_table( names[i] ) 
    ? db_table_size() 
end for 
 
 
/* 

"cleanup first" 
"-- create a new database------ " 
"---- add tables with records to database ----------" 
3 
4 
14 
12 
8 
{"my_1_table","my_2_table","my_3_table","my_4_table","my_5_table"} 
"my_1_table" 
3 
"my_2_table" 
4 
"my_3_table" 
Trace/breakpoint trap (core dumped) 
 
 
------------------ 
(program exited with code: 133) 
Press return to continu 
*/ 
 

_tom

new topic     » goto parent     » topic index » view thread      » older message » newer message

Search



Quick Links

User menu

Not signed in.

Misc Menu