OpenEuphoria

Re: EDS db_replace_key()

• Posted by Greg Haberek <ghaberek at gmail.com> Feb 21, 2005
• 440 views

> There isn't a db_replace_key() routine, is there? ,

Sure! I used this routine in an app I wrote a while ago. (although
this is from memory, so there may be typos)

~Greg

global procedure db_replace_key( object key1, object key2 )
-- this method is volitle, it will overwrite key2 if it exists

    integer rec
    object data

    -- find the old key
    rec = db_find_key( key1 )
    if rec< 0 then
        -- invalid key
        return
    end if

    -- store the data
    data = db_record_data( rec )

    -- remove the record
    db_delete_record( rec )

    -- find the new key
    rec = db_find_key( key2 )
    if rec < 0 then
        -- record does not exist, create it
        rec = db_insert( key2, data )
    else
        -- record does exist, replace data
        db_replace_data( rec, data )
    end if

end procedure