OpenEuphoria

EDS Database Problem

• Posted by "EU Coder" <eucoder at hotmail.com> Jun 11, 2005
• 541 views

Hello All,

I have a EDS database and I created  a simple procedure to delete a selecte=
d
record from the database. But there seems to be a problem with deleting the=

correct record from the database. The procedure is finding the correct item=

and returning the correct record number, but when=20
db_delete_record(findrecord) is called the last record in the database is=

deleted, no matter what record is selected. Anyone have a clue what I am=

doing wrong? I am using the following code:

procedure Test()
integer findrecord
sequence selecteditem,item

selecteditem = getLVSelected(MyList)

item = getLVItemText(MyList, selecteditem[1],1)
       if db_select_table("Table1") != DB_OK then
           end if
              findrecord = db_find_key(item)
           db_delete_record(findrecord)
end procedure