Re: Possible problem in EDS
- Posted by _tom (admin) Feb 01, 2018
- 1316 views
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