I have two scripts 'Backup Logging' and 'Restore Logging' to backup/restore 3 fields (WHEN (date), WHERE & AS (character)). The Backup works just fine but the Restore gives - "Field- and expression-types must match" error occured at line 20 in script 'Restore Logging' error.
whats going wrong??
TIA
'Backup Logfile' Script.
''XBasic
a_tbl = table.open("logfile")
query.order = ""
query.filter = "ut(as)\"\".or.ut(where)\"\""
query.options = "I"
dat = dtoc(date())
tim = remspecial(time())
a_tbl.query_create()
copy.set = ""
copy.db = a_db_current_path-"\backup\backup-"-dat-"@"-tim-".dbf"
copy.dd = .F.
copy.delete_o_dd = .T.
copy.records = .T.
copy.fields = 4
copy.field1 = "Logfile->When"
copy.field2 = "Logfile->Where"
copy.field3 = "Logfile->As"
copy.field4 = "Logfile->Unique"
a_tbl.copy()
a_tbl.close()
ui_msg_box("Logging Backup","Backup Complete")
end
'Restore Logfile' Script
''XBasic
on error goto error_display
a_tbl = table.open("logfile")
filename = ui_get_file("Open logging backup file to use in restore","Tables(*.DBF)","","X")
post.t_db = filename
post.m_key = "UNIQUE"
post.t_key = "UNIQUE"
post.m_filter = ""
post.t_filter = ""
post.m_count = 4
post.m_field1 = "WHEN"
post.m_exp1 = "@Logging_Backup->When"
post.m_field2 = "WHERE"
post.m_exp2 = "@Logging_Backup->Where"
post.m_field3 = "AS"
post.m_exp3 = "@Logging_Backup->As"
post.m_field4 = "UNIQUE"
post.m_exp4 = "@Logging_Backup->Unique"
post.t_count = 0
a_tbl.post()
ui_msg_box("Logging Restore","Completed")
end
error_display:
err_msg = error_text_get(error_code_get())
script = error_script_get()
line = error_line_number_get()
ui_msg_box("Error",chr(34)+err_msg+chr(34)+" error occured at line "+alltrim(str(line,4,0))+" in Script "+chr(34)+alltrim(script)+chr(34))
whats going wrong??
TIA
'Backup Logfile' Script.
''XBasic
a_tbl = table.open("logfile")
query.order = ""
query.filter = "ut(as)\"\".or.ut(where)\"\""
query.options = "I"
dat = dtoc(date())
tim = remspecial(time())
a_tbl.query_create()
copy.set = ""
copy.db = a_db_current_path-"\backup\backup-"-dat-"@"-tim-".dbf"
copy.dd = .F.
copy.delete_o_dd = .T.
copy.records = .T.
copy.fields = 4
copy.field1 = "Logfile->When"
copy.field2 = "Logfile->Where"
copy.field3 = "Logfile->As"
copy.field4 = "Logfile->Unique"
a_tbl.copy()
a_tbl.close()
ui_msg_box("Logging Backup","Backup Complete")
end
'Restore Logfile' Script
''XBasic
on error goto error_display
a_tbl = table.open("logfile")
filename = ui_get_file("Open logging backup file to use in restore","Tables(*.DBF)","","X")
post.t_db = filename
post.m_key = "UNIQUE"
post.t_key = "UNIQUE"
post.m_filter = ""
post.t_filter = ""
post.m_count = 4
post.m_field1 = "WHEN"
post.m_exp1 = "@Logging_Backup->When"
post.m_field2 = "WHERE"
post.m_exp2 = "@Logging_Backup->Where"
post.m_field3 = "AS"
post.m_exp3 = "@Logging_Backup->As"
post.m_field4 = "UNIQUE"
post.m_exp4 = "@Logging_Backup->Unique"
post.t_count = 0
a_tbl.post()
ui_msg_box("Logging Restore","Completed")
end
error_display:
err_msg = error_text_get(error_code_get())
script = error_script_get()
line = error_line_number_get()
ui_msg_box("Error",chr(34)+err_msg+chr(34)+" error occured at line "+alltrim(str(line,4,0))+" in Script "+chr(34)+alltrim(script)+chr(34))
Comment