Boy - have I made a mistake!

[Wanda Tucker]

Hey out there,
You know when you go to Pack a table and you get a message saying that the records will be permanently deleted? Well, the anthesis of that is that there must be a way to undelete the records you just deleted. Anyone know how to do this? I deleted several records from the wrong table and MUST get them back! To thicken the plot, I must get them back before I shut down tonight, because the table will copy itself over yesterdays table, therefore probably permanently destroying the records I accidentally deleted today.

Why not get the back up copy from IT? Because I've always wanted to know how to undelete records. PLUS, I suspect that would be a lot easier than trying to get the backup file before 5 p.m. this evening.

I feel like I'm slowly drowning!
Thanks!
Wanda

[CharlesK]

RE: Boy - have I made a mistake!

Do you have Peter Wayne's book on XBasic? He has a script to undelete deleted records. If not, search his web site (http://www.learn alpha.com/). If it's not there, let me know and I'll post it.

Charles

[martinwcole]

RE: Boy - have I made a mistake!

I copied one of Dr. Wayned scripts for you - you can trim it up a little bit if you want
' undelete and unmark records
option strict
dim tbl as p
dim deletion_field as p
dim fild as p
dim nrecs as n
dim i as n
dim response as n
dim tbl_name as c
dim class as c
dim field_val as c
tbl_name=ui_get_text("Undelete records","of which table?")
if tbl_name="" then
end
end if
if right(tbl_name,4)=".dbf" .or. right(tbl_name,4)=".set" then
tbl_name=left(tbl_name,len(tbl_name)-4)
end if
on error goto no_open
tbl=table.open(tbl_name)
on error goto 0
deletion_field=tbl.field_get(0)
fild=tbl.field_get(1)
class=fild.type_get()
nrecs=tbl.records_get() + tbl.records_deleted()
for i=1 to nrecs
:statusbar.percent(i,nrecs)
tbl.fetch_goto(i)
if deletion_field.value_get()="*" .or.
deletion_field.value_get() = "-" then
select
case class="D"
field_val=dtoc(fild.value_get())
case class="N"
field_val=alltrim(str(fild.value_get(),
fild.width_get(),fild.dec_get()))
case class="C"
field_val=fild.value_get()
case class="L"
field_val=iif(fild.value_get()=.t.,"True","False")
case else
field_val="Can't display this field"
end select
response=ui_msg_box("Undelete this one", field_val,
UI_QUESTION_SYMBOL + UI_YES_NO_CANCEL)
select
case response=UI_YES_SELECTED
'undelete
tbl.change_begin()
deletion_field.blank_put()
tbl.change_end(.t.)
case response=UI_CANCEL_SELECTED
exit for
case else
' do nothing
end select
end if
next i
tbl.close()
ui_msg_box("Finished undeleting",tbl_name)
end
no_open:
ui_msg_box("Unable to open",tbl_name)
end

[Wanda Tucker]

RE: Boy - have I made a mistake!

Hey, thanks to both of you! I don't know Xbasic, but will write this script and execute it and see what happens. I'll let you know!
Thanks,
Wanda

[Wanda Tucker]

RE: Boy - have I made a mistake!

Kudos to our IT department! They restored yesterdays back up, already! My deleted records are all restored :) Oh, happy me :)
Wanda

[csda1]

RE: Boy - have I made a mistake!

Wanda,

Next time you are archival-challenged, you can try my undelete record function (or use the other variants provided previously here in this section of the board-search for Undelete) in the archive section at

Undelete Record function

Regards,

Ira J. Perlow
Computer Systems Design & Associates
[email protected]