OpenEuphoria

Re: EDS Autonumber

• Posted by cklester <cklester at yahoo.com> Dec 02, 2005
• 533 views

Greg Haberek wrote:
> 
> > Has anyone got a way of generating an autonumber under the native eds sys=
> tem?
> 
> I use something similar to this. Keys start at one. When generating a
> new key, it grabs the last (and highest) then returns the next number.
> If the table is empty, it returns 1, the first key.
> 
> }}}
<eucode>
> global function db_next_key()
> 
>     integer count
> 
>     count = db_table_size()
>     if count = 0 then
>         key = 0
>     else
>         key = db_record_key( count )
>     end if
> 
>     return key+1
> end function
> </eucode>
{{{


You'd need something like

   while keyExists( count ) do
        count += 1
   end while

so as to avoid duplicate keys in cases where records get deleted.

-=ck
"Programming in a state of Euphoria."
http://www.cklester.com/euphoria/